Set objFSO = CreateObject("Scripting.FileSystemObject")
Set studioDirectory = Nothing

Sub Run(ByVal sFile)
Dim shell

    Set shell = CreateObject("WScript.Shell")
    shell.Run Chr(34) & sFile & Chr(34), 1, false
    Set shell = Nothing
End Sub

For Each subfolder In objFSO.GetFolder("C:\Program Files (x86)\Roblox\Versions").SubFolders
    For Each file In objFSO.GetFolder(subfolder).Files
        If file.Name = "RobloxStudioBeta.exe"  Then
            Set studioDirectory = subfolder
        End If
    Next
Next

If Not studioDirectory Is Nothing Then
    For Each subfolder In objFSO.GetFolder(studioDirectory).SubFolders
        If subfolder.Name = "BuiltInPlugins" Then
            objFSO.DeleteFolder(subfolder)
        End If
    Next
    Run studioDirectory & "\RobloxStudioBeta.exe"
Else
    Wscript.Echo "RobloxStudioBeta.exe not found in any subfolders of C:\Program Files (x86)\Roblox\Versions"
End If