Voici un script qui affiche la liste des utilisateurs et groupes locaux de votre ordinateur

Dim network, computer, SAM, message, Item
Set network = Wscript.CreateObject("WScript.Network")
computer=network.ComputerName
message = "Liste des utilisateurs et des groupes sur " & computer & chr(10)& chr(10)
set SAM=GetObject("WinNT://" & computer & ",computer")
for each Item in SAM
Classe=Item.Class
If Classe = "User" then
message = message & Classe & chr(9) & Item.name & chr(10)
End if
If Classe = "Group" then
message = message & Classe & chr(9) & Item.name & chr(10)
End if
Next
wscript.echo message