'List Local Users
'====================
Wscript.Echo vbcr & vbcr & vbcr
Wscript.Echo "Local Users"
Wscript.Echo "==================================="
objTextFile.WriteLine("--------------------------------------------------------------------------------------------------------------------------")
objTextFile.WriteLine(vbcr & vbcr & vbcr)
objTextFile.WriteLine("Local Users")
objTextFile.WriteLine("============")
Set colUsers = GetObject("WinNT://" & strComputer & "")
colUsers.Filter = Array("user")
For Each objUsers In colUsers
strLine = objUsers.Name
objTextFile.WriteLine(strLine)
Next
Wscript.Echo "Local Users written to file."