HDD Seri Numarası Yasaklama Hakkında - Sayfa 2

09-11-2010, 13:35:43

#10

Alıntı

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>HDD</title>
<script language="JScript">
var drive = "C:";
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var objDrive = objFileSys.GetDrive(objFileSys.GetDriveName(drive) );
document.write("<input type='text' name='hdd' size='20' value='", objDrive.serialNumber ,"'></input>");
</script>
</head>

</body>
</html>

böyle bir activex denetimine rastladım fakat otomasyon sonucu nesne olusturulamıyor dıye bır uyarı alıyorm explorer hata kısmında bu kodu acabılecek veya geliştirebilecek bir babayiğit varmı

09-11-2010, 13:49:03

#11

~~SahiNET~~

Üyeliği durduruldu

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set d=fs.GetDrive("c:")
Response.Write("HDD Numarası: " & d.SerialNumber)
set d=nothing
set fs=nothing
%>

sanırım bu olabilir

09-11-2010, 13:55:28

#12

Beo

Vbulletin için olsa böyle bir özellik süper olurdu.

09-11-2010, 13:56:29

#13

amasramnet

SahiNET adlı üyeden alıntı: mesajı görüntüle

<%
dim fs,d
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set d=fs.GetDrive("c:")
Response.Write("HDD Numarası: " & d.SerialNumber)
set d=nothing
set fs=nothing
%>

sanırım bu olabilir

Sunuç hüsran

hata veriyor

Server object error 'ASP 0177 : 800401f3'
Server.CreateObject Failed
/hdd/hdd.asp, line 3
800401f3

09-11-2010, 15:51:41

#14

amasramnet

Alıntı

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>HDD</title>
<script language="JScript">
var drive = "C:";
var objFileSys = new ActiveXObject("Scripting.FileSystemObject");
var objDrive = objFileSys.GetDrive(objFileSys.GetDriveName(drive) );
document.write("<input type='text' name='hdd' size='20' value='", objDrive.serialNumber ,"'></input>");
</script>
</head>
<%
Dim strHDDFile 'Hdd Dosyasi Bilgileri
strHDDFile = Server.MapPath("hdd.txt") 'hdd log dosyasi
Dim fso,d
Dim stream
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set d=fso.GetDrive("c:")
Set stream = Nothing
'Kayit Dosyasi Seçimi
Set stream = fso.OpenTextFile(strHDDFile,8,0)
stream.WriteLine("HDD Numarasi: " & d.SerialNumber)
stream.Close
set d=nothing
set fso=nothing
%>
</body>
</html>

olarak kodu duzenledım hdd.txt de olusturdum yazma ıznını de verdım

Alıntı

Microsoft VBScript runtime error '800a0047'
Disk not ready /hdd/hdd.asp, line 24

Gelen hata bu disc okuma izni yok diyo

09-11-2010, 15:51:48

#15

~~ShekerChi~~

Üyeliği durduruldu

Alıntı

<%
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Drv = FSO.GetDrive(FSO.GetDriveName("C:"))

With Drv
If .IsReady Then
SurucuSerial = Abs(.SerialNumber)
Else
SurucuSerial = "Bulamadım."
End If
End With

Set Drv = Nothing
Set fso = Nothing

response.write SurucuSerial
%>

bi deneyin bakalım

09-11-2010, 15:55:06

#16

amasramnet

verdiğin kodu da denedim kardeş bulamadım dıyo baska bısı demıyo

ahh bi bulsa...

09-11-2010, 16:05:43

#17

~~ShekerChi~~

Üyeliği durduruldu

eğer vps de deniyorsan çalışmaz diye düşünüyorum çünkü vps sanal hdd.

he bi de şunu söyliyim, asp ile yaparsan bu işlemi ancak scriptin bulunduğu sunucunun hdd sini kullanır kodlar.
yani senin activex kullanman şart ziyaretçinin hdd numarasını alman için.
(banlama işlerinde bu gerekli.)

eğer ki yaptığın bir scripti güvenlik için sadece belli bir hdd de çalışmasını istiyorsan, bu asp kodunu kullanabilirsin (vps olmayacak)

09-11-2010, 16:16:18

#18

amasramnet

benım hostıng hesabım VPS degıl normal hosting anlamadım ya

ah bı yazdırabılsem su HDD numarasını cok guzel olacakda

pekı MAC adresi alma gibi bir yöntem varmı activex ve ya asp ile ?

activex kodunu buldum zaten yukarıda yazdıgım kod forumlarda o gecerli olarak verılmıs ama ne hıkmetse actıvex yukle uyarısı gelıyor yukluyorum bu seferde bos ekran ve explorer hata sında otomasyon sunucusu nesne olusturamıyor dıye uyarı verıyor