Savoir le chemin du dossier "Application Data" de l'utilisateur en cours

**wwwsfax** · 01/04/2009, 12h06

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** · 01/04/2009, 12h14

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** · 01/04/2009, 12h48

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** · 01/04/2009, 13h47

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

**wwwsfax** · 01/04/2009, 15h41

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** · 20/12/2014, 18h05

Envoyé par 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)

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

**ProgElecT** · 20/12/2014, 18h11

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** · 21/12/2014, 12h26

Envoyé par 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%");
}