showUserInfo.vbs

Set objExplorer = WScript.CreateObject("InternetExplorer.Application", "IE_")

objExplorer.Navigate "about:blank"
objExplorer.ToolBar = 0
objExplorer.StatusBar = 0
objExplorer.Width = 400
objExplorer.Height = 250
objExplorer.Left = 0
objExplorer.Top = 0
objExplorer.Visible = 1
Set objDocument = objExplorer.Document
objDocument.Open

strComputer = "MYPDC"
Set Computer = GetObject("WinNT://"&strComputer&",computer")
Computer.Filter = Array("user")

For Each UserObject in Computer
 objDocument.Writeln UserObject.name & "# " & UserObject.fullname & " # " & UserObject.description & "<br />"
 Wscript.Sleep 100
Next

Sub IE_onQuit()
 Wscript.Quit
End Sub