Option Explicit

Dim shell, fso, baseDir, target, command

Set shell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")

baseDir = fso.GetParentFolderName(WScript.ScriptFullName)
target = fso.BuildPath(baseDir, "configurar.vbs")

If Not fso.FileExists(target) Then
    MsgBox "Nao encontrei o arquivo configurar.vbs na pasta do rato.", 48, "Rato"
    WScript.Quit 1
End If

command = "wscript.exe " & Chr(34) & target & Chr(34)

shell.Run command, 1, False