Membuat Software Mengetahui Versi Windows

Berikut ini adalah kode sederhana untuk mengetahui versi dari Windows di komputer.
Buat Project baru dengan sebuah Form didalamnya, kemudian tambahkan kontrol Label (untuk menampung hasilnya) ke dalam Form tersebut. Lalu ketikkan kode berikut di bagian 'Form_Load' :

[ VB 6.0 ]

Dim Win As Object

For Each Win In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Caption = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next

[ VB .NET ]

For Each Win As Object In GetObject("winmgmts:").InstancesOf("Win32_OperatingSystem")

Label1.Text = Win.Caption & vbCrLf & Win.CSDVersion & vbCrLf & "Version : " & Win.Version & vbCrLf & "Build : " & Win.BuildNumber

Next