vb 脚本 传递参数的问题

我有一个VB脚本，其中有 “65” 这个值，我想通过别的程序调用这个脚本，并且将“65” 作为外部参数传递进去，应该怎么改写呢？

'LANGUAGE=ENU
'SERVERNAME=58.2.221.26
Public Sub Main()

On Error Resume Next

cvsSrv.Reports.ACD = 1
Set Info = cvsSrv.Reports.Reports("Historical\Designer\Call Profile Test")

If Info Is Nothing Then
If cvsSrv.Interactive Then
MsgBox "The report Historical\Designer\Call Profile Test was not found on ACD 1.", vbCritical Or vbOKOnly, "Avaya CMS Supervisor"
Else
Set Log = CreateObject("AVSERR.cvsLog")
Log.AutoLogWrite "The report Historical\Designer\Call Profile Test was not found on ACD 1."
Set Log = Nothing
End If
Else

b = cvsSrv.Reports.CreateReport(Info,Rep)
If b Then

Rep.Window.Top = 2790
Rep.Window.Left = 3030
Rep.Window.Width = 15030
Rep.Window.Height = 11280

Rep.SetProperty "Split/Skill","65"

Rep.SetProperty "Date","0"

Rep.SetProperty "Times","00:00-23:30"

b = Rep.SaveHTML("C:\Documents and Settings\Administrator\Desktop\Current.Html", True, "")

Rep.Quit

If Not cvsSrv.Interactive Then cvsSrv.ActiveTasks.Remove Rep.TaskID
Set Rep = Nothing
End If

End If
Set Info = Nothing
'## cvs_cmd_end

End Sub

参数

外部传递的命令行参数吗？

可以用 Command$ 接收

vbs 脚本的话接收参数是

dim args
set args = wscript.arguments
msgbox args.count '显示传递参数的总数
msgbox args(0) '第一个参数

同问。。。