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