关闭光驱托盘的代码




今天因为需要找了一个可以关闭光驱的VB Script,把下列代码保存为CloseCDROM.vbs就可使用

Set wmp = CreateObject("WMPlayer.OCX.7")
Set cdrom = wmp.cdromCollection
If cdrom.Count >= 1 then
 For z = 0 to cdrom.Count – 1
  cdrom.Item(z).Eject
 Next
 For z = 0 to cdrom.Count – 1
  cdrom.Item(z).Eject
 Next
End If

该Script有问题,不能使用

发表评论?

0 条评论。

发表评论


注意 - 你可以用以下 HTML tags and attributes:
<a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <s> <strike> <strong>

Time limit is exhausted. Please reload CAPTCHA.