CSCRIPT ne semble pas fonctionner
Bonjour,
J'ai un user qui ne semble pas pouvoir lancer CSCRIPT.
J'ai créé un petit CMD :
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
| 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:
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:
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
