Forum Discussion

digimon's avatar
digimon
New Contributor
12 years ago

How can I get the list of all local user accounts & user groups in my system

I want to get the list of all local user accounts and user groups in my system. After that, will add/ delete user( or group) automatically by TC. Have tried WMI, WIN32API, SYS... couldn't find ...
TanyaYatskovska's avatar
TanyaYatskovska
Icon for Alumni rankAlumni
12 years ago
Hi Bobby,

 


Here is the sample script adapted to TestComplete:


 




 Sub GetAllUsers


   Dim wmiService, computerName, objectsList, user


   


   computerName = "."


  


   Set wmiService = GetObject("winmgmts:"&"{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 


   Set objectsList = wmiService.ExecQuery ("Select * from Win32_UserAccount Where LocalAccount = True")


   


   For Each object in objectsList


     user = "Account Type: " & object.AccountType & vbCrLf &_


               "Caption: " & object.Caption & vbCrLf &_ 


               "Full Name: " & object.FullName


     Call Log.Message("UserInfo", user)  


   Next


 End Sub


 


  


 Please make sure that all the needed WMI settings are set on your computer according to the "Working With WMI Objects in Scripts" article.