VB.Net hdd seri no

[skapula]

VB 6.0 da yazılmış hdd seri no kodları buldum internetten

Private Declare Function GetVolumeInformation& Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName _
As String, ByVal pVolumeNameBuffer As String, ByVal _
nVolumeNameSize As Long, ByVal lpVolumeSerialNumber As Long, _
ByVal lpMaximumComponentLength As Long, ByVal lpFileSystemFlags As _
Long, ByVal lpFileSystemNameBuffer As String, ByVal _
nFileSystemNameSize As Long)
Const MAX_FILENAME_LEN = 256

Public Function SerNum(ByVal Drive$) As Long
Dim No&, s As String * MAX_FILENAME_LEN
Call GetVolumeInformation(Drive + ":\", s, MAX_FILENAME_LEN, _
No&, 0&, 0&, s, MAX_FILENAME_LEN)
SerNum = No
End Function

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Label1.Caption = SerNum("C")
End Sub

bu satır hatalı görünüyor .net te Dim No&, s As String * MAX_FILENAME_LEN
Label1.Caption = SerNum("C") caption hata veriyor
No&, 0&, 0&, s, MAX_FILENAME_LEN) burada No& hatalı

acaba bu kodlar doğrumu ? doğru değilse doğrularını bana yazabilirmisiniz .. VB.Net te çevirip kullanmam lazım .. teşekkürler ..

[skapula]

http://www.codeguru.com/vb/controls/.../?thread=39850

bu sayfada bir kod buldum fakat bundada hata veriyor (((

[sımone]

Ya yanlış hatırlamıyosam System.Information yada onu gibi bi namespace in altında bi class olması lazım onu kullanarak bilgisayarın donanım bilgilerine erişebiliyosun

[skapula]

bu kodları inceledinmi peki ? hiç hata görünmüyor ama çalışırken hata veriyor ne olcak bu iş yaa

[sımone]

kodları incelemedim bi bakim tekrar kendim yapıp sana yollarım yenisini

[skapula]

başka bir kod buldum onunla yaptım çalıştı problem yok .. fakat bu kodlar volume seri no alıyor bana formatla değişmeyen fabrika seri no su lazım .. delphi için kod buldum konuyla alakalı ama delphi bilmiyorumki ) volume seri no değil fabrika seri no nasıl bulucaz ?