Newsgroup: it.comp.lang.visual-basic
Titolo: Ricavare seriale HD

Non trovo più un esempio di come ricavare il n di serie dell HD dove è
installato il programma.
Nessuno si ricorda dove ?
Grazie Max

 Grazie Max
Puoi usare l'API GetVolumeSerialNumber.
Io lo uso cosě:
Public Declare Function GetVolumeSerialNumber Lib "kernel32" _
    Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, _
    ByVal lpVolumeNameBuffer As Long, _
    ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, _
    ByVal lpMaximumComponentLength As Long, _
    ByVal lpFileSystemFlags As Long, _
    ByVal lpFileSystemNameBuffer As Long, _
    ByVal nFileSystemNameSize As Long) As Long
Public Function VolumeSerial(DriveLetter) As Long
    Dim Serial As Long
    Call GetVolumeSerialNumber(UCase(DriveLetter) & ":\", 0&, 0&, _
        Serial, 0&, 0&, 0&, 0&)
    VolumeSerial = Serial
End Function
-- 
Esteban
www.seber.it
Questo post č stato scritto con bit riciclati.

 installato il programma.
Inserisci un riferimento alla libreria Microsoft Scripting Runtime, poi
dichiari un oggetto
Dim FSO as New Scripting.FileSystemObject
Poi quando vuoi lo usi cosě
Seriale = fso.Drives(Left$(App.Path), 1).SerialNumber
E' un oggetto molto potente per lavorare con drives, cartelle e files.
Ricky

 facoltativo" ???
Non c'è verso di insegnare gli approcci corretti alla gente, vero?
Sempre meglio il copia-incolla senza capire un accidenti di cosa si stia
facendo.
Ciao
--
Math Parser : 
http://www.neodatatype.net
Sito Comune : 
http://www.it-lang-vb.net

 facendo.
Già.
Il che mi fa venire un dubbio sul fatto che andrebbe ripensato
l'approccio del Sito Comune. Lo so che ormai è troppo tardi,
ma se si dovesse tornare indietro e rifare tutto da capo, non so...
Bye, G.

 ma se si dovesse tornare indietro e rifare tutto da capo, non so...
Non puoi tirarmi un sasso e nasconderti dietro la mano (o qualcosa del
genere) :P
Diciamo... in linea *puramente* *teorica* :) come lo ripenseresti?


 Diciamo... in linea *puramente* *teorica* :) come lo ripenseresti?
Io, cominciando dal NG, proporrei un nuovo Tag: "[NONHOLAGUIDA]"

 Io, cominciando dal NG, proporrei un nuovo Tag: "[NONHOLAGUIDA]"
Avete ragione, leggo solo ora la vostre risposte, comunque io poi ne
frattempo mi sono andato la leggere il significato di Left, ho scoperto Mid,
e anche Right, e come adoperrarli ed avevo già risolto.
io capisco che è più facile fare a volte fare un copia ed incolla, ma io che
ho 40 anni, e non sono andato oltre la 3à media, a volte è più facile
imparare  facendo così , anche perchè il mio è un semplice passatempo e
graditissimo hobby.
Chiedo scusa e ringrazio chi mi ha passato un aiuto sbagliato, ma molto più
utile in quanto mi ha indicato la strada dove cercare .
Max
PS
Le risposte date da superiori e con la puzza sotto al naso, possono evitare
di rispondere a 3d come questi.
chiedere è lecito, rispondere è cortesia.

 graditissimo hobby.
Ecco, adesso mi sentro in colpa :)
A volte dimentico (e non dovrei data la presenza di più di un assiduo
frequentatore) che nel NG non scrivono solo i "14enni smanettoni".
E comunque è vero, la programmazione dev'essere sempre almeno in parte un
hobby, anche se lo si fa per lavoro.


 chiedere è lecito, rispondere è cortesia.
Se ti riferisci (anche) a me, beh, rivolto la frittata e
(copiando/incollando, con dubbio) stavolta "Meliu<m s> adbundare quam
deficere" non è vero.

 hobby, anche se lo si fa per lavoro.
Ma che colpa !!!
Io frequento forum di macchine e motori, sono un elettruto, e vedo alcune
cose banalissime, per mè mettere in fase un motore è una "banalità" ma non
lo era ricavare il numero di serie di un HD !!!!
Max e alla prossima

 Max e alla prossima
Piu' di una volta mi e' venuto in mente di "scambiare" le mie competenze
con persone in altri campi nei quali io non so niente: un anno  e mezzo fa
ho preso una moto usata (Honda XL 200 dell'84), mi ero ripromesso di
imparare a farci manutenzione da solo (smontaggio motore, etc etc, ho anche
comprato il libro della moto) ma mi sono reso conto che senza qualcuno con
cui fare prove per me sarà difficilissimo fare pratica (dato anche il poco
tempo)...
Chissa' se su questo ng legge un meccanico motociclista interessato ad
imparare a programmare, magari nel novarese/varesotto :-))
Stefano "HappyMan" (Lake Maggiore - Italy)
-- 
The Personal Framework for Object Oriented Windows Development (Win32)
http://www.sgr.info
Email happyman69 (at) 
despammed.com


Meccanico magari no, ma motociclista può essere ;)
Zanna(vbFromSommaLombardo)



Salve, posso porre una domandina forse stupida...
...azzardo, questo numero seriale, ricavato con ambe due le funzioni citate,
cosa rappresenta !???
...se, come dice il nome, rappresenta il n° seriale dell' HD, mi spiegate
perchè in un HD con più partizioni ottengo n° seriali diversi !???!

 ha scritto nel messaggio
news:%HL5c.69168$O31.3...@news4.tin.it...


 partizione
... è praticamente una sola...
...e se io volessi il vero numero seriale... Smonto l'HD ?
Sai per caso se sia possibile reperirlo via SW !???
Non che me ne faccia qualcosa, ma sai la curiosità... anche perchè mi sembra
che nessuno abbia mai trattato l'argomento in questi termini...

 > perchè in un HD con più partizioni ottengo n° seriali diversi !???!
allora se uno formatta l'HD successivamente verrà assegnato un numero
differente.
Come si fa a ricavare il numero di fabbrica dell' HD ?
Max

 Sai per caso se sia possibile reperirlo via SW !???
vai sul sito comune e cerca " hddInfo"
li ti da tutto
Max

ok, mo' provo
--
______________________________________
...il cadavere presentava evidenti segni di morte.
[...tratto da verbale n°176]

Nulla di fatto... non ho trovato niente ne tra i tutorial ne tra le
sorgrnti, se avevi qualche esempio di particolare in mente fammi sapere.


 ha scritto nel messaggio
news:7m07c.96577$O31.4...@news4.tin.it...

questo
http://www.visual-basic.it/scarica.asp?ID=673
ciao

> Nulla di fatto... non ho trovato niente ne tra i tutorial ne tra le
sorgenti...
Io ho sviluppato una DLL per ricavare il numero seriale hardware dell'HD .
E' semplice da usare anche da VB (due comandi). Funziona sotto
Win95/98/ME/NT/2K/XP . Non necessita di altri componenti.
Se a qualcuno interessa, mi contatti su 
h.se...@libero.it
 .
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

> 
http://www.visual-basic.it/scarica.asp?ID=673
l'esempio era proprio calzante, era quello che cercavo. Ma non funziona sul
mio PC. Ho analizzato il codice e non riesce ad aprire lo SMARTVSD, non
capisco perchč...
sai darmi una dritta anche su questo !???!
Grazie comunque per l'aiuto ed interessamento. :-)

 Zanna(vbFromSommaLombardo)
Che sfiga, sabato scorso il mio mezzo mi ha lasciato a piedi,noie
all'impianto elettrico, e non so neanche se riusciro' ad aggiustarlo :-((
