BIOS Infos auslesen

Posted On 2. Januar 2011

BIOS Info Script


On Error Resume Next

 Ueberschrift = "Bios Infos"
 strComputer = "."
 Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)
 For Each objItem in colItems
 Bios = "Service Tag: " & objItem.SerialNumber & vbCr
 Bios = Bios & "BIOS Version: " & objItem.SMBIOSBIOSVersion & vbCr
 Bios = Bios & "Datum: " & objItem.Version & vbCr
 ausgabe = MsgBox(Bios, vbQuestion, Ueberschrift)
 Next

Related Images:

Related Posts

About The Author

Bua