Numero de serie de disco duro

Puedes hacerlo de varias formas

Con WSH ...

oFS=CreateObject('scripting.filesystemobject')
?oFS.Drives('c').SerialNumber
release oFs


Con el API

DECLARE SHORT GetVolumeInformation IN Win32API;
STRING @lpRootPathName, STRING @lpVolumeNameBuffer,;
INTEGER nVolumeNameSize, INTEGER @lpVolumeSerialNumber,;
INTEGER @lpMaximumComponentLength, INTEGER @lpFileSystemFlags,;
STRING @lpFileSystemNameBuffer, INTEGER nFileSystemNameSize

lcroot = "C:\"

STORE 0 TO lnserialno, lncomplen, lnsysflags
STORE SPACE(260) TO lcvolname, lcsysname
STORE LEN(lcvolname) TO lnvolsize, lnnamesize

llresult = (GetVolumeInformation(@lcroot, @lcvolname, ;
lnvolsize, @lnserialno, @lncomplen, @lnsysflags, ;
@lcsysname, lnnamesize) # 0)

?lnserialno

David Amador Tapia
Webmaster de "La Web de Davphantom"
www.davphantom.cjb.net
Cartagena. Colombia
Tel (5) 6621502 - 6581523


"Carlos Úcar" escribió en el mensaje
news:0a8901c350fb$5dd43eb0$
¿Qué instrucción debo utilizar para obtener el número de
serie del disco dur de cualquier disco de una red?

Gracias por vuestra ayuda.