如何用快手得到本机硬盘的序列号

//声明要用到的API
GetVolumeInformation = ::Kernel32.api("GetVolumeInformationA","int(
string lpRootPathName,
string &lpVolumeNameBuffer,
INT nVolumeNameSize,
INT& lpVolumeSerialNumber,
INT& lpMaximumComponentLength,
INT& lpFileSystemFlags,
pointer lpFileSystemNameBuffer,
INT nFileSystemNameSize
)");
//此函数返回一个表，包含所有的分区、序列号
getSerialNumber = function(){
var tab = {}
var re,volumeName,volumeSerialNumber;
var drive;
for(chr='C'#;'Z'# ){
var drive = ..string.pack(chr);
re,volumeName,volumeSerialNumber = GetVolumeInformation(drive + ":/",255,255,0,0,0,null,0) ;
if(volumeSerialNumber)
tab[drive] = ..string.format("%X",volumeSerialNumber )
}
return tab;
}
//读取所有硬盘序列号
var tdrives = getSerialNumber();
//显示到控制台
io.open();//打开控制台
for(k,v in tdrives ){
io.print( "分区:"+k,"序列号"+v);
}
execute("pause") //按任意键继续
io.close();//关闭控制台