Script qui affiche les utilisateurs locaux

Version imprimable

05/10/2018, 15h14
johnyboyy

Script qui affiche les utilisateurs locaux
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:

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,

Bonjour,

Voici ce que je peux te proposer :

Code:

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

11/10/2018, 01h10
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.