CD ഡ്രൈവ് തുറക്കാന്‍ ഒരു എളുപ്പ വഴി.

എന്നെ പോലെ ഉള്ള മടിയന്മാര്‍ക്ക് ചിലപ്പോള്‍ ഇതു ഉപകാരപ്പെടും.എന്റെ ഓഫീസില്‍ CPU വെച്ചിരിക്കുന്നത് ടാബിളിനു താഴെ ആണ്.അത് കൊണ്ട് തന്നെ CD ഡ്രൈവ് ഓപ്പണ്‍ ചെയ്യണമെങ്കില്‍ കുനിയേണ്ടി വരും.ആരുടെ മുന്നിലും കുനിയാന്‍ മടിയുള്ള നമ്മള്‍ വെറുമൊരു CD ഡ്രൈവിനു മുന്നില്‍ കുനിയണമോ എന്നാലോചിച്ചു ഇരിക്കുമ്പോളാണ് ഗൂഗിളില്‍ നിന്നും ഇങ്ങിനെ ഒരു വഴി കണ്ടെത്തിയത്.ചിലപ്പോള്‍  നിങ്ങള്‍ക്ക് ഇതു പണ്ടേ അറിയുന്നതായിരിക്കും. .അറിയാത്തവര്‍ക്കായി ഞാന്‍ ഇതു പങ്കു വെക്കുന്നു.താഴെ കാണുന്ന കോഡ് കോപ്പി ചെയ്തു ഒരു നോട്ട് പാഡില്‍ cdrom.vbs എന്ന പേരില്‍ desktop ഇല്‍ സേവ് ചെയ്യുക .  

 Set oWMP = CreateObject("WMPlayer.OCX.7")

Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then

for i=0 to colCDROMs.Count - 1

strDrive= oWMP.cdromCollection.item(i).driveSpecifier

colCDROMs.Item(i).Eject

strQuestion = "Close DRIVE " & strDrive & "?"

answer= msgbox (strQuestion, vbYESNO)

if answer= vbYES then colCDROMs.Item(i).eject:

next

end if

wscript.quit

കഴിഞ്ഞു ഇത്രേ ഉള്ളൂ.ഇനി ഡെസ്ക്ടോപ്പ് ഒന്ന് നോക്കൂ.ഒരു പുതിയ ഐക്കണ്‍ ക്രിയേറ്റ് ചെയ്തതായി കാണാം.അതില്‍ ഒന്ന് ക്ലിക്ക് ചെയ്തു നോക്കൂ..ഓടോമടിക് ആയി ഓപ്പണ്‍ ചെയ്യുന്നത് കാണാം.