[VBS ]aide avec fso.opentextfile
Résolu
admininfo
Messages postés
333
Date d'inscription
Statut
Membre
Dernière intervention
-
adininfo -
adininfo -
Bonjour,
voila j'ai cette commande qui me pause problème dans mon scripte vbs
set fichier = fso.Opentextfile("nom.txt")
en faite je cherche a mettre un nom automatiser en fonction de l'utilisateur ou ça me donnerais au rendu un fichier texte au nom de l'utilisateur en faite je cherche à rentré la variable d'environnement %username%
Pour au final me donner:
%username%.txt
voila mon script :
Const ForReading = 1, ForWriting = 2, ForAppend=8
Dim fso,Nom_utilisateur
Set WshNetwork = CreateObject("WScript.Network" )
set script=CreateObject("WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject")
Nom_utilisateur = WshNetwork.UserName
Set fichier = fso.OpenTextFile("C:\Users\lucile\Desktop\mozilla.txt", ForWriting, True)
mozilla = script.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\MaintenanceService\Installed")
if mozilla=1 then
fichier.write ("mozilla " & username)
end if
pouvez vous m'aider svp merci
voila j'ai cette commande qui me pause problème dans mon scripte vbs
set fichier = fso.Opentextfile("nom.txt")
en faite je cherche a mettre un nom automatiser en fonction de l'utilisateur ou ça me donnerais au rendu un fichier texte au nom de l'utilisateur en faite je cherche à rentré la variable d'environnement %username%
Pour au final me donner:
%username%.txt
voila mon script :
Const ForReading = 1, ForWriting = 2, ForAppend=8
Dim fso,Nom_utilisateur
Set WshNetwork = CreateObject("WScript.Network" )
set script=CreateObject("WScript.Shell" )
Set fso = CreateObject("Scripting.FileSystemObject")
Nom_utilisateur = WshNetwork.UserName
Set fichier = fso.OpenTextFile("C:\Users\lucile\Desktop\mozilla.txt", ForWriting, True)
mozilla = script.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Mozilla\MaintenanceService\Installed")
if mozilla=1 then
fichier.write ("mozilla " & username)
end if
pouvez vous m'aider svp merci
A voir également:
- [VBS ]aide avec fso.opentextfile
- Vbs windows - Accueil - Optimisation
- Vbs - Télécharger - Édition & Programmation
- Vbs editor - Télécharger - Édition & Programmation
- Fichier vbs ✓ - Forum Virus
- Vbs malware gen ✓ - Forum Virus
2 réponses
Bonjour,
Quelque chose comme :
Cdt
Lupin
Quelque chose comme :
Nom_utilisateur = WshNetwork.UserName
Nom_Fichier = "C:\Users\" & Nom_Utilisateur & "\Desktop\mozilla.txt"
If ( fso.FileExists(Nom_Fichier) ) Then
Set objFichier = fso.OpenTextFile(Nom_Fichier ,ForWriting, True)
Else
Set objFichier = fso.CreateTextFile(Nom_Fichier ,ForWriting, True)
End If
Cdt
Lupin
