Discussion :

[kemouss]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Cachlab]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)

[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.