[ERROR] 800A01AD - A l'exécution
Bonjour,
je suis en train de migrer une application sur un nouveau serveur.
l'ancien serveur est un Win Server 2003 R2 et le nouveau est un Win 2008 R2.
Au préalable, j'ai demandé à l'éditeur la compatibilité avec ce nouveau système. Il m'a répondu que c'était supporté.
Donc, je migre l'application mais également les interfaces de communication avec d'autres applications.
Ce sont des scripts VBS qui s'exécute toutes les 10 min.
Pour le moment, lorsque j'exécute à la main le script, j'ai un message d'erreur :
http://img15.imageshack.us/img15/6265/bgbiiefe.png
Voici le début du script :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
| 'Requête dans la console interface :
'FlagExport=0 order by DateMouvement,idproduit,code desc,type asc
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
Dim a
Set a = CreateObject("SCRIPTING.CConnectionDATAMEAL")
Dim Concept2
Set Concept2=CreateObject("SCRIPTING.ConceptCom")
'On créé une connection à la base de données
i=a.connecte(0,"USER","PASSWORD","LOCAL","D:\Datameal\Configuration-Site\dbcore.ini")
i=Concept2.CreeDynaConcept("PointDeLivraison","* from PointDeLivraison")
'Créer le nom du fichier
Set objTextFile = objFSO.OpenTextFile("D:\\FTP\\datameal\\export\\sortiecuis.txt",2,True)
'Set objTextFile = objFSO.OpenTextFile("c:\\interf\\gef\\sortiecuis.txt",2,True) |
Merci d'avance pour votre aide,
.Matt
