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
