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

[Γιωργος Μπεστ]

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

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

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

[Tasos]

Καλησπέρα!

Γιώργο, για να παίρνεις το 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

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

Τάσος