Menampilkan daftar driver yang terinstall

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 :

jpg)

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 :

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.

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