Jump to content

IBM TP Seriennummer auslesen


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hi xtragood,

 

keines VBScript:

 

On Error Resume Next

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_BIOS",,48)

For Each objItem in colItems

Wscript.Echo "Manufacturer: " & objItem.Manufacturer

Wscript.Echo "SerialNumber: " & objItem.SerialNumber

Wscript.Echo "SMBIOSBIOSVersion: " & objItem.SMBIOSBIOSVersion

Wscript.Echo "SMBIOSMajorVersion: " & objItem.SMBIOSMajorVersion

Wscript.Echo "SMBIOSMinorVersion: " & objItem.SMBIOSMinorVersion

Wscript.Echo "SMBIOSPresent: " & objItem.SMBIOSPresent

Next

 

thorgood

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...