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