<%
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
%>