Newsgroup: it.comp.appl.access
Titolo: serialHd sul sito comune impossibile aprirlo perché creato con versione precedente

buongiorno a tutti, 
 
qualcuno sa dirmi come potrei aprire il file serialHd sul sito comune mi da il messaggio "impossibile aprirlo perché creato con versione precedente"
 
grazie.


se servisse a qualcuno con access successivo al 2003 il codice è questo
 
Public Sub LeggiSerialeDisco()
    Dim fso As Object
    Dim drive As Object
    Dim serialNumber As Stringù
 
    ' Creazione di un'istanza di Scripting.FileSystemObject
    Set fso = CreateObject("Scripting.FileSystemObject")
 
    ' Ottenere l'unità di disco corrente
    Set drive = fso.GetDrive(fso.GetDriveName("c:\"))
 
    ' Ottenere il seriale del disco
    serialNumber = drive.serialNumber
 
    ' Visualizzare il seriale del disco
    MsgBox "Il seriale del disco è: " & serialNumber
 
    ' Rilasciare le risorse
    Set drive = Nothing
    Set fso = Nothing
End Sub


mmm
pare più il numero di serie del volume quello e non il seriale del disco
se vuoi ottenere  il seriale del hardware del produttore non è quello...
a cosa ti serve?
 
BFS
 

Il 14/06/2023 14:11, mario rossi ha scritto:

Che versione Access stavi usando che non apriva un mdb 2003 ?


serve per evitare copie del database


Microsoft 365 App for enterprise


se spostano il file dal disco C al disco D gia ti blocca visto che 
secondo me quel codice ricava il seriale del volume e non dell'hard disk
 
ma se anche fosse il seriale del hard disk una azienda non è libera di 
clonarsi un disco senza dover chiedere a te di modificargli poi il 
programma che non si aprirebbe piu?
 
per evitare copie del database userei altre strade..
BFS
 
 


E quindi il seriale hd come lo leggeresti?
"..userei altre strade.." quali?
 


non leggerei alcun seriale, non ha senso che un cliente non possa 
clonarsi il disco anche ogni 6 mesi per averlo sempre fresco nel PC per 
mettersi al riparo da rotture
 
 
personalmente,semplificando, uso un controllo incrociato su chiave 
aggiunta in fase di installazione sul registro di windows e file 
generato con contenuto ad hoc su cartella windows.
Il mix delle due informazioni viene salvato nel mio server (è richiesta 
la connessione internet per installare il programma) per gestire rinnovi 
e blocchi licenza
in aggiunta (facendo pagare i miei software con canoni annuali) utilizzo 
anche un controllo sulla data.
 
 
BFS
 
 
 
 


anche se spostano il programma dal disco C: al disco D:
il mio programma legge sempre il seriale del disco C: e quindi parte perché il PC è lo stesso.


Puoi spiegare se non chiedo troppo come comunichi da access con i tuoi server in internet?
un database di Aruba mi sembra di aver capito che non è possibile gestirlo, leggerlo scriverlo da Db Access locale, esistono hosting che permettono di farlo? tu come fai? 
grazie.


io ho tutto virtualizzato sul Virtual Private CLoud di Aruba e li puoi 
accedere alla istanza sql server da ovunque
sia il server sia i 3 posti di lavoro che ho in ufficio
tutti connessi tra loro tramite virtual switch
in locale ho solo client stupidi con rdp per connettermi
 
BFS
 
 


il codice che hai postato non legge il seriale del disco ma quello del 
volume secondo me
fai una prova magari da dos:
 
https://winadmin.it/come-trovare-il-numero-di-serie-del-disco-rigido-in-windows/
 
 
BFS
 
 
 
 
 


il seriale nel db ottenuto con  fso.GetDrive(fso.GetDriveName("c:\")) risulta qualcosa tipo -665485785
 
mentre con il comando wmic diskdrive get serialnumber ottengo il serial number 056E312F81B
 
con vol c:\ ottengo numero di serie del volume E862-9FC0 
 
facciano un summit e si mettano d'accordo su cos'è per loro il serial number.
 
Ba!!!
 
 
 


Troppo complicato o sbaglio?


io non vedo nulla di complicato anzi...
 
invece di avere un server e tre client fisici in ufficio ho tutto sul cloud.
 
non mi devo preoccupare di guasti hardware/furti/calamità naturali.
posso lavorare da qualsiasi parte del mondo mi basta avere una 
connessione internet.
 
BFS