Pb de focus en tache planifiée et session vérouillée

Version imprimable

24/09/2014, 06h01
ybezier

Pb de focus en tache planifiée et session vérouillée
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:

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
24/09/2014, 18h53
l_autodidacte

et si tu essaie :

Code:

WshShell.AppActivate("mets_ici_le_Nom_de_l'application")
25/09/2014, 13h47
ybezier

Citation:

Envoyé par l_autodidacte

et si tu essaie :

Code:

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
25/09/2014, 16h37
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).
26/09/2014, 00h17
ybezier

Citation:

Envoyé par 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).

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

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

Code:

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

Citation:

Envoyé par l_autodidacte

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

Code:

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

Bonjour,

Merci pour toutes ces infos,
J'ai appliqué ce script mais je n'ai pas le résultat attendu.

Quand je lance ce script via une tâche planifiée et que ma session est verrouillée, il ne me la déverouille pas.
Pour comprendre ce script, j'écrit dans un fichier text les deux variables à savoir :
cUserFlags & " " & UF_LOCKOUT
Le résultat est : 66049 16

Si je comprend bien le script, il devrait exécuter l'instruction :

Code:

1
2
3
4
5
6
  objUser.Put "UserFlags", objUser.Get("UserFlags") Xor UF_LOCKOUT
 
' alors qu'il exécute l'instruction :
Else
      WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out."
End If

Aurais-je loupé une étape ?
Merci
Yb

27/09/2014, 18h40
l_autodidacte
Si la condition sur le flag n'est pas remplie, l'exécution se poursuit avec :
WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out.".
Ce qui veut dire que la session n'est pas verrouillée.

Mais au fait, comment passes-tu les 2 paramètres "DomainOrHostname" et "Username" au fichier ?
Pour test, j'ai créé un autre script qui lance celui de déverrouillage ainsi :
Code:

1 2 Set WS = CreateObject("WScript.Shell") WS.Run "Unlckusr.vbs Nom_Machine Nom_user"
et cela fonctionne.
28/09/2014, 00h13
ybezier
Citation:
Envoyé par l_autodidacte

Si la condition sur le flag n'est pas remplie, l'exécution se poursuit avec :
WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out.".
Ce qui veut dire que la session n'est pas verrouillée.

Mais au fait, comment passes-tu les 2 paramètres "DomainOrHostname" et "Username" au fichier ?
Pour test, j'ai créé un autre script qui lance celui de déverrouillage ainsi :

Code:

1 2 Set WS = CreateObject("WScript.Shell") WS.Run "Unlckusr.vbs Nom_Machine Nom_user"

et cela fonctionne.
Bonjour,

J'ai utilisé ton dernier script "WS.Run "Unlckusr.vbs ..." en prenant soin de reprendre intégralement ton 1èer script et de le sauvegarder dans Unlckusr.vbs"
Quand je le lance à la main (donc session active), il fonctionne et exécute l'instruction :
WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out."

Par contre quand je le lance via tache planifiée et session verrouillée, il affiche également l'instruction ci-dessus.

Précisions
quand je parle de session verrouillée c'est quand j'utilise, par exemple, la touche "windows + L"
Je suis sur un windows 8.1 mais sur un XP sp3 j'ai le même fonctionnement.
Quand tu dis que ton script fonctionne, quel en est le résultat : Il "ré" ouvre automatiquement la session ? avec quel mot de passse ? et ensuite il affiche le bureau de l'utilisateur ?

Je commence à désespérer.
Merci
Yb
01/10/2014, 00h02
ybezier

Citation:

Envoyé par ybezier

Bonjour,

J'ai utilisé ton dernier script "WS.Run "Unlckusr.vbs ..." en prenant soin de reprendre intégralement ton 1èer script et de le sauvegarder dans Unlckusr.vbs"
Quand je le lance à la main (donc session active), il fonctionne et exécute l'instruction :
WScript.Echo "User: " & strName & vbNewLine & "User Account IS NOT Locked Out."

Par contre quand je le lance via tache planifiée et session verrouillée, il affiche également l'instruction ci-dessus.

Précisions
quand je parle de session verrouillée c'est quand j'utilise, par exemple, la touche "windows + L"
Je suis sur un windows 8.1 mais sur un XP sp3 j'ai le même fonctionnement.
Quand tu dis que ton script fonctionne, quel en est le résultat : Il "ré" ouvre automatiquement la session ? avec quel mot de passse ? et ensuite il affiche le bureau de l'utilisateur ?

Je commence à désespérer.
Merci
Yb

Help !!! je désespère...