Error on Netsend.vbs

Hi All

I have try to active action for netsend.vbs But I get error message

" subscript out off range "

This Netsend.vbs script

' NetSend script
' Part of PDFCreator
' License: GPL
' Homepage: http://www.sf.net/projects/pdfcreator
' Version: 1.1.0.0
' Date: September, 1. 2005
' Author: Frank Heindörfer
' Comments: Please be shure that the messenger service is started!

'Option Explicit

Const AppTitle = "PDFCreator - NetSend"

Dim objArgs, WshShell

Set objArgs = WScript.Arguments

If objArgs.Count = 0 Then
 MsgBox "This script needs a parameter!", vbExclamation, AppTitle
 WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")

SendToUser
'SendToComputer


Private Sub SendToUser
 WshShell.Run "net send " & objArgs(1) & " " & _
  "PDFCreator: File was created." & vbcrlf & _
  "Filename: " & objArgs(0) & vbcrlf & _
  "User: " & objArgs(1) & vbcrlf & _
  "Computer:" & Replace(objArgs(2),"\\\\","")
End Sub

Private Sub SendToComputer
 WshShell.Run "net send " & Replace(objArgs(2),"\\\\","")  & " " & _
  "PDFCreator: File was created." & vbcrlf & _
  "Filename: " & objArgs(0) & vbcrlf & _
  "User: " & objArgs(1) & vbcrlf & _
  "Computer:" & Replace(objArgs(2),"\\\\","")
End Sub

 

Please advise

 

Rgds