Amateurs ;\)
 Code:
Dim $strComputer, $objWMIService, $colItems, $objItem
$strComputer = "."
$objWMIService = GetObject("winmgmts:\\"+$strComputer+"\root\CIMV2")
$colItems = $objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile where UserType='Normal Account'",,48)
For Each $objItem in $colItems
  "Name: " + $objItem.Name ?
Next


Edited by Arend_ (2012-08-01 02:04 PM)
Edit Reason: Code adjustment