Commande distante WMI shutdown erreur 462

Marsh Posté le 08-10-2010 à 11:15:37

Bonjour à tous,

J'utilise sur un serveur un script vbs qui permet d'éteindre les machines de mon parc tout les soirs afin de faire des économies d'énergie.

La partie du code utilisé pour éteindre chaque machine est la suivante:

Code :

Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}!\\" & _
Machine & "\root\cimv2" )
if Err.Number <> 0 then
MyFile.Writeline(Machine & Lib & "Erreur : " & Err.Number & " " & Err.Description)
Err.Clear
j = j + 1
else
Set cOS = oWMI.ExecQuery ("Select * from Win32_OperatingSystem" )
For Each oOS in cOS
oOS.Win32Shutdown(1)
Next
MyFile.Writeline(Machine & Lib & "Micro éteint à " & Time)
i = i + 1
end if

Avant d'entrer dans ce code, je fait un test de PING afin de voir si la machine est joignable sur le réseau.

Ca fonctionne sur une bonne partie des machines du parc.
Par contre, certaines machines ne s'éteignent pas et donne le message d'erreur suivant :
Erreur : 462 Le serveur distant n'existe pas ou n'est pas disponible

D'après ce que j'ai vu, ce serait un problème de RPC.

J'ai fait les test distants suivants:
- ping machine > OK
- sc \\machine query winmgmt > State : 4 Running
- telnet machine 135 > OK (les machines et le serveur sont sur le même VLan donc pas de Firewall intermédiaire)
- wbemtest.exe \\machine\root\cimv2 avec compte admin > marche pas sur les machines avec erreures (The RCP server is unavailable) | marche bien avec les autres machines

Les machines sont des postes XP.
Le serveur est un Windows 2000.

Auriez-vous une solution à ce problème ou bien d'autres tests à effectuer?

Merci.

Marsh Posté le 08-10-2010 à 11:15:37

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *