bug dans vbscript

Question

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:	emp\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 ?
à++

PCPT · Answer

salut,

ton script ne serait pas dans une page php et classfactory une class ?
(à tout hasard..)

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

cs_glad · Answer

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

PCPT · Answer

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:	emp\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

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Bug dans vbscript

3 réponses

Votre réponse

Discussions similaires