CSCRIPT ne semble pas fonctionner

**xav2229** · 18/07/2013, 12h17

Bonjour,

J'ai un user qui ne semble pas pouvoir lancer CSCRIPT.
J'ai créé un petit CMD :

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
CD /D "C:\temP\auTOEG\"

CSCRIPT "debog.vbs" //T:60 //B //Nologo //H:CScript 1>"debog.1.out" 2>"debog.2.out"
ECHO RC %ERRORLEVEL% >> "debog.3.out"

ECHO SORTIE 1 DEBUT :  > "debog.out"
MORE "debog.1.out" >> "debog.out"
ECHO SORTIE 1 FIN  >> "debog.out"
ECHO ------- >> "debog.out"

ECHO SORTIE 2 DEBUT : >> "debog.out"
MORE "debog.2.out" >> "debog.out"
ECHO SORTIE 2 FIN  >> "debog.out"
ECHO ------- >> "debog.out"

ECHO RC DEBUT : >> "debog.out"
MORE "debog.3.out" >> "debog.out"
ECHO RC FIN  >> "debog.out"
ECHO ------- >> "debog.out"


ECHO VBS DEBUT : >> "debog.out"
MORE "debog.txt" >> "debog.out"
ECHO VBS FIN  >> "debog.out"
ECHO ------- >> "debog.out"

DEL /F "debog.1.out" "debog.2.out" "debog.3.out" "debog.txt"

et un petit VBS :

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
' VB Script Document
option explicit

On Error Resume Next
Dim objShell
Dim sInstalldir
Dim strPassword
Dim strDomainName
Dim strUserName

Dim fileSys                'Represents the FileSystem Object that lets you write files
Dim Contents               'Represents the file you are going to write.
Set fileSys = CreateObject("Scripting.FileSystemObject")
Set Contents = fileSys.OpenTextFile("C:\temP\auTOEG\debog.txt", 2, True)
Contents.WriteLine("Début VBS!!")

Set objShell = CreateObject("wscript.shell")
If Err.Number <> 0 Then
ErrorHandler Err,"objShell"
Contents.WriteLine("objShell probleme??!! " & Err.Number)
End If
Contents.WriteLine("objShell fait!! " & objShell)

strDomainName = objShell.ExpandEnvironmentStrings("%USERDOMAIN%")
If Err.Number <> 0 Then
ErrorHandler Err,"strDomainName"

End If
Contents.WriteLine("strDomainName fait!! " & strDomainName)

strUserName = objShell.ExpandEnvironmentStrings("%USERNAME%")
If Err.Number <> 0 Then
ErrorHandler Err, "strUserName "

End If
Contents.WriteLine("strUserName fait!! " & strUserName)

La sortie est KO, on peut constater un code retour à 1

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
SORTIE 1 DEBUT :  
SORTIE 1 FIN  
------- 
SORTIE 2 DEBUT : 
SORTIE 2 FIN  
------- 
RC DEBUT : 
RC 1 
RC FIN  
------- 
VBS DEBUT : 
VBS FIN  
-------

Si quelqu'un peut me donner une piste?
merci!

Xav

**sachadee** · 18/07/2013, 16h57

Salut,

essaye sans le commutateur //B et regarde quel message d'erreur tu reçois.

Amicalement

**xav2229** · 18/07/2013, 17h34

Pas mieux, tout pareil

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SORTIE 1 DEBUT :  
SORTIE 1 FIN  
------- 
SORTIE 2 DEBUT : 
SORTIE 2 FIN  
------- 
RC DEBUT : 
RC 1 
RC FIN  
------- 
SORTIE EGuide DEBUT : 
SORTIE EGuide FIN  
-------

Xav