script VBS terminé, remarque et suggestions

Version imprimable

Salut,

J'ai réaliser un petit script qui crée un fichier contenant l'adresse IP d'une machine ainsi que le nom d'utilisateur et le place dans un dossier partage.

Maintenant vu qu'il est terminé, j'aurai voulu savoir ce que vous en pensiez?
Est-ce que mes commentaires sont appropriés, suffisant?

Y aurait-il une façon de l'améliorer ou de le corriger?
D'avance merci de vos remarques et suggestions.

PS: je suis pas susceptible, hésitez pas à dire ce que vous pensez?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
nomPC = "." 
 
'Permet de ne pas déclarer les variable'
Set objetSysteme = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& nomPC & "\root\cimv2") 
 
'Récupération de l'adresse IP dans une collection'
Set CollectionAdresseIP = objetSysteme.ExecQuery _
     ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 
'Récupération du nom de domaine et du nom d'utilisateur après avoir parcourus la collection'
Set CollectionNomDomaine = objetSysteme.ExecQuery _
    ("Select * from Win32_ComputerSystem") 
  For Each objetNomDomaine in CollectionNomDomaine
 
	'séparation nom de domaine et nom d'utilisateur'
	SeparationNom = Split(objetNomDomaine.UserName,"\")
	affichage = affichage & "" & SeparationNom(1) & ", " 
	NomUtilisateur = " " & SeparationNom(1) 
 
Next
'Parcours  de la collection AdresseIP et ajout dans la variable d'affichage de toute adresse Ip trouvée'
For Each objetIP in CollectionAdresseIP
    For Each AdresseIP in objetIP.IPAddress
		affichage = affichage & AdresseIP   & " , "    
    Next
Next
 
'Choix du chemin de destination du script'
Destination = "\\PC-DE-NASBE\Users\" &NomUtilisateur & " .txt"
 
'objet FileSystemObject (FSO) permet de manipuler le système de fichiers de Windows. 
'l' utilisation du modèle d'objet FileSystemObject s'effectue en créant une instance de l'objet Scripting.FileSystemObject
Set objetFSO = Createobject("Scripting.FileSystemObject") 
 
'Ouverture du fichier destination en écriture'
Set objetTexte = objetFso.OpenTextFile(Destination, 2, True)  
 
'Ecriture dans le fichier'
objetTexte.WriteLine affichage
 
'Fermeture de l'objet'
objetTexte.Close

20/09/2007, 17h11
ced600
Citation:

je suis pas susceptible, hésitez pas à dire ce que vous pensez?

En général je dit ce que je pense même quand les gens sont succeptibles :aie: .

La valeur de "affichage" se termine toujours par " , ", c'est moyen, j'aurais essayé de détectecté quand j'ajoute le premier élément (alors affichage devrait etre egal à "") puis j'ajoute le " , " et la valeur.
Je libérerais les différents objets que tu utilises à la fin du code.
Code:

1 2 3 'Récupération de l'adresse IP dans une collection' Set CollectionAdresseIP = objetSysteme.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
j'aurais plutot dit :
Code:

1 2 3 'Récupération d'une collection d'adresse IP' Set CollectionAdresseIP = objetSysteme.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
Code:

1 2 3 4 'Permet de ne pas déclarer les variable' Set objetSysteme = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & nomPC & "\root\cimv2")
Trop succins le commentaire. Si tu veux le commenter, j'aurais dit :

Citation:

Utilisation de GetObject et d'un moniker dans le but de simplifier la récupération des objets WMI, évitant ainsi la création d'un objet SWbemLocator et la connection à WMI de façon explicite.

Pour le reste je pense que ça va :) .
20/09/2007, 19h36
nasbe26

Très bien je prends note et je corrige.
Merci.