Here's the one I came up with:
 Code:
Function RemoteLocalAdmin($pcName)
  $RemoteLocalAdmin = 0
  Dim $strNT, $objStr, $Member
  $strNT = "WinNT://" + $pcName + "/Administrators,Group"
  $objStr = GetObject($strNT)
  $objStr.GetInfo
  For Each $Member in $objStr.Members
    If Ingroup($Member.Name)
      $RemoteLocalAdmin = 1
    EndIf
    If $Member.Name = @userid
      $RemoteLocalAdmin = 1
    EndIf 
  Next
EndFunction

Returns 1 for true and 0 for false