В Windows XP - это
*--- для Windows XP
FUNCTION fSerNumXP()
strComputer = "."
objWMIService = GetObject("winmgmts:\\" + strComputer + "\root\cimv2")
oDisksCollection = objWMIService.ExecQuery("Select * from Win32_DiskDrive",,48)
oPhysical= objWMIService.ExecQuery("Select * from Win32_PhysicalMedia")

For Each oDrive IN oPhysical
RETURN ALLTRIM(oDrive.SerialNumber)
Next
ENDFUNC

А как определить серийный номер жёсткого диска в Windows 98 без установки дополнительного программного обеспечения? Возможно ли это?