Erreur : Objet requis: "

Résolu
laboon91 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -  
laboon91 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour Messieurs,

J'explique rapidement mon problème.
Je crée un fichier depuis un Vbscript, j’essaie d’insérer des données dans le fichier mais j'ai un message d'erreur (erreur : Objet requis: "), qui ne me parle pas. Sachant que j'utilise la même syntaxe pour divers fichiers sans problème.
ci-dessous mon code, espérant avoir été clair dans mes explications

If not fso.FileExists(StrSOFTWARE) Then
set ts = fso.CreateTextFile(StrSOFTWARE)
end if

WLog = "echo >>"& StrAttachement& VbNewLine &_
"echo ------------------ WHO'S LOGGED ON : "& strComputerName &" -----------"& date &" : "& time &"----------- "& RepArchive &">>"& StrAttachement& VbNewLine &_
"echo" & VbNewLine &_
"psloggedon.exe -accepteula >>"& StrAttachement& VbNewLine &_
"echo" & VbNewLine &_
"echo ------------------ SOFTWARE INSTALLED : "& strComputerName &" -----------"& date &" : "& time &"----------- "& RepArchive &">>"& StrAttachement& VbNewLine &_
"psinfo.exe -s -h -d -accepteula >>"& StrAttachement& VbNewLine &_
"echo >>"& StrAttachement& VbNewLine

ts.WriteLine WLog

ts.Close


Merci pour vos réponses

1 réponse

mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention   102
 
Salut

fso.FileExists(StrSOFTWARE)
te renvoie quoi ?

Car si c'est true alors tu n'initialises pas ts.

--
0
laboon91 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention  
 
je ne pas bien compris ta question !

en faite la variable a comme valeur

StrSOFTWARE = strPathDir &"\Working\Soft.bat"


comment testé ce que renvoi
fso.FileExists(StrSOFTWARE)
0
mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention   102
 
Ton code, il passe dans le if ou pas ?

si tu mets un MsgBox dans le if, il l'affiche ?

En gros : si tu passes dans le if : je ne sais pas pourquoi ça marche pas.
S'il ne passe pas dans le if (donc que le fichier Soft.bat existe déjà), tu n'initialises pas la variable ts.

il faudrait essayer de rajouter un

If not fso.FileExists(StrSOFTWARE) Then
set ts = fso.CreateTextFile(StrSOFTWARE)
Else
set ts = fso.OpenTextFile(StrSOFTWARE)
end if

0
laboon91 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   > mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention  
 
J'ai trouver d’où viens le problème pblm, en effet la condition avec IF est true et donc n'initialise pas ts.
Je fais du copié collé bête et méchant depuis plusieurs de mes lignes donc je n'avais pas fait attention à cette condition.

Merci encore mrjenkins, sans toi je n'aurai pas cherché au bon endroit.
0
mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention   102
 
C'est ce que je dis depuis le début ;) ts est pas toujours initialisé =)

Pas de quoi, bon courage ^^
0
laboon91 Messages postés 7 Date d'inscription   Statut Membre Dernière intervention   > mrjenkins Messages postés 580 Date d'inscription   Statut Membre Dernière intervention  
 
thanks
0