PHPFusion - tai laisvai platinama nemokama turinio valdymo sistema (TVS), kurios pagalba galite greitai, lengvai ir
patogiai susikurti norimą internetinį puslapį. Plačiau apie sistemą...
Žmogus 2026 Rugs. 27 11:09:17 Įstojimo data: 2006 gruodžio 8 17:12:08
Tai laikas bėga. O dar pamenu pačia pradžia kaip buvo smagu su phpsfusion kurtis tuos puslapius
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
%>