Pb avec scripting sous XP

voilà j'ai un pb avec bout de prog (pourtant simple) mais uniquement sous XP:


dim fs as filesystemobject
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine("Ceci est un test.")
a.Close

à la signe Set fs.. j'ai une erreur 429: l'activeX ne peut pas créer l'objet

j'ai pourtant tiré le code directement de la MSDN... :/
(il faut la référence microsoft scripting runtime de chargée)

si quelqu'un à déjà eu ce pb..

merci...

je sais c'est vieux mais y a pas de réponses sinon

as tu essayé avec une déclaration simple:
dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\fichiertest.txt", True)
a.WriteLine("Ceci est un test.")
a.Close

ceci en vbs
en vb6 (ou vba aussi je crois):
on met pas le "scripting" ça créé une erreur