Arserve 11 tapy copy error

[hemps37]

I"m trying to write a script to copy 2 different backups which are on drives to a tape. In arcserve 9 we used the following script to get this job done. before running the script we format the tape then run this.
--------------------
source = InputBox("Enter the Source Group Name")

If source = "" Then
WScript.Quit
End if

Tape = InputBox("Enter the Source Media Name")

If Tape = "" Then
WScript.Quit
End if

cmdLine = "tapecopy -s" & Source & " -dDELLTAPE" & " -t" & tape & " " & "-a"

'WScript.Echo "Would you like to launch the following command? " & cmdLine

MsgResult = MsgBox ("You are going to use the following command:" & vbcrlf & cmdline,4,"Arcserve Script")

If MsgResult = 6 then

Set objShell = CreateObject("WScript.shell")

objShell.Run "%Comspec% /c \\nas2\e$\computerassociates\arcserve\" & cmdline,, True
'WScript.echo "Running Command Line" & cmdline

else

WScript.Echo "Terminating Script"
WScript.Quit

End If
---------------------------

We have just switched to Arcserve 11.5 now this script won't work. We have modified it to work but now we have to input the tapes name and ID number, because if we only point it to the group it asks for a blank tape instead of using the formatted one that is available.

Here is the script that asks for the id number as well.

---------------------
source = InputBox("Enter the Source Group Name")

If source = "" Then
WScript.Quit
End if

Tape1 = InputBox("Enter the Source Media Name")

If Tape1 = "" Then
WScript.Quit
End if

Tape2 = InputBox("Enter the Tape Name")

id = InputBox("Enter tape ID")

If Tape2 = "" Then
WScript.Quit
End if

cmdLine = "tapecopy -s" & Source & " -dDELLTAPE" & " -t" & tape1 & " -c" & tape2 & " -idd" & id & " -zd 1 "

'WScript.Echo "Would you like to launch the following command? " & cmdLine

MsgResult = MsgBox ("You are going to use the following command:" & vbcrlf & cmdline,4,"Arcserve Script")

If MsgResult = 6 then

Set objShell = CreateObject("WScript.shell")

objShell.Run "%Comspec% /c \\nas2\e$\computerassociates\arcserve\" & cmdline,, True
'WScript.echo "Running Command Line" & cmdline

else

WScript.Echo "Terminating Script"
WScript.Quit

End If
----------------------------
I was hoping someone could help in in just having the script asking about the source (which changes) and the destination (and even that could be auto) I'm trying to have the kiss approach on this because sometimes users who don't know what they are doing have to do this job and the easier the better.

Thanks in advance.
Mike