Discussion :

[wwwsfax]

Bonjour,

J'ai développé un script qui permet d'écrire un texte dans un fichier.
Je voudrais mettre ce fichier dans le dossier "Application data" de l'utilisateur en cours. Est ce qu'il y'a une fonction en VBScript qui me permet de récupérer le chemin de ce dossier ?
genre :
C:\Documents and Settings\nom_utilisateur\Application Data

Merci d'avance.

[pitchalov]

Bonjour.

Je pense que tu peux simplement utiliser la variable d'environnement UserName ou la propriété UserName de l'objet WshNetwork, qui te renvoient toutes les deux le nom de l'utilisateur courant.

Donc :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshShell = WScript.CreateObject("WScript.Shell")
strUserName = WshShell.ExpandEnvironmentStrings("%USERNAME%")

Ou :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set WshNet = CreateObject("WScript.Network")
strUserName = WshNet.Username

Puis tu le mets dans ta chaine qui contient le chemin de app data :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

strPath = "C:\Documents and Settings\" & strUserName  & "\Application Data"

Ca devrait normalement marcher.

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WshShell.ExpandEnvironmentStrings("%APPDATA%")

renvoi le chemin complet, sans risque de compilation d'un lecteur autre que C:\ (par exemple)

[pitchalov]

ProgElecT a parfaitement raison c'est beaucoup mieux. Bien joué.

[wwwsfax]

Problème résolu, Je tiens à vous remercier les deux.
Les deux solutions marchent parfaitement, bien que la deuxième solution est meilleur..

J’ai maintenant un autre problème !

En fait je veux que pour chaque visiteur de la page web que j’ai crée, un fichier soit enregistré dans le dossier Application data de son PC pour garder quelques informations qu’il a saisie. Le problème c’est que les paramètres de sécurités de l’intranet local d’internet explorer ne permettent pas d’exécuter mon script, et donc je ne peux pas créer le fichier souhaité sur le disque de chaque poste client.

Internet Explorer m’affiche cette erreur :
Un composant ActiveX ne peut pas créer un objet : 'Scripting.FileSystemObject'

Je dois baisser le niveau de sécurité de certaines options pour que le script soit exécuté, ce qui est pénible de le faire, car j’ai plus de 100 postes clients.

Y’a-t-il une solution pour éviter ce problème ? Y’a-t-il une autre fonction qui permet de créer un simple fichier sans que Internet Explorer le bloque ?
Voilà le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
sub Ecrire()
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
dim WshShell
Set WshShell = CreateObject("WScript.Shell")
Const ForWriting = 2
   Dim  f     
   Set f = oFSO.OpenTextFile(WshShell.ExpandEnvironmentStrings("%APPDATA%") & "\texte.txt", ForWriting,true)
   f.write( form1.txtuser.value & vbcrlf & form1.txtpassword.value )
end sub

Merci d'avance !

[Donald Duck]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

WshShell.ExpandEnvironmentStrings("%APPDATA%")

renvoi le chemin complet, sans risque de compilation d'un lecteur autre que C:\ (par exemple)

IE m'affiche le message d'erreur suivant: "'WshShell' est indéfini"

[ProgElecT]

Salut, bienvenue sur DVP
As tu aussi bien recopié ses 2 lignes avant dans ton code ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
dim WshShell
Set WshShell = CreateObject("WScript.Shell")

[Donald Duck]

IE m'affiche le message d'erreur suivant: "'WshShell' est indéfini"

C'est bon, j'ai trouvé. Sous IE, il faut faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

new ActiveXObject("WScript.Shell").SpecialFolders("APPDATA")

Pour assurer la compabilité avec IE et tous les autres navigateurs, il faut donc faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
if(navigator.userAgent.indexOf("MSIE")){     //IE
     var appdata = new ActiveXObject("WScript.Shell").SpecialFolders("APPDATA");
}
else{                           //Les autres navigateurs
     dim WshShell
     Set WshShell = CreateObject("WScript.Shell")
     var appdata = WshShell.ExpandEnvironmentStrings("%APPDATA%");
}

[l_autodidacte]

Heureux pour toi d'avoir trouvé

Mais il aurait été bon de préciser que tu travaillais avec JavaScript et pas avec VBScript

[Donald Duck]

Quand j'ai demandé ma question, je ne connaissais pas VBScript. Quand je l'ai découvert, je me suis rendu compte que j'ai fait une bêtise. Mais c'est pas grave, maintenant on peut voir ici comment faire ça avec Javascript aussi.