Parašė BENQ· 2010 Bal. 6 17:04:05
#1
sveiki, ar iseina, kaip nors isgauti puslapio lankytojo kompiuterio varda, kuri rodo to kompiuterio sistemos informacijoj?
radau pora scriptuku, kurie turetu tai daryti, bet nemoku ju panaudot.
<%
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
%>
aciu.
Redagavo BENQ· 2010 Bal. 6 17:04:16