Speichern Sie folgenden Inhalt in einer Datei mit der Erweiterung ".vbs" ab. Mit einem Doppelklick auf die Datei kann das Skript gestartet werden:
Option Explicit
const HKEY_LOCAL_MACHINE = &H80000002
const strKeyPath = "HARDWARE\DESCRIPTION\System"
const strComputer = "."
Dim bReg, strValue, arrValues, BIOS_Version, BIOS_Date, Video_Version, Video_Date, Processor_Name
Set bReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
bReg.GetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath, "SystemBiosVersion" ,arrValues
For Each strValue In arrValues
BIOS_Version = BIOS_Version & vbCrLf & vbTab & strValue
Next
bReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, "SystemBiosDate" ,BIOS_Date
bReg.GetMultiStringValue HKEY_LOCAL_MACHINE, strKeyPath, "VideoBiosVersion" ,arrValues
For Each strValue In arrValues
Video_Version = Video_Version & vbCrLf & vbTab & strValue
Next
bReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath, "VideoBiosDate" ,Video_Date
bReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\CentralProcessor\0", "ProcessorNameString" ,Processor_Name
WScript.Echo "BIOS-Version: " & BIOS_Version & vbCrLf & "BIOS-Date: " & BIOS_Date & vbCrLf & vbCrLf &_
"Grafik-Version: " & Video_Version & vbCrLf & "Grafik-Datum: " & Video_Date & vbCrLf & vbCrLf &_
"Prozessor: " & Processor_Name