请教adp如何实现获取服务器的硬盘系列号

function 序列号(drivename as string) as long
'引用：Microsoft Scripting Runtime
'参数：drivename -- 驱动器盘符
'示例：msgbox 序列号("C:")
dim myfso as new filesystemobject
dim mydrive as drive
set mydrive=myfso.getdrive()
序列号=mydrive.SerialNumber
set myfso=nothing
set mydrive=nothing
end function