Need fun Batch Files.

[Max4344]

My friend made a vbscript file that opens and closes the CD drive. I could probably give you that.

can i have it. i want to troll my mom with that :D

[Ad Bot]

[mp7964]

can i have it. i want to troll my mom with that :D

Code: [Select]

Dim ts
Dim strDriveLetter
Dim intDriveLetter
Dim fs 'As Scripting.FileSystemObject
Const CDROM = 4
    On Error Resume Next
    Set fs = CreateObject("Scripting.FileSystemObject")
    strDriveLetter = ""
    For intDriveLetter = Asc("A") To Asc("Z")
        Err.Clear
        If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then
            If Err.Number = 0 Then
                strDriveLetter = Chr(intDriveLetter)
                Exit For
            End If
        End If
    Next
MSGBOX "YOUR CD IS: " & strDriveLetter,VBOKONLY + 48,"CDROM=> " & strDriveLetter
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
     For d = 0 to colCDROMs.Count - 1
           colCDROMs.Item(d).Eject 
Next 'null
'A1= msgbox ("Press key To Close Cd" & vbcrlf &_
' " The Cd Will Close", 0 + 64, "Open Close Cd Tray")
'     For d = 0 to colCDROMs.Count  1
'            colCDROMs.Item(0).Eject
'Next 'null

set owmp = nothing
set colCDROMs = nothing
wscript.quit
Google is your friend.

[Fireboy]

This bombs you with IE windows. Use at your own risk.

Code: [Select]

@echo off
:A
start iexplore google.com
goto:A

when i was like 6 i visited a website and this happened to me, i was smart and turned off the pc though

[steve5451]

Code: [Select]

-snip-
Google is your friend.

I tried that...then I realized that my CD drive does not work anymore ever since I broke my second to last SATA connector on my motherboard.