[VBS] Empecher la fermeture de la fenetre Dos

Bonjour, je suis en train de réaliser un script en vb, ce script envoie une commande sous dos, mais je n'ai pas de temps de voir ce qu'il se passe, la fenêtre se ferme toute seule. Qu'elle est la commande pour laisser la fenêtre ouvert, je cherche sur le net je trouve pas.
merci :?

eventuellement si c un fichier batch mais un @pause à la fin

Ou alors si c un executable, tu décoche "fermer en quittant" dans les propriétés du fichier executable

voila la commande qui ouvre la console dos :

Code:

---

objShell.Run "cmd.exe /c psshutdown -u administrateur -p **** -s \\d25-14"

---

le @pause ne marche pas sous vbscript

Va dans les propriétés du fichier executable psshutdown et tu cherche une option fermer en quittant...

Ou alors au lieu de lancer directement le fichier tu lance un batch cad un fichier avec une extension ".bat" qui contient ceci:

Code:

---

1 2 3

psshutdown -u administrateur -p **** -s \\d25-14 @pause

---

et dans ton vbscript :

objShell.Run "cmd.exe /c nomdufichierbatch"

En faite je t'explique, je suis administrateur réseau et je suis en train de faire un script qui permet d'eteindre tout les PC d'un OU. Ce script va chercher tout les ordinateurs de cette OU et leur balance un par un la commande psshutdown.
Le \\d25-14 que tu vois est en faite le nom d'un PC dans la cette salle. Je fais ça pour ne pas éteindre tout les pc du lycée lol.
Voici le code :

Code:

---

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 33

PUBLIC net, fso, shell, temps Set net = Wscript.CreateObject("WScript.Network" ) Set fso = WScript.CreateObject("Scripting.FileSystemObject") Set Shell = Wscript.CreateObject("WScript.Shell") temps = 600     Const ADS_SCOPE_SUBTREE = 2   Set objConnection = CreateObject("ADODB.Connection") Set objCommand = CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider"   Set objCOmmand.ActiveConnection = objConnection objCommand.CommandText = "Select Name, Location from 'LDAP://OU=Multipass,OU=Stations,DC=****,DC=*******,DC=com' " & "Where objectClass='computer'" objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Set objShell = Wscript.CreateObject("Wscript.Shell" ) Do Until objRecordSet.EOF   ordinateur = objRecordSet.Fields("Name") wscript.echo ordinateur objShell.Run "cmd.exe /c psshutdown -u administrateur -p **** -s //"& ordinateur   ' WScript.Echo "machine " & ordinateur & " en cours d'extinction."   ' Wscript.Echo "Computer Name: " & objRecordSet.Fields("Name").Value ' Wscript.Echo "Location: " & objRecordSet.Fields("Location").Value objRecordSet.MoveNext Loop

---

La variable ordinateur contient le nom de l'ordinateur à éteindre et donc tout ça est dans une boucle. C'est pour ça que je ne peux pas utiliser le batch. Je sais pas si j'ai été claire.
ps: psshutdown il n'y pas la possible d'empêcher la fermeture.

dans un batch on peut passer des parametres non?

On peut transmettre jusqu'à neuf paramètres aux fichiers batch.

Code:

---

objShell.Run "cmd.exe /c NomdufichierBatch " & ordinateur

---

et hop dans le batch

Code:

---

1 2	psshutdown -u administrateur -p **** -s \\%1 @pause

---

essaye cmd/K o lieu de cmd/C
voila ma tite aide