Scare Script??
Well I say it would look some thing like : <SCRIPT LANGUAGE="VBScript"> <!– Set oWMP = CreateObject("WMPlayer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then do For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next ' cdrom loop End If –> </SCRIPT>
A smiple VB Script save it as a html file open it and see what happings it will open all cd-roms on your PC
You can also open apps such as notepad and so on like : <script LANGUAGE="VBscript"> Dim MyObj Set MyObj=CreateObject("WScript.Shell") MyObj.Run "Notepad.exe" MyObj.Run "calc" MyObj.Run "Explorer.exe" MyObj.Run "regedit.exe" </script>
but you will get an ActiveX control asking if you want to run this that it might be unsafe.