Discussion :

[Richard_35]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Richard_35]

Bonjour à tous les contributeurs,

La solution, qui peut servir à tout le monde :

Il suffit de faire une boucle "While" :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
While oShell.AppActivate(Title) <> True
    WScript.Sleep(100)
Wend
oShell.Sendkeys "MotDePasse~"

Richard.