VB Script variable dans un chemin d'accès
Bonjour à vous forumeurs !
Je suis administrateur d'un domaine relativement important (environ 250 ou 300 utilisateurs), et je dois créer un script qui va supprimer un fichier dans un dossier se trouvant dans C:\Users\nomUtilisateur\etc...
J'utilise la fonction DeleteFile pour supprimer le fichier, aucun problème pour cela. Seulement le nom d'utilisateur change sur chaque poste. Il faut donc que le "nomUtilisateur" change automatiquement.
Je sais que la fonction "ObjWshNetwork.Username" permet de récupérer le nom de l'utilisateur actuel pour par exemple l'afficher ensuite, mais il ne m'intéresse pas de l'afficher.
C'est le seul début de piste que j'ai pu trouver. Je ne suis pas parvenu à l'utiliser pour ensuite le mettre en variable à la place de "nomUtilisateur"
Si quelqu'un a une idée je suis preneur. Merci à tous les forumeurs qui tenteront de m'aider :)
Je suis administrateur d'un domaine relativement important (environ 250 ou 300 utilisateurs), et je dois créer un script qui va supprimer un fichier dans un dossier se trouvant dans C:\Users\nomUtilisateur\etc...
J'utilise la fonction DeleteFile pour supprimer le fichier, aucun problème pour cela. Seulement le nom d'utilisateur change sur chaque poste. Il faut donc que le "nomUtilisateur" change automatiquement.
Je sais que la fonction "ObjWshNetwork.Username" permet de récupérer le nom de l'utilisateur actuel pour par exemple l'afficher ensuite, mais il ne m'intéresse pas de l'afficher.
C'est le seul début de piste que j'ai pu trouver. Je ne suis pas parvenu à l'utiliser pour ensuite le mettre en variable à la place de "nomUtilisateur"
Si quelqu'un a une idée je suis preneur. Merci à tous les forumeurs qui tenteront de m'aider :)
1 réponse
-
Bonjour,
Exemple type :
Dim objReseau, objFSO, NomUtilisateur, CheminFichier Set objReseau = CreateObject("WScript.Network") NomUtilisateur = UCase(objReseau.UserName) Set objFSO = CreateObject("Scripting.FileSystemObject") CheminFichier = "C:\Test\" & NomUtilisateur & "\Dossiers\LeFichier.txt" objFSO.DeleteFile(CheminFichier) Set objFSO = Nothing Set objReseau = Nothing 'WScript.Echo CheminFichier WScript.Quit(0) '
Cdt
Lupin
