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