Scriptproblem mit <> 2000/XP

[memnon 10]

Scriptproblem mit <> 2000/XP

also hab mir folgendes Script erstellt:

 

'On Error Resume Next

strComputer = "."

 

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

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

For Each objItem in colItems

modell=objItem.Vendor & " " & objItem.Name & chr(13) & "Seriennummer: " & objItem.IdentifyingNumber

Next

 

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

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

For Each objItem in colItems

if objItem.Caption = "C:" then festplatte= objItem.Caption & " " & Round(objItem.FreeSpace /1024 /1024 /1024, 2) & " / " & Round(objItem.Size /1024 /1024 /1024,2) & " GByte"

Next

 

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

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

For Each objItem in colItems

system= objItem.Name & ": " & objItem.CurrentClockSpeed & " Mhz"

Next

 

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

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

For Each objItem in colItems

speicher= "Gesamtspeicher (MB): " & objItem.TotalPhysicalMemory /1000

Next

 

 

Wscript.Echo modell & chr(13) & system & chr(13) & speicher & chr(13) & festplatte

 

 

Dieses Script liesst mir die wichtigesten Daten eines Rechners aus und ziegt sie mir (zur Zeit) am Bildschirm an.

 

Mein Problem dabei ist, das das leider nur unter XP und 2000 funktioniert, unter NT4, W9x gibts nur eine Fehlermeldung - leider...

 

meine Frage nun, ist jemand bekannt, wie ich zb unter Eingabeaufforderung an diese Daten kommen könnte, ergo nicht vbs....

 

Anhang: 1.jpg