Sur le résumé d'erreur après
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
arrComputers = rangée (« Computer1 », « Computer2 »)
Pour chaque strComputer dans les arrComputers
WScript.Echo
WScript.Echo « ========================================== »
Ordinateur de WScript.Echo « : » et strComputer
WScript.Echo « ========================================== »
Placer l'objWMIService = le GetObject (« winmgmts : \ \ » et strComputer et « \ racine \ CIMV2 »)
Placer les colItems = l'objWMIService.ExecQuery (« CHOISIR * À PARTIR de Win32_NetworkAdapter », « WQL », _
wbemFlagReturnImmediately + wbemFlagForwardOnly)
Pour chaque objItem dans les colItems
Légende de WScript.Echo « : » et objItem.Caption
WScript.Echo « MACAddress : » et objItem.MACAddress
Fabricant de WScript.Echo « : » et objItem.Manufacturer
Nom de WScript.Echo « : » et objItem.Name
WScript.Echo
Après
Après
|
