Mengetahui Versi Windows (VB 6.0)

Bagi dan bagi, itulah setidaknya yang bis saya lakukan. Berikut ini ada satu lagi kode VB 6.0 (Visual Basic 6.0) yang mungkin berguna bagi Anda. Ok, kode ini digunakan untuk mengecek versi windows Anda.

Langsung saja ke contoh pembuatannya.

1. Buat Project VB 6.0 baru.
2. Pada Form yang aktif tambahkan 1 Label.
3. Atur Properties Label dengan Name=lblInfo.
4. Double click Form dan pada Form_Load() copy paste kode di bawah ini.

Dim Win As Object
For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")
    lblInfo.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & _
                "Version : " & Win.Version & vbCrLf & _
                "Build : " & Win.BuildNumber
Next

5. Jalankan program dan lihat hasilnya. Selesai dan terima kasih.

Berikut hasilnya:

Untuk contoh programnya Anda bisa download disini.