Probleme récupération des erreurs

Bonjour,
mon code doit lancer des taches planifiées sur des serveurs distants. Cela fonctionne lorsque la commande est bien écrite. Mais lorsque la commande comporte une erreur, je ne reçois aucune notification de l'erreur.
(par exemple, si je lance un mauvais mot de passe, rien ne me le précise...)

Voilà le code:

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
....
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
..........

Je ne sais comment obtenir les erreurs provenant sCmd...
Merci d'avance pour votre aide,
Noche