Profil: osmosm

O

osmosm
Saab altına konu açtı.

11 yıl

Merhaba
2004 Saab 2.0T Aero'nun yolda taş sıçraması nedeniyle cam kırıldı. Çizik şeklinde büyüdü. Yerli cam bulamıyoruz. Servis 3500-4000TL arasında fiyata İsveç'ten getirebileceğini söyledi.
Kaskom var, yerli ve anlaşmalı camcı olursa %100 karşılıyor, ithal olursa %15 muafiyet uyguluyor. Yani 4000 TL'ye cam getirtsek %15'i 600 TL eder. Istanbuldan yaşadığım şehre nakliye 400TL diyorlar, ediyor 1000TL.

Bu konuda fikri olan var mı?
Nasıl çözeriz bu işi?

O

osmosm
Saab altına konu açtı.

11 yıl

Saab LPG

Merhaba;
Bende SAAB 2004 Aero Turbo 210BG var. Yazılımla 235 beygir yapılmıştır.
Ankara'da en iyi LPG ustası kim? Telefonu var mı?
Prins düşünüyorum.
Tank simit olsun istiyorum Maksimum hacim ne olabilir?
Teşekkür ederim.

O

osmosm
Asp / Asp.NET altına konu açtı.

17 yıl

ASP\u0027de 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
%>

O

osmosm
Network altına konu açtı.

18 yıl

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

Merhaba arkaşaşlar;
İş yeri networkünde birçok pc var.
PC_WEB adlı bilgisayardan IIS ile şirket içine dahlili web yayını yapıyorum. Web sayfasında herhangi bir sorun olduğunda şirketin herhangi bir pc'sinden \\PC_WEB\c$ yazdığımda admin kullanıcı adı ve şifresi ile c sürücüsündeki asp (web) dosyalarına erişebiliyordum (normalde dosyalarım paylaşıma açık değil).
Windows 2000'i kaldırıp, XP Pro'yu kurduğumda diğer pc'lerden \\PC_WEB\c$ yazdığımda yine şifre ve kullanıcı adı paneli geliyor ama hiç bir şekilde c'deki dsoyalara erişemiyorum.

PC_WEB bilgisayarında hangi ayarları yapmam gerekiyor?

O

osmosm
Teknik Yardım altına konu açtı.

19 yıl

DEEP FREEZE 6.00

Merhabalar;
DeepFreezeSTDEval.exe (6.00 versiyonu) kurmuştum. Kullanım süresi doldu, programın full'üne sahip arkadaş var mı? Link verebilir mi? Veya aynı işi yapan başka program bvar mı?
Teşekkür ederim.

O

osmosm
Depolama altına konu açtı.

19 yıl

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

Merhaba; ben de NEC ND-6750A DVD RW var, bu cihaz
Packard Bell laptopda CD okuma/yazma+dvd okuma/yazma problemi vermezken,
Dell Inspiron 1300 laptop da çok garip problemler veriyor. Örneğin bazı cd leri okumuyor, boş cd'lere yazmıyor (bazen yazsa da kendi yazdığı CD'yi okumuyo), DVD yazmıyor
hata mesayı "Güç ayarlama hatası". Nero'nun 7.5 versiyonunu kullanıyorum.

Merak ettiğim aynı DVD-RW cihazı aynı bpş DVD'ye bi laptopta yazıyor, diğerinde yazmıyor.

Yardım Lütfen...