Enregistrement resultat vbs

Version imprimable

Bonjour

je viens demander de l'aide.

Je viens de trouver un script qui me permet de faire un audit de toutes mes stations de mon domaine. je voudrais enregistrer les résultat par stations dans un fichier texte sur mon serveur. Actuellement les résultats s'enregistre en local.

Voici la parti du script qui concerne l'enregistrement des résultats :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 'mettez ici l'emplacement du dossier dans lequel sera enregistrer le rapport 'si ce dossier n'existe pas, il sera crée path = "" 'sharename = "logs_"&username&"" If objFSO.FolderExists (""&path&"") Then Else Set objFolder = objFSO.CreateFolder (""&path&"") End If 'save softwares configuration In a txt file Set objFSO = CreateObject("Scripting.FileSystemObject") Set objTextFile = objFSO.CreateTextFile(""&path&""& hostname & " - "&username&".txt", True) filepath = ""&path&""& hostname & " - "&username&".txt"
Quand je met le chemin réseau j'ai aucun enregistrement.

merci de votre aide

kemouss

Bonjour,

Je pense que tu as un souci avec le chemin UNC qui ne fonctionne pas bien en VBS : \\serveur\rep\...
Perso je contourne cela par un mapping temporaire du lecteur :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
'mettez ici l'emplacement du dossier dans lequel sera enregistrer le rapport
set wshnetwork = createobject("wscript.network")
Lecteur = "X:"
Mapping = "\\serveur\rep"
if Not oFSO.DriveExists(Lecteur) Then wshNetwork.MapNetworkDrive Lecteur, Mapping
path = "X:\repertoire_logs\"
 
'sharename = "logs_"&username&""
 
'si ce dossier n'existe pas, il sera crée
If  objFSO.FolderExists (""&path&"") Then
  Else
Set objFolder = objFSO.CreateFolder (""&path&"")
End If
 
'save softwares configuration In a txt file
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile(""&path&""& hostname & " - "&username&".txt", True)
filepath = ""&path&""& hostname & " - "&username&".txt"
 
' Déco lecteur à la fin du script
if oFSO.DriveExists(Lecteur) Then wshNetwork.RemoveNetworkDrive(Lecteur)

13/05/2014, 10h41
kemouss

Salut,

merci pour la réponse mais j'ai trouvé la solution. J'avais juste un problème avec les guillemets lors de mes tests.