Navigacija

Vartotojų tinkle

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

Registruoti nariai: 25,962
Naujausias narys: Wisedocs

Naujausi straipsniai

Paskutiniai nariai

Nostesi 4 savaitės
Wisedocs 4 savaitės
asdasdddz 8 savaitės
Paslapties K... 9 savaitės
Audrius_1711 savaitės
Reikalas16 savaitės
Simbijanas24 savaitės
Karinacraft24 savaitės
Žmogus28 savaitės
Bruksnys32 savaitės
Darexs34 savaitės
Nepas35 savaitės
keistuole37 savaitės
Gizmis39 savaitės
Rytis48 savaitės
MaFetas52 savaitės
ozzWANTED54 savaitės
saulyzas56 savaitės
TOMIJUS57 savaitės
Jaunelis72 savaitės

Informacija:


OS: Unknown
Naršyklė: Nežinoma
IP: 216.73.216.182
Naujienų: 529
Straipsnių: 235
Temų: 52,589
Postų: 522,549
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
2025 Geg. 31 10:05:18
Kas geresnio? šypsosi

Nepas
2025 Bal. 9 17:04:13
drovus

Nepas
2025 Bal. 9 17:04:08
drovus

Gizmis
2025 Kov. 15 14:03:50
OMG, smagu matyt sita puslapi veikianti

ozzWANTED
2024 Lap. 30 15:11:14
Taip, vis dar up š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ų: 1051      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ą: