Bonjour à tous, amis codeurs,
j ai un petit probleme avec ce code il ne fonctionne pas sur Windows XP

Liste est une chaîne
oScript est un objet Automation "MSScriptControl.ScriptControl"

MonScriptVBS est une chaîne = [

Function ScanInfos()
Dim objWMIService, colNetworkAdapters, objNetworkAdapter, sInfo

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
sInfo = ""
Set colNetworkAdapters = objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetworkAdapter In colNetworkAdapters
If sInfo <> "" Then sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "Adresse MAC : " & objNetworkAdapter.MACAddress
Next

Set colBaseBoard = objWMIService.ExecQuery("Select * from Win32_BaseBoard")

For Each objBaseBoard In colBaseBoard
If sInfo <> "" Then sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "N° Série Carte Mère : " & objBaseBoard.SerialNumber
Next

Set colProcessor = objWMIService.ExecQuery("Select * from Win32_Processor")

For Each objProcessor In colProcessor
If sInfo <> "" Then sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "ID Processeur : " & objProcessor.ProcessorID
Next

Set colDisk = objWMIService.ExecQuery("Select * from Win32_DiskDrive Where MediaType <> NULL")

For Each objDisk In colDisk
If sInfo <> "" Then sInfo = sInfo & Chr(13) & Chr(10)
sInfo = sInfo & "N° Série Disque : " & objDisk.SerialNumber
Next

ScanInfos = sInfo
End Function
]

oScript>>Language("VBScript")
oScript>>Reset
oScript>>AddCode(MonScriptVBS)
oScript>>Timeout(-1) //pas de timeout
sListe = oScript>>Run("ScanInfos") //Appel

Info(sListe)