A čo takto script:

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set colAccounts = GetObject("WinNT://" & strComputer & "")
colAccounts.Filter = Array("user")

MessageText = "Zoznam lokálnych užívateľov:" & vbNewline

For Each objUser In colAccounts
MessageText = MessageText & vbNewline & objUser.Name 
Next

MsgBox MessageText,vbOkOnly, "Program vbscript"