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
0 komentar: