Discussion :

[ponpon17430]

Bonjour,

J'essaie de faire en sorte que des ordinateurs s'éteignent lors du logoff de l'utilisateur.
Pour cela, je récupère le nom de la machine et ensuite je lance un runas
Mon problème est que la commande ne fonctionne pas correctement voici ce que j'ai en 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
 
Sub Shutdown_Now()
Set WshShell = CreateObject("WScript.Shell" ) 
computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%" )
strcommand = "c:\windows\system32\shutdown -r"
Dim I
I = MsgBox("L'ordinateur va s'éteindre !", vbOKCancel)
If I = vbOK Then
else
Dim Shell
Set Shell = createObject("wscript.shell")
shell.run "CMD /K runas /user:"& computername & "administrateur"& strcommand
End If
End Sub

Merci d'avance pour votre aide

[hackoofr]

Tout d'abord il faut bien vérifier la syntaxe de la commande Runas
Donc j'ai fait vite cette modification sans vérification et c'est à vous de le vérifier et de me dire s'il marche chez vous ou non

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
Sub Shutdown_Now()
Dim Question,Titre,strcommand,Resultat
Set WshShell = CreateObject("WScript.Shell" ) 
Titre = "Shutdown"
computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
strcommand = "& Shutdown -r"
Question = MsgBox("Voulez-vous éteindre l'ordinateur maintenant ?", vbOKCancel+32,Titre)
If Question = vbOK Then
Command = """CMD /C runas /user:"& computername & "\administrateur "& strcommand &""""
MsgBox Command,64,Titre
Resultat = WshShell.Run(Command,0,True)
else
exit sub
End If
End Sub
Call Shutdown_Now

[hackoofr]

voila un exemple testé qui vous montre comment afficher le contenu de votre lecteur c:\ par deux méthodes une avec affichage de la fenêtre Dos et l'autre sans affichage de la fenêtre Dos.

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
Sub AffichContenu()
Dim Question,Titre,strcommand,Resultat
Set WshShell = CreateObject("WScript.Shell" ) 
Titre = "AffichContenu"
strcommand1 = "& Dir"'commande1 a passer pour lister le contenu de C:\
Strcommand2 = "& Dir > c:\contenu.txt"'Commande2 a passer avec redirection dans le fichier c:\contenu.txt
Question = MsgBox("Voulez-vous afficher le contenu de votre lecteur C:\ ?", vbOKCancel+32,Titre)
If Question = vbOK Then
Command1 = "CMD /K CD c:\ "& strcommand1 &"" 
Command2 = "CMD /C CD c:\ "& strcommand2 &""
MsgBox Command1 & vbcr & Command2,64,Titre
Resultat1 = WshShell.Run(Command1,1,True)' avec affichage du la fenêtre Dos
Resultat2 = WshShell.Run(Command2,0,True)' sans affichage du la fenêtre Dos
else
exit sub
End If
End Sub
Call AffichContenu

[ponpon17430]

Merci la première solution ne fonctionne pas,
En revanche j'ai modifier le code de la seconde fonction et ca passe en local.

Maintenant je vais tester via une gpo.

[hackoofr]

Merci la première solution ne fonctionne pas,
En revanche j'ai modifier le code de la seconde fonction et ca passe en local.
Maintenant je vais tester via une gpo.

Pourriez-vous poster le code que vous avez modifié pour voir plus clair

[ponpon17430]

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
 
Sub AffichContenu()
Dim Question,Titre,strcommand,Resultat
Set WshShell = CreateObject("WScript.Shell" ) 
Titre = "AffichContenu"
computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
 
strcommand1 = "& shutdown -r"'commande1 a passer pour lister le contenu de C:\
 
Question = MsgBox("Voulez-vous afficher le contenu de votre lecteur C:\ ?", vbOKCancel+32,Titre)
 
If Question = vbOK Then
Command1 = "CMD /K runas /user:"& computername & "\admin  c"& strcommand1 &""
 
Resultat1 = WshShell.Run(Command1,1,True)' avec affichage du la fenêtre Dos
Wscript.Sleep 1000 
shell.SendKeys "password"
else
exit sub
End If
End Sub
Call AffichContenu

Mais en fait la commande shutdown ne peut pas etre utilisé lors d'un logoff via une gpo.
Je vais plutot me pencher sur une autre solution comme utiliser "Win32Shutdown"