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.
