title image


Smiley Code aber wo?
Habe auf einer Internetseite folgenden Code gefunden, welcher die Festplattennummer abfrägt. Die frage ist nur - wo bitte schön muss ich das in Access einbinden?





===

Option Compare Database

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, lpMaximumComponentLenght As Long,_

lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String,_

ByVal nFileSystemNameSize As Long) As Long



Function VolSerialNo()



Dim lpRootPathName As String

Dim IngRet As Long

Dim lpVolumeNameBuffer As String

Dim nVolumeNameSize As Long

Dim lpVolumeSerialNumber As Long

Dim lpMaximumComponentLenght As Long

Dim lpFileSystemFlags As Long

Dim lpFileSystemNameBuffer As String

Dim nFileSystemNameSize As Long

Dim answer As Integer



lpRootPathName = "C:\"

IngRet = GetVolumeInformation(lpRootPathName, lpVolumeNameBuffer,_

nVolumeNameSize, lpVolumeSerialNumber, lpMaximumComponentLenght,_

lpFileSystemFlags, lpFileSystemNameBuffer, nFileSystemNameSize)



rem für xxx ist die Seriennummer einzusetzen



If IngRet 0 Then

If lpVolumeSerialNumber xxx Then

answer = MsgBox("Sie haben keine Berechtigung dieses Programm auf diesem " & _

"Computer auszuführen.", VbExclamation, "Hinweis !")

DoCmd.Quit

End If

End If



End Function

====



Danke für Eure Hilfe!
Lieben Gruß
Martin
Über eine Rückantwort, ob Dir dieser Eintrag weiterhelfen konnte, würde ich mich freuen.


Gerade weil wir alle in einem Boot sitzen, sollten wir froh sein, dass nicht immer alle auf der selben Seite sind.


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: