Seriennummern auslesen

[disarstar]

Hallo,

da bei unserer Inventarisiserung einige Datensätze unvollständig sind habe ich mir überlegt die fehlenden Datensätze per Script auszulesen.

strComputer = "."

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

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BIOS",,48)

For Each objItem in colItems

Wscript.Echo "SerialNumber: " & objItem.SerialNumber 

Next

Ich versuche jetzt schon seit längerem die Ausgabe in eine Textdatei im Netzwerk zu realisieren, leider scheitert das.

Kann mir jemand sagen wie ich die Daten in eine Textdatei umleite?

Hba mir das so vorgestellt das Hostname und Seriennummer in eine cvs Datei geschrieben wird.

Danke für eure Hilfe

[erax]

strComputer = "."

Set fso = CreateObject("Scripting.FileSystemObject")

Set oFile = fso.OpenTextFile("C:\tmp\log.txt",8,true)

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

Set colItems = objWMIService.ExecQuery( _

"SELECT * FROM Win32_BIOS",,48)

For Each objItem in colItems

oFile.WriteLine "SerialNumber: " & objItem.SerialNumber

Next

Gruß erax

[disarstar]

elegant gelöst

vielen dank