Discussion :

[ponpon17430]

Bonjour,

J'ai un script qui permet d'eteindre mes postes si personne n'est connectée dessus.
Je lance le script via un run as pour être connecté en admin du domain car je me connecte à distance.

Le script fonctionne parfaitement sous un environnement XP mais malheureusement, il ne fonctionne pas sous Windows 7.
Le script bloque au niveau "Set objWMIService" mais je ne trouve pas de solution
Pouvez-vous m'aider ?

Voici le script :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
Dim  strHost, objWMIService, objComputer, colComputer, colOperatingSystems, objOperatingSystem
 
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Ftxt = FSO.OpenTextFile("c:\Utilitaire\strhost.txt")
 
Do While Not Ftxt.AtEndOfStream
      strhost = Ftxt.Readline
Loop
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strhost & "\root\cimv2")
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputer
if isNull(objComputer.UserName) or objComputer.UserName = "" then
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate,(Shutdown)}!\\" & _
strhost & "\root\cimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
'ObjOperatingSystem.Reboot()
Next 
msgbox ("Le redémarrage de " & strHost & " est en cours")
else
 
msgbox("Redémarrage impossible " & objComputer.UserName & " est logué")
 
end if
Next

[l_autodidacte]

Bonjour;

Franchement, je ne vois pas comment cela pourrait marcher sous Win XP ou toute autre version de Windows et ce pour cause :
A partir de la ligne 13, le contenu de la variable strHost prend pour valeur la dernière ligne dans le fichier texte strHost.txt sauf si tu disposes d'un seul PC à piloter.

D'autre part, si tu travailles sous W7 64, il se peut que la référence ("Select * from Win32_ComputerSystem") , à mon avis, ne convient pas avec un système 64 bits.

Le code devrait être revu du point de vue structure(ordre des étapes à accomplir)

[ponpon17430]

Le fichier strhost contient 1 seule machine à la fois.

Je travaille sur des machines sous Windows 7 32bits

J'ai désactivé L'UAC sur la machine de test.
Si je fais apparaître des msgbox dans mon script, ca ne passe pas la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strhost & "\root\cimv2")

[ProgElecT]

Salut l_autodidacte et ponpon17430

Le fichier strhost contient 1 seule machine à la fois.

Donc tu peux enlever le Do While Not Ftxt.AtEndOfStream et le Loop qui laissait penser à un fichier de plusieurs lignes.

Si je fais apparaître des msgbox dans mon script, ça ne passe pas la ligne : Set objWMIService = GetObj.....

Le MsgBox strhost juste avant cette ligne te renseigne t-il correctement du contenu de cette variable ?
Si oui, enregistres ton script et dans la fenêtre de propriété, onglet Compatibilité coches la case Exécuter en mode de comptabilité pour, puis choisir: Windows XP (Service Pack 3) ou ..... (Service Pack 2).

[ponpon17430]

Je ne peux pas faire le mode de compatibilité car mon poste à moi est sous XP.
Concernant le fichier strhost oui il me renseigne bien le nom de la machine.

Je crois que j'ai oublié de dire que le script lancé sur une machine sous Windows 7 fonctionne.
Il y a QUE lorsque je veux le lancer depuis mon poste (XP) ca ne fonctionne pas pour tenter de me connecter sur une machine sous Windows 7


voici le message d'erreur :

Le serveur distant n'existe pas ou n'est pas disponible :'GetObject'
code 800A01CE

[omen999]

bonjour,
ton poste sous seven est-il bien configuré ?
voir ici