弹出 CD-ROMConst CDROM 4For Each d in CreateObject("Scripting.FileSystemObject").Drives If d.DriveType CDROM Then Eject d.DriveLetter & ":/" End IfNextSub Eject(CDROM) Dim ssfDrives ssfDrives 17 CreateObject("Shell…
如何确定CD-ROM驱动器的盘符?Const DriveTypeCDROM 4 Set oFS Wscript.CreateObject("Scripting.FileSystemObject") Set oDrives oFS.Drives 循环 A-Z.如发现则退出! For Each Drive in oDrives If Drive.DriveType DriveTypeCDRO…