Set pc = CreateObject("Wscript.Network")
response.write pc.ComputerName
Set pc = nothing
response.write " (currently connected as "
response.write ucase(Request.ServerVariables("SERVER_NAME"))
response.write " on "
response.write Request.ServerVariables("LOCAL_ADDR") & ")"
Set Loc = createobject("WBEMScripting.SWBEMLocator")
Set nms = Loc.ConnectServer()
WQL = "SELECT CSName FROM Win32_OperatingSystem"
Set cs = nms.ExecQuery(WQL, "WQL", 48)
For Each pc In cs
Response.Write pc.CSName
Next
set cs = nothing: set nms = nothing: set loc = nothing
Set Loc = createobject("WBEMScripting.SWBEMLocator")
Set nms = Loc.ConnectServer()
WQL = "SELECT CSName FROM Win32_OperatingSystem"
Set cs = nms.ExecQuery(WQL, "WQL", 48)
For Each pc In cs
Response.Write pc.CSName
Next
set cs = nothing: set nms = nothing: set loc = nothing