Local $txt = ""
Local $objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
Local $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_UserAccount", "WQL", 0x10 + 0x20)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.Disabled = False Then $txt &= $objItem.Name & @crlf
Next
EndIf
Msgbox(0,"", $txt)