Lenochu!

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

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

strOutputFile = "./" & Split(WScript.ScriptName, ".")(0) & ".txt"
Set objFileSystem = CreateObject("Scripting.fileSystemObject")
Set objOutputFile = objFileSystem.CreateTextFile(strOutputFile, TRUE)

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

objOutputFile.WriteLine(MessageText)
objOutputFile.Close

Set objFileSystem = Nothing