|
Displaying Source Code(s)
|
|
Accessing System Registry like Host, Port, etc
--------------------------------------------------------------------------------
Description : Accessing System Registry like Host, Port, etc
<%
Dim WSHShell
Dim TAS
Dim serverx
Dim TASH
Dim TASP
Dim TASHost
Dim TASPort
Set WSHShell = Server.CreateObject("WScript.Shell")
TahoeAS= "HKEY_LOCAL_MACHINESofwareITCServers"
serverx = Request.QueryString("ServerListSelect")
TASH = TAS + serverx + "Host"
TASHost=WSHShell.RegRead (TASH)
TASP = TAS + serverx + "Port"
TASPort=WSHShell.RegRead (TASP)
%> |
|
|