Profil: osmosm | DonanımHaber Forum

Şimdi Ara

@osmosm

Takip Et 0 takipçi

Özel Mesaj

Onbaşı

18 Ocak 2005
Tarihinde Katıldı

Takip Ettikleri
0 üye

Görüntülenme
Toplam: 34 (Bu ay: 0)

Fırsat Ekle

Gönderileri

Tümü (6)

Sadece Konular (6)

Sadece Bağlantılar (0)

osmosm · Saab altına konu açtı. 10 yıl

Saab 9.3 Aero Ön Cam

1 Yanıt

Yanıtla

Favorilere Ekle

osmosm · Saab altına konu açtı. 10 yıl

Saab LPG

1 Yanıt

Yanıtla

Favorilere Ekle

osmosm · Asp / Asp.NET altına konu açtı. 16 yıl

ASP'de nbtstat komu ile bağlananların pc ismini okumak

Arkadaşlar merhaba;
Aşağıda vereceğim kodla WinXP sunucusunda çalışırken, sunucuyu Win2003 Server yaptım çalıştıramıyorum.
Paylaşımla ilgili sorun yok, D:\pc\ herkese açık ve okuma-yazma yetkisi var. Zaten dosya geçici olarak oluşturulup siliniyor.

Win XP'de elde ettiğim sonuç:
TÜM VERİLER

YEREL A§ BA§LANTS:
D§M IPADRESI: [10.150.115.50]KAPSAM KIMLI§I: []

NETBIOS UZAK MAKINE AD TABLOSU

AD TR DURUM
---------------------------------------------
PC_KULLANICI5 <00> BENZERS˜Z KAYDEDILDI
FIRMA<00> GRUP KAYDEDILDI
INET~SERVICES <1C> GRUP KAYDEDILDI
IS~PC_KULLANICI5<00> BENZERS˜Z KAYDEDILDI
PC_KULLANICI5 <20> BENZERS˜Z KAYDEDILDI
FIRMA<1E> GRUP KAYDEDILDI

MAC ADRESI = 00-40-D0-8C-F1-0C

KABLOSUZ A§ BA§LANTS:
D§M IPADRESI: [0.0.0.0]KAPSAM KIMLI§I: []

ANA BILGISAYAR BULUNAMAD.
TÜM VERİLER BİTTİ
IP numaranız : 10.150.115.50
MAC adresiniz: 00-40-D0-8C-F1-0C
PC adınız: PC_KULLANICI5
Ağ bağlantınız: FIRMA

Win2003 Serverde elde ettiğim sonuç:
Microsoft VBScript runtime error '800a0046'

Permission denied

/pc_ismi/pc_analiz.asp, line 25

ASP DOSYAM ŞU:

<%

' TRIM KULLANIMI
' Trim, hem baş hem de sonraki boşlukları temizler.
' LTrim, (Left Trim) sadece baştaki boşlukları temizler.
' RTrim, (Right Trim) sadece sondaki boşlukları temizler.

'SPLIT KULLANIMI
'cumle ="elmamı,armutmu"
'kelime = split(cumle, "," ) yani virgülün önü 0 ile, arkası 1 ile temsil ediliyor.
'şeklinde tanımladığımız zaman
'kelime(0 ) ="elmamı"
'kelime(1 ) ="armutmu"

strIP = Request.ServerVariables("REMOTE_ADDR")
strHost = Request.ServerVariables("REMOTE_HOST")

' strMac = GetMACAddress(strIP)

Set net = Server.CreateObject("wscript.network")
Set sh = Server.CreateObject("wscript.shell")
sh.run "%comspec% /c nbtstat -A " & strIP & " > D:\pc\" & strIP & ".txt",0,true
Set sh = nothing
Set fso = createobject("scripting.filesystemobject")

macaddress = null
pc_adi=null
grup_adi=null

RESPONSE.WRITE "TÜM VERİLER"&" "
Set dosyadan = fso.opentextfile("D:\pc\" & strIP & ".txt")
Do While Not dosyadan.AtEndOfStream
data = ucase(trim(dosyadan.readline))
RESPONSE.WRITE data&" "
loop
dosyadan.close
Set dosyadan= nothing
RESPONSE.WRITE "TÜM VERİLER BİTTİ"&" "

Set dosyadan = fso.opentextfile("D:\pc\" & strIP & ".txt")
Do While Not dosyadan.AtEndOfStream
data = ucase(trim(dosyadan.readline))
if instr(data,"MAC") Then 'hangi sırada MAC karakteri varsa
macaddress = trim(split(data,"=")(1)) '= karakterinden sonraki bölüm işimize yarar.
Exit Do
End if
loop
dosyadan.close
Set dosyadan= nothing

Set dosyadan = fso.opentextfile("D:\pc\" & strIP & ".txt")
Do While Not dosyadan.AtEndOfStream
pc = ucase(trim(dosyadan.readline))
if instr(pc,"<") Then 'hangi sırada < karakteri varsa
pc_adi = trim(split(pc,"<")(0)) ' < karakterinden önceki bölüm işime yarar.
Exit Do
End if
loop
dosyadan.close
Set dosyadan= nothing

Set dosyadan = fso.opentextfile("D:\pc\" & strIP & ".txt")
Do While Not dosyadan.AtEndOfStream
grup = ucase(trim(dosyadan.readline))

if instr(grup,"<1E>") Then 'Yani son > 'yi buldum ve ondan önceki kısım grup adı oldu.
grup_adi = trim(split(grup,"<1E>")(0))

' Exit Do
End if
loop
dosyadan.close
Set dosyadan= nothing

'DOSYA SİLME

fso.deletefile "D:\pc\" & strIP & ".txt"
Set fso = nothing

CALL DOSYA_KAYIT

%>

<HTML>
<HEAD>
<TITLE>pc adı</TITLE>
</HEAD>
<BODY>
<%Response.Write("IP numaranız : " & strIP & " " & vbcrlf)%>
<%Response.Write("MAC adresiniz: " & macaddress & vbcrlf)%> 
<%Response.Write("PC adınız: " & pc_adi & vbcrlf)%> 
<%Response.Write("Ağ bağlantınız: " & grup_adi & vbcrlf)%> 
</BODY>
</HTML>

<%

SUB DOSYA_KAYIT

session("ip")=strIP
session("pc_ismi")=pc_adi

set veritabani = Server.CreateObject("AdoDb.Connection")
'ifade = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("veri/say.mdb") & ";Persist Security Info=False"
ifade = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/pc_ismi/veri/say.mdb") & ";Persist Security Info=False"

veritabani.open ifade

'VERİTABANINA KAYIT BÖLÜMÜ

set rs = Server.CreateObject("AdoDb.recordset")
CommandText="SELECT * FROM girenler"
rs.open CommandText, ifade,1,3

rs.MoveLast
rs.AddNew

rs("ip") = strIP
rs("pc_ismi") = pc_adi
rs("ag_adi") =grup_adi
rs("mac") = macaddress
rs("tarih") = now()

rs.Update
rs.close
set db = Nothing
set rs = Nothing

veritabani.close
set veritabani = Nothing

END SUB
%>

4 Yanıt

Yanıtla

Favorilere Ekle

osmosm · Network altına konu açtı. 17 yıl

Networkten Erişememe Sorunsalı: \\PC_ADI\c$

2 Yanıt

Yanıtla

Favorilere Ekle

osmosm · Teknik Yardım altına konu açtı. 18 yıl

DEEP FREEZE 6.00

4 Yanıt

Yanıtla

Favorilere Ekle

osmosm · Depolama altına konu açtı. 18 yıl

NEC ND-6750A DVD RW - İlginç Problem

5 Yanıt

Yanıtla

Favorilere Ekle

Temel Bilgiler ve İstatistikler

Aktiflik: Şu anda DH'de değil
Son Giriş: geçen ay
Son Mesaj Zamanı: 8 yıl
Mesaj Sayısı: 31
Gerçek Toplam Mesaj Sayısı: 35
İkinci El Bölümü Mesajları: 0
Konularının görüntülenme sayısı: 5.342 (Bu ay: 40)
Toplam aldığı artı oy sayısı: 0 (Bu hafta: 0)
En çok mesaj yazdığı forum bölümü: Mobil Cihazlar

Mesajları

İkinci El Referansları