Forum - Ασφάλεια Κλείδωμα βάσης με τον αριθμό του σκληρού δίσκου ?

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - [ Ασφάλεια] Κλείδωμα βάσης με τον αριθμό του σκληρού δίσκου ? (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2241-kleidoma-basis-me-ton-arithmo-toy-skliroi-diskoy.html)

Κλείδωμα βάσης με τον αριθμό του σκληρού δίσκου ?

Καλησπέρα σε όλους και καλά Χριστούγεννα ,
Θα ήθελα να ρωτήσω αν υπάρχει τρόπος εκτός απο το κλείδωμα κορδέλας, shift κλπ, να μπορώ να κλειδώσω μιά βάση με το ID του σκληρού δίσκου απο τον οποίο θα τρέχει (δηλαδή την πρώτη φορά που θα τρέξει να αποθηκεύει σε εναν κρυφό πίνακα το ID και έπειτα κάθε φορά που ανοίγει να ελέγχει το ID έτσι ώστε να είναι αδύνατον να αντιγραφεί και να τρέξει οπουδήποτε αλλού).

Ισως και με τον μοναδικό αριθμό του επεξεργαστή , δεν ξέρω κιόλας αν υπάρχει τέτοια δυνατότητα.

Ευχαριστώ πολύ.

Καλησπέρα!

Γιώργο, για να παίρνεις το ID του επεξεργαστή δοκίμασε το παρακάτω:

Κώδικας:

Sub test()

    Dim x As String

    x = GetProccessorID

    Debug.Print x

End Sub
 

Function GetProccessorID() As String

    Dim oWmi As Object, ColProcessors As Object, oProcessor As Object, StrComputer As String

    StrComputer = "."

    Set oWmi = GetObject("winmgmts:\\" & StrComputer & "\root\cimv2")

    Set ColProcessors = oWmi.ExecQuery("Select ProcessorId From Win32_Processor")

    For Each oProcessor In ColProcessors

        GetProccessorID = oProcessor.ProcessorId

    Next

End Function

Καλή συνέχεια!

Τάσος