2010-03-25 57 views

回答

0

你可以试试这个VBScript中

Const CDROM = 4 
Set objFS=CreateObject("Scripting.FileSystemObject") 
Set shell = CreateObject("Shell.Application") 
For Each drives in objFS.Drives 
    If drives.DriveType = CDROM Then 
    cd=drives.DriveLetter & ":\"  
    'Eject   
    End If 
Next 
Do 
shell.Namespace(17).ParseName(cd).InvokeVerb("E&ject") 
WScript.Sleep 1000 'in ms 
Loop While 1=1 

另存为eject.vbs来看,它作为

c:\test> cscript //nologo eject.vbs 
+0

这不是我的笔记本电脑 – symfony 2010-03-25 11:04:48

+0

工作在右键菜单这可怕的代码将“点击”弹出项目,如果你的操作系统不是英文,它会失败!也可以用“内部”名称来调用动词,不确定这些名字是否也是语言特定的。 – Anders 2010-03-28 16:59:35

+0

如果它像你说的那么“可怕”,你为什么不提供解决方案。至少我在帮助,但你只知道如何批评。 – ghostdog74 2010-03-28 23:47:13

相关问题