(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