نمایش سریال نامبر هارد

• آموزش نمایش سریال نامبر هارد در Access

در یکی دیگر از بخش های آموزش اکسس قصد داریم تا در خصوص نمایش سریال نامبر هارد صحبت کنیم. یکی از روش های تأمین امنیت در برنامه های نوشته شده با اکسس استفاده از ماژول بدست آوردن سریال هارد در Access است که از طریق آن خواهید توانست باز شدن یا ادامه کار کردن برنامه را به آن کد وابسته نمود. در زیر این کد را ملاحظه می کنید. برای استفاده از این کد لازم است تا آن را در یک ماژول خام کپی کنید و در یک رویداد مثل On Open Form فراخوانی کنید.

Function HDSerialNumber() As String
'www.mrplanner.ir
 Dim fsObj As Object 
 Dim drv As Object
 Set fsObj = CreateObject("Scripting.FileSystemObject")
 Set drv = fsObj.Drives("D")
 HDSerialNumber = Left(Hex(drv.SerialNumber), 4) & "-" & Right(Hex(drv.SerialNumber), 4)
 MsgBox HDSerialNumber
 Debug.Print HDSerialNumber
End Function