Reboot distant

Bonjour à tous,

J'ai créé pour mes besoins une petite appli pour pouvoir rebooter des machines XP à distance.
Le problème est que j'utilise le code suivant:
WshShell = CreateObject("WScript.Shell")
str_boot = "shutdown -f -t 0 -r -m \\" & server
oExec = WshShell.Exec(str_boot)
(avec server qui est le nom du serveur à rebooter) et que forcément ça m'ouvre une fenetre DOS pour le reboot.
Sachant que j'ai l'IP et le nom de la machine, n'y a t'il pas un moyen de lancer la commande shutdown directement sans que j'ouvre un shell?

Merci bien.

Quel sont les variables que tu as déclaré
David

dim server
server = inputbox("entrer ip ou nom du poste distant :", "rectification by kayajiro")
WshShell = CreateObject("WScript.Shell")
str_boot = "shutdown -f -t 0 -r -m \\" & server
oExec = WshShell.Exec(str_boot)