Dimension aDriveTypes[6] >aDriveTypes[1] = "Unknown" >aDriveTypes[2] = "Removable" >aDriveTypes[3] = "Fixed" >aDriveTypes[4] = "Network" >aDriveTypes[5] = "CD-ROM" >aDriveTypes[6] = "RAM Disk" >oFS = CREATEOBJECT('Scripting.FileSystemObject') >For each oDrive in oFS.Drives > ? "Drive :"+oDrive.DriveLetter +" Type - " + aDriveTypes[oDrive.DriveType+1] > If oDrive.isReady > ?? " [Serial Number :" + transform(oDrive.SerialNumber)+"]" > Endif >EndforCetin