Homecode for opening and closing your CD drive
Page 1 of 1
code for opening and closing your CD drive
by Munsab Ali Wed Nov 19, 2014 11:46 am
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
colCDROMs.Item(i).Eject
Next ' cdrom
end if save as .vbs
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
end if save as .vbs
Ps save as .vbs not .bat
Munsab Ali- Admin
-
1013
Join date/تاریخ شمولیت : 07.03.2014
Age/عمر : 44
Location/مقام : pakistan -
Similar topics» Format Any Drive
» How to create bootable pen drive for Windows Xp
» NOW TYPE THE FOLLOWING CODE
» USER PASSWORD CODE CRACKER4
» Disco Code!
» How to create bootable pen drive for Windows Xp
» NOW TYPE THE FOLLOWING CODE
» USER PASSWORD CODE CRACKER4
» Disco Code!
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum
» گوگل کرُوم
» فوٹو شاپ
» شمشیر بے نیام قسط نمبر 2
» شمشیر بے نیام قسط نمبر 1
» متنازع سائبر کرائم بل 2015 متفقہ طور پر منظور کرلیا۔ -
» All in One
» Best Action Movies 2015 English Hollywood - TOM CRUISE - New Adventure Movies 2015
» Shinobido - Ninja