Någon som har någon idé om hur man kan få reda på en hårddisks serienummer ?
Hela min tanke är att jag ska kunna begränsa ett program till en viss dator, eller finns det något annat sätt som göra att ett program bara går att köra på en viss dator?
Tacksam för hjälp

//Thomas

Så här kan du göra
Option Explicit
Private Declare Function GetVolumeInformation Lib "kernel32" _
Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long

Private Sub Command1_Click()
MsgBox GetSerialNumber("C:")
End Sub

Private Function GetSerialNumber(ByVal sDrive As String) As String
Dim serNum As Long
Dim s As String * 256
Dim s2 As String * 256
Call GetVolumeInformation(sDrive & _
Chr$(0), s, 256, serNum, _
0, 0, s2, 256)
GetSerialNumber = CStr(serNum)
End Function
'/Sven