Query Wmi en remote

Bonjour à tous
Avis à un expert VB ou WMI ou WSH enfin bref ...
J' essaye de faire tourner
le script WMI ci dessous en passant en parametre le nom de la machine distante que je veux interroger
Mon Pb c'est que ça marche sur plusieurs machines et que ça ne marche pas sur plusieurs autres ????
Les machines sont toutes des Windows 2000 dans le meme domaine et je suis admin du domaine.
Je ne sais plus ou chercher
donc si vous avez une autre methode ou une idée
Merci pour votre Aide.
exemple ->

On Error Resume Next
' commentaire
Dim WshShell
Dim server
Dim myfile
Dim strComputer
Set WshShell = WScript.CreateObject("WScript.Shell")
Set server = WScript.Arguments
If server.Count < 1 Then
strComputer = InputBox("Entrer le nom de l'ordinateur cible","Serial Number")
Else
strComputer = server(0)
End if
myfile = strComputer

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile( myfile, 8, True)

For Each objItem in colItems
objTextFile.WriteLine "BootDevice: " & objItem.BootDevice
objTextFile.WriteLine "BuildNumber: " & objItem.BuildNumber
objTextFile.WriteLine "BuildType: " & objItem.BuildType
objTextFile.WriteLine "Caption: " & objItem.Caption
objTextFile.WriteLine "CodeSet: " & objItem.CodeSet
objTextFile.WriteLine "CountryCode: " & objItem.CountryCode
objTextFile.WriteLine "CreationClassName: " & objItem.CreationClassName
objTextFile.WriteLine "CSCreationClassName: " & objItem.CSCreationClassName
objTextFile.WriteLine "CSDVersion: " & objItem.CSDVersion
objTextFile.WriteLine "CSName: " & objItem.CSName
objTextFile.WriteLine "CurrentTimeZone: " & objItem.CurrentTimeZone
objTextFile.WriteLine "Debug: " & objItem.Debug
objTextFile.WriteLine "Description: " & objItem.Description
objTextFile.WriteLine "Distributed: " & objItem.Distributed
objTextFile.WriteLine "EncryptionLevel: " & objItem.EncryptionLevel
objTextFile.WriteLine "ForegroundApplicationBoost: " & objItem.ForegroundApplicationBoost
objTextFile.WriteLine "FreePhysicalMemory: " & objItem.FreePhysicalMemory
objTextFile.WriteLine "FreeSpaceInPagingFiles: " & objItem.FreeSpaceInPagingFiles
objTextFile.WriteLine "FreeVirtualMemory: " & objItem.FreeVirtualMemory
objTextFile.WriteLine "InstallDate: " & objItem.InstallDate
objTextFile.WriteLine "LargeSystemCache: " & objItem.LargeSystemCache
objTextFile.WriteLine "LastBootUpTime: " & objItem.LastBootUpTime
objTextFile.WriteLine "LocalDateTime: " & objItem.LocalDateTime
objTextFile.WriteLine "Locale: " & objItem.Locale
objTextFile.WriteLine "Manufacturer: " & objItem.Manufacturer
objTextFile.WriteLine "MaxNumberOfProcesses: " & objItem.MaxNumberOfProcesses
objTextFile.WriteLine "MaxProcessMemorySize: " & objItem.MaxProcessMemorySize
objTextFile.WriteLine "Name: " & objItem.Name
objTextFile.WriteLine "NumberOfLicensedUsers: " & objItem.NumberOfLicensedUsers
objTextFile.WriteLine "NumberOfProcesses: " & objItem.NumberOfProcesses
objTextFile.WriteLine "NumberOfUsers: " & objItem.NumberOfUsers
objTextFile.WriteLine "Organization: " & objItem.Organization
objTextFile.WriteLine "OSLanguage: " & objItem.OSLanguage
objTextFile.WriteLine "OSProductSuite: " & objItem.OSProductSuite
objTextFile.WriteLine "OSType: " & objItem.OSType
objTextFile.WriteLine "OtherTypeDescription: " & objItem.OtherTypeDescription
objTextFile.WriteLine "PAEEnabled: " & objItem.PAEEnabled
objTextFile.WriteLine "PlusProductID: " & objItem.PlusProductID
objTextFile.WriteLine "PlusVersionNumber: " & objItem.PlusVersionNumber
objTextFile.WriteLine "Primary: " & objItem.Primary
objTextFile.WriteLine "ProductType: " & objItem.ProductType
objTextFile.WriteLine "QuantumLength: " & objItem.QuantumLength
objTextFile.WriteLine "QuantumType: " & objItem.QuantumType
objTextFile.WriteLine "RegisteredUser: " & objItem.RegisteredUser
objTextFile.WriteLine "SerialNumber: " & objItem.SerialNumber
objTextFile.WriteLine "ServicePackMajorVersion: " & objItem.ServicePackMajorVersion
objTextFile.WriteLine "ServicePackMinorVersion: " & objItem.ServicePackMinorVersion
objTextFile.WriteLine "SizeStoredInPagingFiles: " & objItem.SizeStoredInPagingFiles
objTextFile.WriteLine "Status: " & objItem.Status
objTextFile.WriteLine "SuiteMask: " & objItem.SuiteMask
objTextFile.WriteLine "SystemDevice: " & objItem.SystemDevice
objTextFile.WriteLine "SystemDirectory: " & objItem.SystemDirectory
objTextFile.WriteLine "SystemDrive: " & objItem.SystemDrive
objTextFile.WriteLine "TotalSwapSpaceSize: " & objItem.TotalSwapSpaceSize
objTextFile.WriteLine "TotalVirtualMemorySize: " & objItem.TotalVirtualMemorySize
objTextFile.WriteLine "TotalVisibleMemorySize: " & objItem.TotalVisibleMemorySize
objTextFile.WriteLine "Version: " & objItem.Version
objTextFile.WriteLine "WindowsDirectory: " & objItem.WindowsDirectory
Next