Vbs commandes successifs

Fermé
donhatem Messages postés 412 Date d'inscription vendredi 11 mai 2007 Statut Membre Dernière intervention 30 décembre 2009 - 1 févr. 2009 à 11:48
donhatem Messages postés 412 Date d'inscription vendredi 11 mai 2007 Statut Membre Dernière intervention 30 décembre 2009 - 1 févr. 2009 à 12:24
Bonjour,
j'ai ce code qui permet de faire une synchronisation puis connecter des lecteurs réseaux, le problème est que je ne veux pas que la commande de connxion démarre avant que la synchro soit finie et sur un AD la synchro ça prend du temps, j'ai utilisé la fonction sleep, mais elle n'est pas fiable dans ce cas ( car tout dépond de la quantité de fichier à synchroniser), voici le code et merci pour votre aide :

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "C:\WINDOWS\system32\Mobsync.exe"
WScript.Sleep 400
WshShell.AppActivate "Items to Synchronize"
WScript.Sleep 800
WshShell.SendKeys "{ENTER}"
WScript.Sleep 1000
WshShell.SendKeys "%S"
Set WSHShell = Nothing
Dim oNet
Set oNet = CreateObject("Wscript.Network")
oNet.MapNetworkDrive "Z:", "\\pc_personnel\c$"
WSCript.Quit

y a-t-il une fonction qui assure le démarrage de la deuxième commande que si la première est fini. Encore merci.

1 réponse

donhatem Messages postés 412 Date d'inscription vendredi 11 mai 2007 Statut Membre Dernière intervention 30 décembre 2009 46
1 févr. 2009 à 12:24
coucou ! pas d'aide ???
0