Listing 1: The BackTicks.vbs Script

Dim objPerlCOM, sOutput

Set objPerlCOM = CreateObject("PerlCOM.Script")

objPerlCOM.EvalScript "$sProperty = 'The value of objPerlCOM.sProperty is this string';"
MsgBox objPerlCOM.sProperty

objPerlCOM.EvalScript _
   "sub vbsBackTicks {                             " & _
   "                                               " & _
   "   my($command, $delimiter) = @_;              " & _
   "                                               " & _
   "   my @output = `$command`;                    " & _
   "                                               " & _
   "   return join($delimiter, @output);           " & _
   "}"

sOutput = objPerlCOM.vbsBackTicks("net use", "@")
MsgBox sOutput

Set objPerlCOM = Nothing