HadesLgc
|
PINDORAMA
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 21/10/2004 09:18 hs
como faço pra pegar o nº do hd, e como uso o filesystemobject
Um trabalho se justifica na medida em que ganha experiências e esforços permitindo que outros comecem por onde terminamos, pois a vida é curta demais para que possamos pesquisar e analizar a grande quantidade de informações dispersas em muitas fontes que não podemos consultar 
|
|
|
|
|
|
|
|
Postada em 21/10/2004 16:10 hs
|
|
|
|
Semmer
|
CURITIBA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 21/10/2004 17:42 hs
Dim fs, hd
Set fs = CreateObject("Scripting.FileSystemObject")
Caminho = "C:"
Set hd = fs.GetDrive(Caminho)
MsgBox hd.serialnumber
|
|
|
|
