DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Test()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Surucu = FSO.GetDrive("C:")
seri = Surucu.serialnumber
MsgBox Left(Hex(seri), 4) & "-" & Right(Hex(seri), 4)
End Sub