Reply to thread

Message: <blockquote data-quote="thicps" data-source="post: 9311682" data-attributes="member: 47868">menna open close dekama Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectionif colCDROMs.Count >= 1 thenfor i=0 to colCDROMs.Count - 1strDrive= oWMP.cdromCollection.item(i).driveSpecifierstrQuestion = "Espellere drive " & strDrive & "?"answer= msgbox (strQuestion, vbOKCancel)if answer= vbOK thencolCDROMs.Item(i).EjectstrQuestion = "Richiudere drive " & strDrive & "?"answer= msgbox (strQuestion, vbOKCancel)if answer= vbOK then colCDROMs.Item(i).Ejectend ifnext 'drive nella collezione dei drive CDROMend ifwscript.quitmeke msg wena language ekakin thiyenne eka kamathi widiyata wenas karaganna man rathu pata karala thiyenne e tika.. ara widiyatama note pad ekakata copy karala *.vbs kiyala save karanna.. then run it</blockquote>

Top Bottom