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