Problème de fenêtre active en VB Script.
Bonjour à tous,
Je sèche lamentablement depuis plusieurs jours sur un problème de VBScript déclenché au logon des PC de notre réseau.
Voici le petit script concerné :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13
| Option explicit
dim oShell, Programme, Title
set oShell= Wscript.CreateObject("WScript.Shell")
Programme = wscript.arguments(0)
'wscript.echo "Variable : " & Programme
oShell.Run "runas /user:starinvest\administrateur " & Programme, 1
Title=oshell.ExpandEnvironmentStrings("%systemroot%") & "\system32\runas.exe"
oShell.AppActivate Title
WScript.Sleep 100
oShell.Sendkeys "xxxxxxxxxx~"
Wscript.Quit |
Sur certains PC et/ou à certains démarrages, la "fenêtre DOS" qui demande le mot de passe administrateur reste affichée. Il s'agit, sûrement, d'un problème de repérage de la fenêtre active lors du lancement des processus de démarrage de sessions (anti-virus, etc...).
Existe-t-il un moyen fiable de "choper" cette fenêtre, quel que soit les
applications lancées au démarrage et la performance des PC ?
Merci d'avance de vos conseils,
Richard.
Problème de fenêtre active en VB Script.
Bonjour à tous les contributeurs,
La solution, qui peut servir à tout le monde :
Il suffit de faire une boucle "While" :
Code:
1 2 3 4
| While oShell.AppActivate(Title) <> True
WScript.Sleep(100)
Wend
oShell.Sendkeys "MotDePasse~" |
Richard.