Faire un fichier logRésolu

Question

Bonjour,

Je débute en VB, j'ai crée un petit script qui permets de ajouter le raccourci d'une base Lotus sur le bureau Windows de l'utilisateur. Je dois deployer le raccourci en question sur pas mal de postes et j'aimerai envoyer le resultat de chaque installation vers un fichier txt (log) pour connaitre le nombre de postes deployés, l'heure, la date, le nom du poste, le nom de l'utilisateur...En gros je veux faire un fichier log. Je sais faire en bath avec : echo %computername%_%date%_%time% >log.txt . Mais en VB ? Si vous avez une idée.....Merci

jrivet · Accepted Answer

Salut,

regarde dans la section code, ou sur [www.codyx.org  www.codyx.org ]
comment écrire dans un fichier texte.
@+: Ju£i€n
Pensez: Réponse acceptée

chrlo · Answer

Salut,

Merci mais j'ai pas trouvé grand chose...........

jrivet · Answer

Re,
Çà m'étonne... enfin bref.

Essaies ceci.

Dim FF As Integer
FF = FreeFile
Open "C:\Log.txt" For Append As FF
Print #FF, Environ$("COMPUTERNAME") & "_" & Date$ & "_"; Time$
Close FF, ----
[../code.aspx?ID=41455 By Renfield]

@+: Ju£i€n
Pensez: Réponse acceptée

chrlo · Answer

Merci mais ça marche pas, j'ai un message d'erreur : Identificateur attendu, Erreur de compilation Microsoft VBScript. 
Désolé mais je débute vraiment en VB...........Je vais essayer de modifier quelques trucs.

Mon code : 

Dim Shell, DesktopPath, URL

Set Shell = CreateObject("WScript.Shell")

DesktopPath = Shell.SpecialFolders("AllUsersDesktop")

Set URL = Shell.CreateShortcut(DesktopPath & "\Conges.lnk")

URL.TargetPath = "C:\Program Files\Mozilla Firefox\Firefox.exe"

URL.arguments="http://"

URL.IconLocation = ", 0"

URL.WorkingDirectory = "C:\Program Files\Mozilla Firefox"

URL.Save

jrivet · Answer

Salut,
Es tu sur que tu ne travailles pas plutôt avec VBScript???? car la solution proposée ne sera alors pas la même.

@+: Ju£i€n
Pensez: Réponse acceptée

chrlo · Answer

Si....désolé pour le dérangement, j'ai finalement trouvé ça en cherchant sur le web : 
Const ForReading 1, ForWriting 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFileSuccess = objFSO.OpenTextFile("fichier.txt", ForAppending, True)
Tcomputer = WshNetwork.ComputerName
objFileSuccess.WriteLine "Icone " & Tcomputer &" le " & date &" à " & time

Je viens de faire un test et ça marche, merci pour tout et bonne journée.

jrivet · Answer

Salut,
STP la prochaine pense à utiliser la section correcte cela m'évitera de perdre mon temps à te donner la mauvaise solution. Ou au moins le préciser.

La section correcte pour poster Thèmes

 / [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBSCRIPT_245.aspx VBScript]

@+: Ju£i€n
Pensez: Réponse acceptée

Faire un fichier log

7 réponses

Votre réponse

Discussions similaires