Salah satu cara termudah untuk menampilkan driver yang terinstall adalah dengan menggunakan command line driverquery.

Untuk mencoba perintah ini kita terlebih dahulu masuk ke command prompt,  kemudian ketik driverquery :

Hasil outputnya adalah seperti berikut :

Selanjutnya kita akan menyimpan output perintah driverquery ke file text, memparsingnya dan kemudian menampilkannya ke program.

Untuk mempermudah parsing kita akan mengetikan perintah driverquery /nh /fo csv (parameter /nh menampilkan daftar driver tanpa kolom header dan /fo csv menampilkan dengan format csv) kemudian untuk menyimpan outputnya ke file text cukup menambahkan tanda >.

Jadi perintah lengkap yang harus diketikkan di command prompt adalah sebagai berikut :

1

driverquery /nh /fo csv > daftar_driver.txt

Contoh hasil output yang sudah tersimpan

dari gambar diatas terlihat bahwa pembatas/separator kolom menggunakan karakter koma (,) selain itu masing-masing isi kolom diapit karakter “ yang akan kita hilangkan pada saat ditampilkan.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Private Sub cmdGetListDriver_Click()
    Dim fso         As Scripting.FileSystemObject
    Dim Ts          As Scripting.TextStream
    Dim arrKolom()  As String
    Dim driverName  As String

    Set fso = New Scripting.FileSystemObject
    Set Ts = fso.OpenTextFile(“c:\daftar_driver.txt”, ForReading, False)
    Do While Not Ts.AtEndOfStream
        If InStr(1, Ts.ReadLine, “,”) > 0 Then ‘pastikan data mengandung karakter ,
            arrKolom = Split(Ts.ReadLine, “,”) 'ingat seperatornya menggunakan karakter ,

            driverName = arrKolom(1) 'deskripsi lengkap driver ada dikolom 1
            driverName = Replace(driverName, Chr(34), “”) 'hapus karakter “

            lstDriver.AddItem driverName 'tampilkan driver ke ListBox
        End If
    Loop
    Ts.Close
    Set Ts = Nothing
    Set fso = Nothing
End Sub

Selain itu jangan lupa tambahkan juga referensi Microsoft Scripting Runtime.

Contoh output :

Selamat mencoba :)