Créer un fichier .txt

Bonjour
je voudrai créer un fichier .txt sur le pc qui exécute le script, et pas sur le serveur
j'arrive a créer le fichier.txt sur le serveur, mais comment faire pour qu il se créer sur le pc
Code:

1 2 3 4 5 6 7 8 <% Const ForWriting = 2 Dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.OpenTextFile("C:\test.txt", ForWriting,true) f.write("ceci est un test") %>
Merci d'avance