drvPath="c:\" ofs=CreateObject('Scripting.FilesystemObject') drv = ofs.GetDrive(ofs.GetDriveName(drvPath)) ? drv.SerialNumber