Bug dans vbscript

cs_glad Messages postés 97 Date d'inscription lundi 26 novembre 2001 Statut Membre Dernière intervention 24 février 2012 - 8 avril 2008 à 11:46
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 - 9 avril 2008 à 09:13
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 ?
à++

3 réponses

PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
8 avril 2008 à 17:03
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
0
cs_glad Messages postés 97 Date d'inscription lundi 26 novembre 2001 Statut Membre Dernière intervention 24 février 2012
9 avril 2008 à 07:51
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
0
PCPT Messages postés 13280 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 49
9 avril 2008 à 09:13
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

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
0