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
| ....
Set fso = Wscript.createObject("Scripting.FileSystemObject")
Set oShell = Wscript.createObject("Wscript.Shell")
....
'Lancement du fichier
Set oInput = fso.openTextFile(scriptPath & "input.txt",1,False)
Do Until oInput.AtEndOfStream
sRead = oInput.readline
If left(sRead, 1) <> "'" Then
If InStr(sRead,";") > 0 And Left(sRead,1) <> "'" Then
array_Server = Split(sRead,";")
If UBOUND(array_Server) < 1 Then
Wscript.quit
End If
err.clear
genMinutes
strServer = array_Server(0)
DomainControl=DC(strServer)
'Wscript.echo DomainControl
sCmd="schtasks /create /tn Task /tr \\toto\truc.cmd /sc daily /st 05:11:00 /s "& strServer &" /u domain\login /p """& sPassword &""""
wscript.echo sCmd
sCmd=sCmd & ">" & cfile
Wscript.echo sCmd
sReturn =oShell.Run(sCmd,0,True)
If err <> 0 Then 'ou sReturn <> 0
MsgBox ("Erreur N°" & CStr(Err.Number) & " " & err.Description)
echo err.Number & " " & err.Description
End if
End If
End If
Loop
.......... |
Partager