Navigacija

Vartotojų tinkle

Prisijungusių svečių: 208
Prisijungusių narių: 0
Prisijungusių narių nėra

Registruoti nariai: 25,970
Naujausias narys: tadasl

Naujausi straipsniai

Paskutiniai nariai

tadasl 3 dienos
Žmogus 5 dienos
finxlt 2 savaitės
Reikalas 8 savaitės
tanos11 savaitės
LnKnPrK116 savaitės
inti18 savaitės
kileedyg25 savaitės
Kižas32 savaitės
Bruksnys33 savaitės
laleceylan5034 savaitės
minimukas35 savaitės
N-2037 savaitės
Rytis38 savaitės
DjArtas39 savaitės
WolfHammer39 savaitės
Nostesi50 savaitės
Wisedocs50 savaitės
asdasdddz53 savaitės
Paslapties K...55 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.217.18
Naujienų: 529
Straipsnių: 235
Temų: 52,594
Postų: 522,555
Postų pask. parą: 0
Shout'ų pask. parą: 0
P.S.C. pask. parą: 0
Nuorodų kataloge: 13

Lankomumo Statistika

Peržiūrų šiandien: 22

Iš viso peržiūrų: 22948724

Prisijungti

REGISTRUOTIS
Nario vardas

Slaptažodis



Pamiršai slaptažodį?
Paprašyk naujo

Aktyvuoti save

Šaukykla

Jei norite rašyti žinutes, turite prisijungti.

Ž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 akinanti šypsen

Žmogus
2026 Rugs. 26 10:09:53
Ar dar yra gyvu? akinanti šypsen

LnKnPrK1
2026 Bir. 21 09:06:52
Sveiki, gal kas is administracijos gali parasyti man PM,aciu

minimukas
2026 Vas. 21 08:02:25
oi oi akinanti šypsen yra dar cia gyvu? akinanti šypsen

N-20
2026 Vas. 6 21:02:05
O mes dar gyvi šypsosi)

Šaukyklos archyvas

Apklausa

Ar esate patenkinti lietuviško vertimo kokybe?

Taip!

Taip, bet yra ką taisyti (parašysiu komentaruose)

Ne

Norėdamas balsuoti turite prisijungti.
Archyvas
Reklama 400x60
kaip isgauti kompiuterio varda
Forumas | Kita | Off-Topic diskusijos

Autorius: BENQ Peržiūrų: 1203      Spausdinti temą
2010 Bal. 6 17:04:05          1 žinutė iš 2
Spausdinti pranešimą
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.

2010 Bir. 14 19:06:44          2 žinutė iš 2
Spausdinti pranešimą
Matau, kad čia sena tema, bet gal kam gi reikia.
Susikurk .bat failą ir į jį įmesk šitą kodą. (Bent jau aš taip galvoju.)

Peršokti į forumą: