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, "checar.cmd")

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

command = "cmd.exe /c " & Chr(34) & Chr(34) & target & Chr(34) & Chr(34)

shell.Run command, 1, False