Add a entry to startup using vbscript

Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists("C:\Program Files\Cisco Systems\Cisco IP Communicator\communicatork9.exe") Then

  set WshShell = WScript.CreateObject("WScript.Shell" )
  strStartup = WshShell.SpecialFolders("AllUsersStartmenu" )
  set lnk = WshShell.CreateShortcut(strStartup & "\programs\startup\IPCommunicator.lnk" )
  lnk.TargetPath = "C:\Program Files\Cisco Systems\Cisco IP Communicator\communicatork9.exe"
  lnk.Arguments = ""
  lnk.Description = "IP Communicator"
  lnk.WindowStyle = "4"
  lnk.WorkingDirectory = "C:\Program Files\Cisco Systems\Cisco IP Communicator\"
  lnk.Save
  Set lnk = Nothing

ELSE

    If objFSO.FileExists("C:\Program Files (x86)\Cisco Systems\Cisco IP Communicator\communicatork9.exe") Then
set WshShell = WScript.CreateObject("WScript.Shell" )
  strStartup = WshShell.SpecialFolders("AllUsersStartmenu" )
  set lnk = WshShell.CreateShortcut(strStartup & "\programs\startup\IPCommunicator.lnk" )
  lnk.TargetPath = "C:\Program Files (x86)\Cisco Systems\Cisco IP Communicator\communicatork9.exe"
  lnk.Arguments = ""
  lnk.Description = "IP Communicator"
  lnk.WindowStyle = "4"
  lnk.WorkingDirectory = "C:\Program Files (x86)\Cisco Systems\Cisco IP Communicator\"
  lnk.Save
Set lnk = Nothing

END IF

END IF