Pierre Neubert <cherii@worldonline.dk> wrote in message
news:3bc2cee7$0$236$edfadb0f@dspool01.news.tele.dk...
> Hvis man f.eks. i en DOS promt skriver DIR A:, så står der bl.a.:
Enhedens
> serienummer er DA58-29C8.
> Serienummeret er naturligvis altid forskelligt fra disk til disk
eller CD
> til CD.
> Er der nogen der ved, hvordan man i VB kan læse dette serienummer?
> På forhånd tak.
>
Hej Pierre
Jeg har engang fundet to løsninger på
http://www.vbxtras.com/vbhowto/VBHowTo8.txt
under "Changing a Disk Serial Number". Disse to løsninger
er indsat nedenunder (jeg har dog kun brugt script-versionen
og den vrker fint.
'---------------Kode ----------------------
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
Public Sub readScript()
Dim fs As New Scripting.FileSystemObject
Dim d As Scripting.Drive
Set d = fs.GetDrive("G:\")
MsgBox d.SerialNumber
End Sub
Private Sub readAPI()
Dim lngReturn As Long
Dim strVolumeName As String * 255
Dim lngSerialNum As Long
Dim lngMaxCompLength As Long
Dim lngSysFlags As Long
Dim strSystemName As String * 255
MsgBox GetVolumeInformation "G:\", _
strVolumeName, 255, _
lngSerialNum, _
lngMaxCompLength, lngSysFlags, _
strSystemName, 255
Debug.Print lngSerialNum
End Sub
Håber du kan bruge det til noget
.
--
Mikkel Bundgaard
IT University of Copenhagen
http://officehelp.gone.dk
ICQ# 116946261
Se SpaceCommunicator - en peer-to-peer chat-applikation i Java