Temos pavadinimas: WordPress, Shopify ir PHPFusion programuotojų bendruomenė :: kaip isgauti kompiuterio varda

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

Parašė DEMO_user· 2010 Bir. 14 19:06:44
#2

Matau, kad čia sena tema, bet gal kam gi reikia.
Susikurk .bat failą ir į jį įmesk šitą kodą. (Bent jau aš taip galvoju.)