/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Læse serienummer på CD eller diskette...
Fra : Pierre Neubert


Dato : 09-10-01 11:22

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.



 
 
Mikkel Bundgaard (09-10-2001)
Kommentar
Fra : Mikkel Bundgaard


Dato : 09-10-01 11:39

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





Søg
Reklame
Statistik
Spørgsmål : 177552
Tips : 31968
Nyheder : 719565
Indlæg : 6408847
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste