1- Sizin bilgisayarınızda D: sürücüsü var mı?
2- Bazı Hard Disk modellerinin seri numarası alınamayabilir. İşte bu sebepten dolayı sadece HDD değil, MAC, İşlemci vb. seri numaralarıda işin içine katılmalı.

(18/05/2015, 10:59)alpeki99 yazdı: 1- Sizin bilgisayarınızda D: sürücüsü var mı?
2- Bazı Hard Disk modellerinin seri numarası alınamayabilir. İşte bu sebepten dolayı sadece HDD değil, MAC, İşlemci vb. seri numaralarıda işin içine katılmalı.

d: sürücüm var bende default alcam artık bi şekilde..

(18/05/2015, 09:42)uMits yazdı: Bu ayrıntılı açıklamanız için çok teşekkür ederim.
bir arkadaşımda daha var ilk kutucuğa dediğiniz gibi seri numarası bildiriyor.
ama ilk kutucukta bana serial numarası göstermiyor sebebi nedir normalde dediğiniz gibi seri numarası çıkıyor...

Bence elinizdeki programi paylasin, uzmanlar inceleyip eksiklerini gidersinler. Ben sayin ozanakkaya'nin farkli bir serial uygulamasini kullaniyorum. Benim hatam modulu programima eklememek olmustu, belki sizde modulu unutmussunuzdur.

forma buton ekleyip tıklandığında aşagidaki kod calisacak sekilde ayarla, formu acip butonu tıkladiginda seri numarasi geliyor mu gozlemle,

Dim wrkDefault As Workspace
Dim nesne, disk, k
Set nesne = CreateObject("Scripting.FileSystemObject")
Set disk = nesne.GetDrive(nesne.GetDriveName(nesne.GetAbsolutePathName("d:\")))
k = disk.SerialNumber
Me.disk = k