WMI probs

Hej alle!

Jeg prøver at få et VBS script til at løbe en liste af computere igennem og hente noget info fra dem...men jeg får en fejl når jeg prøver at køre mit script.

Fejlen lyder således:

C:\shrimp.vbs(12, 2) Der opstod en Microsoft VBScript-kørselsfejl: ActiveX-komponenten kan ikke oprette objektet: 'winmgmts:\\ALFA'

og koden ser således ud:

Dim oDomain, oItem, oShell, strDomain, objFSO, objTextFile, colSettings, objComputer, objSysInfo, objWMIService
Dim objOperatingSystem, objProcessor, strComputer, colDiskPartitions, objPartition, IPConfigSet, IPConfig, i
Set oShell = CreateObject("WScript.Shell")
strDomain = InputBox("Enter domain name", "NT Domain")
Set oDomain = GetObject("WinNT://" & strDomain)
oDomain.Filter = Array("Computer")
For Each oItem In oDomain

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("c:\hardware.txt", 2, True)

Set objWMIService = GetObject("WinMgmts://" & oItem.Name & "/root/cimv2")
'Set objWMIService = CreateObject("winmgmts:{impersonationLevel=impersonate}!\\" & oItem.Name & "\root\wmi")

Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
  Set objSysInfo = CreateObject("ADSystemInfo")
  objTextFile.WriteLine("[" & strDomain  & "\" & oItem.Name & "]")
Next

Set colSettings = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colSettings
  objTextFile.WriteLine("1:" & objOperatingSystem.Caption)
Next

Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings
  objTextFile.WriteLine("2:" & round(((objComputer.TotalPhysicalMemory/1024)/1024)/1024, 2) & "GB")
Next

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & oItem.Name & "\root\cimv2")
Set colDiskPartitions = objWMIService.ExecQuery("Select * from Win32_DiskPartition")
For each objPartition in colDiskPartitions
  objTextFile.WriteLine("3:" & round((((objPartition.Size/1024)/1024)/1024), 1) & "GB")
Next

Set colSettings = objWMIService.ExecQuery ("Select * from Win32_Processor")
For Each objProcessor in colSettings
  objTextFile.WriteLine("4:" & objProcessor.MaxClockSpeed & " Mhz " & objProcessor.Name)
Next

Set objWMIService = GetObject("winmgmts:\\" & oItem.Name & "\root\cimv2")

Next


Hjæææælp :)

Mvh

Jesper