Hope This Helps

Problem
Man möchte gerne BIOS-Version, Hersteller, Seriennummer und Physikalische Speicherbelegung aus dem BIOS auslesen ohne den Server neu zu starten.

Lösung
Folgendes VBS-Skript ließt die wichtigsten Informationen aus dem BIOS aus:

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colBIOS = objWMIService.ExecQuery ("Select * from Win32_BIOS")
For each objBIOS in colBIOS
msg = "BIOS-Informationen" & vbcrlf
msg = msg & "Manufacturer: " & objBIOS.Manufacturer & vbcrlf
msg = msg & "Name: " & objBIOS.Name & vbCRLF
msg = msg & "Serial Number: " & objBIOS.SerialNumber & vbCRLF
msg = msg & "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion & vbCRLF
msg = msg & "Status: " & objBIOS.Status & vbCRLF & vbcrlf
Next

msg = msg & "physikalische Speicherplätze" & vbCRLF
anzahl = 0

Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)
For Each objItem in colItems
    anzahl = anzahl + 1
    msg = msg & "Bank " & anzahl & " = Größe: " & objItem.Capacity/1024/1024 & " MB" & vbcrlf
Next
msgbox msg