Discussion :

[johnyboyy]

Bonjour dans le cadre de mon projet en vbscript, je ne comprend pas la dernière partie.

J'essaie de créer un script qui permet d'afficher les utilisateurs locaux.

J'ai trouvé des lignes qui marche :

Code :

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

1
2
3
4
strOrdinateur = "."
Set objWMISer= GetObject("winmgmts:\\" & strOrdinateur & "\root\CIMV2")
Set colUsers= objWMISer.ExecQuery( "SELECT * FROM_
Win32_UserAccount",,48)

Je cherche les autres commandes pour le compléter. Pour qu'il trouve le nom, le nom complet et l'attribut qui permet de savoir si le mot de passe peut expirer ou non de chaque utilisateur de mon ordinateur. Je veux donc qu'il parcours la collection d'items que j'ai cherché avec la requête mentionnée en haut.

Merci beaucoup de m'informer si vous trouvez une solution avec le code que j'ai commencé.

Cordialement,

[Cachlab]

Bonjour,

Voici ce que je peux te proposer :

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
strOrdinateur = "."
Set objWMISer= GetObject("winmgmts:\\" & strOrdinateur & "\root\CIMV2")
Set colUsers= objWMISer.ExecQuery( "SELECT * FROM Win32_UserAccount",,48)
 
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set objFSO = CreateObject("Scripting.FileSystemObject")
strPath = ".\output.csv"
IF(objFSO.FileExists(strPath&strName)) Then objFSO.DeleteFile strPath
SET objF=objFSO.CreateTextFile(strPath)
objF.Close
 
Set objF=objFSO.openTextFile(strPath,ForAppending)
objF.WriteLine("Nom;Nom_Complet;Mdp_expire?")
	For each utilisateur in colUsers
	nom = utilisateur.name
	nom_complet = utilisateur.FullName
	mdp_expire = utilisateur.PasswordExpires
	Ligne = nom & ";" & nom_complet & ";" & mdp_expire
	objF.WriteLine Ligne
	Next
objF.Close

++

[l_autodidacte]

J'ai déposé un code un peu plus général à voir ici : Propriétés des éléments dans une classe WMI.

Il pourrait t'intéresser.