bug dans vbscript

Bonjour,

j'ai une erreur dans le script suivant, et je n'arrive pas à le résoudre..
quelqu'un aurait-il une idée ?

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("\\bspwnt67\prog$\Annuaire\annuaire.csv") Then ' Le fichier existe t'il ?
    Set source = objFSO.GetFile("\\bspwnt67\prog$\Annuaire\annuaire.csv")
    Set destination = objFSO.GetFile("c:\temp\annuaire.csv")
    if source.DateLastModified > destination.DateLastModified Then
        'création de l'objet Shell
        Set objWshShell = WScript.CreateObject("WScript.Shell")
        objWshShell.Run "cmd /c C:\scripts\maj_auto.bat",0,true
    end if
End If
Set objFSO = Nothing
Set destination = Nothing
Set objWshShell = Nothing
Set source = Nothing

Ce script compare deux fichiers (mise à jour d'un annuaire) et exécute la mise à jour si le fichier sur le réseau est plus récent...
mais vbscript me renvoie une erreur 80040111 ligne 7 ClassFactory ,e peut fournir la classe demandée...

qué pasa ?
à++

salut,

ton script ne serait pas dans une page php et classfactory une class ?
(à tout hasard..)

---

Prenez un instant pour répondre à ce sondage svp

Hello,

Non ce script se lance via une tâche planifiée de Windows, et il me semble (je ne suis pas assez expert en vbscript pour l'affirmer) que WScript.Shell est simplement un objet de la bibliothèque vbscript...

merci de ta réponse en tout cas

tiens tu détruis à la fin mais tu ne déclares pas...

et çà donne quoi en lançant le BAT directement, sans CMD ?

Dim objFSO
Dim destination
Dim objWshShell
Dim Source

Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("\\bspwnt67\prog$\Annuaire\annuaire.csv") Then ' Le fichier existe t'il ?
    Set Source = objFSO.GetFile("\\bspwnt67\prog$\Annuaire\annuaire.csv")
    Set destination = objFSO.GetFile("c:\temp\annuaire.csv")
    If Source.DateLastModified > destination.DateLastModified Then
        'création de l'objet Shell
        Set objWshShell = WScript.CreateObject("WScript.Shell")
        objWshShell.Run "C:\scripts\maj_auto.bat", 0, True
    End If
End If

Set objFSO = Nothing
Set destination = Nothing
Set objWshShell = Nothing
Set Source = Nothing

---

Prenez un instant pour répondre à ce sondage svp