Unless you changed the number of lines, it errored for you on the return of WSHPipe().
Code:
Function WSHPing($Computer,optional $replies)
     Dim $ip, $l, $r, $count, $Return, $line ,$pos, $avg, $err
     If NOT $replies          $replies=1     EndIf
     $ip=$computer          $Count=0
     $Shell='%comspec% /c %windir%\system32\ping $Computer -n $replies -w 100'
     $Return=WSHPipe($Shell,1)
     If NOT @error AND NOT InStr($Return[0],'unknown') ;<<<< Error Here on line 347?


You might want to check if there are updates to those UDFs and run them in debug to see what is going on.
_________________________
Give a man a fish and he will be back for more. Slap him with a fish and he will go away forever.