Atverat notepad >

Iekopējat šito skriptu

Kods:
Set oWMP = CreateObject(“WMPlayer.OCX.7″ )
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count – 1
colCDROMs.Item(i).Eject
Next ‘ cdrom
End If

Saglabājat kā disk.vbs ( galvenais beigās ir uzrakstīt .vbs)

Palaižat to failu un jums atversies DVD-ROM


Twitt