perl - Perl 错误: 无法在未定义的值上调用方法“Mangle”

Question

我正在尝试执行一个 perl 脚本，因为我们有这样的语句-

# Calculate password using PwdMangler
$PwdMangler = Win32::OLE->new('PWDMangler.Mangler');
unless($password = $PwdMangler->Mangle($user , $password_plain))
{
  print $log_file "Error occured in PwdMangler\n";
  exit (1);
} # End Unless

但是这个 perl 给出了这样的错误-

无法在未定义的值上调用方法“Mangle”。

因此，我尝试打印 $user 和 $password_plain 值，并且能够捕获这些值。

对此错误的任何建议。

Answer 1

从 CPAN：new()类方法启动 OLE 自动化对象的新实例。undef如果创建失败，它会返回对此对象的引用。

您应该检查是否PWDMangler.Mangler是正确的程序 ID。

PS：不想看起来很笨，但你确定PWDMangler不应该PWDManager吗？