Erreur : Objet requis: "

Résolu
laboon91 Messages postés 7 Statut Membre -  
laboon91 Messages postés 7 Statut Membre -
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 611 Statut Membre 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 Statut Membre
 
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 611 Statut Membre 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 Statut Membre > mrjenkins Messages postés 611 Statut Membre
 
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 611 Statut Membre 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 Statut Membre > mrjenkins Messages postés 611 Statut Membre
 
thanks
0