01.Set pc = CreateObject("Wscript.Network")
02.response.write pc.ComputerName
03.Set pc = nothing
04.response.write " (currently connected as "
05.response.write ucase(Request.ServerVariables("SERVER_NAME"))
06.response.write " on "
07.response.write Request.ServerVariables("LOCAL_ADDR") & ")"
08.
09.Set Loc = createobject("WBEMScripting.SWBEMLocator")
10.Set nms = Loc.ConnectServer()
11.WQL = "SELECT CSName FROM Win32_OperatingSystem"
12.Set cs = nms.ExecQuery(WQL, "WQL", 48)
13.For Each pc In cs
14. Response.Write pc.CSName
15.Next
16.set cs = nothing: set nms = nothing: set loc = nothing
