Discussion :

[ybezier]

Bonjour à tous,

J'ai développer un script en VBS qui permet d'ouvrir une application (Sage pour ne pas la nommée).
Cette application nécessite un user et mot de passe.
Je passe ces via :

Code :

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

1
2
3
Set oSheel = Wscript.CreateObject("Wscript.Shell")
sUser = "Administrateur"
sPwd = "monPswd"

et l'instruction oSheel.SendKeys

Quand je lance se script "à la main", tous fonctionne
Quand je lance se script "à la main" à partir d'une tache planifiée, tous fonctione

Quand je verrouille ma session et que mon script se lance via une tache planifiée :
- l'application se lance bien
- mais elle ne prend pas le focus
- Donc, toutes les sendkeys que je peux envoyer ensuite ne sont pas prises.

Je rame sur ce point depuis plusieurs heures et j'ai essayé plein de trucs du style :
forcer un alt+tab
forcer la prise de focus par l'instruction : oSheel.AppActivate...
mais rien n'y fait, cette fenêtre ne prend jamais le focus

Contexte
il n'y a aucune autre application d'ouverte
je suis en windows 8.1

Quelqu'un aurait-il une idée ?

Merci
Yb

[l_autodidacte]

et si tu essaie :

Code :

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

WshShell.AppActivate("mets_ici_le_Nom_de_l'application")

[ybezier]

et si tu essaie :

Code :

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

WshShell.AppActivate("mets_ici_le_Nom_de_l'application")

Si j'avais essayé cette instruction.
En fait, lors que le pc est en session verrouillée, sendkey.... n'ont aucune action.

Merci quand même.
Yb

[l_autodidacte]

Je voulais dire : juste après l'appel de l'application puis envoyer la séquence de touches voulues.

Sinon essaie de déverrouiller la session avant le lancement de l'application puis la verrouiller à la fin(le tout par le script lui-même).

[ybezier]

Je voulais dire : juste après l'appel de l'application puis envoyer la séquence de touches voulues.

Sinon essaie de déverrouiller la session avant le lancement de l'application puis la verrouiller à la fin(le tout par le script lui-même).

J'ai aussi essayé de placer cette instruction juste après l'ouverture de mon application avec une tempo +/- longue.
Par contre, tu me parles de script pouvant déverrouiller et verrouiller une session ?
J'ai bien trouver l'instruction permettant de re verrouiller une session, mais par contre l'instruction pour la déverrouiller impossible à trouver.
Si tu as une idée ?

Merci
Yb

[l_autodidacte]

Il y a ce script qui peut déverrouiller une session :

Code :

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

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
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Option Explicit         '--- Force variable declarations for safety!
Dim objArguments, objUser, strDomainOrHost, strUsername, strName, cUserFlags
Const UF_LOCKOUT = &H0010
 
Set objArguments = WScript.Arguments
If(objArguments.Count < 2) Then
   Call Usage()
End If
 
strDomainOrHost = objArguments(0)
strUsername = objArguments(1)
 
set objUser = GetObject("WinNT://" & strDomainOrHost & "/" & strUserName & ",User")
 
strName = objUser.Get("FullName")
cUserFlags = objUser.Get("UserFlags")
 
If(cUserFlags And UF_LOCKOUT) Then
 
   objUser.Put "UserFlags", objUser.Get("UserFlags") Xor UF_LOCKOUT
   objUser.SetInfo
 
   cUserFlags = objUser.Get("UserFlags")
 
   If(cUserFlags And UF_LOCKOUT) Then
      WScript.Echo "User: " & strName & vbNewLine & "Unlock FAILED:-("
   Else
      WScript.Echo "User: " & strName & vbNewLine & "Unlock SUCCESSFUL:-)"
   End If
 
Else
 
   WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out."
 
End If
 
Set objArguments = Nothing
Set objUser = Nothing
 
WScript.Quit(1)
 
Sub Usage()
 
   WScript.Echo "Usage:" & vbNewLine & vbNewLine &_
                "c:\> unlckusr  DomainOrHostname  Username" & vbNewLine & vbNewLine &_
                "DomainOrHostname: Domain -or- hostname where the target account resides." &_
                vbNewLine & vbNewLine &_
                "Username: Target user account that's locked out."
 
   WScript.Quit(0)
 
End Sub