strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 'Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount Where LocalAccount = TRUE") Set colAccounts = objWMIService.ExecQuery ("Select * From Win32_UserAccount") For Each objAccount in colAccounts Wscript.Echo objAccount.Name & VbTab & objAccount.SID Next