已经解决！

xender

eval {
                my $AdsPath = "IIS://$host_name/W3SVC";
                my $IIsWebServiceObj = Win32::OLE->GetObject($AdsPath);
                Win32::OLE->LastError() and Fatal "Error get object $AdsPath";

                my @WebServerObjs = Win32::OLE::Enum->All($IIsWebServiceObj);
                Win32::OLE->LastError() and Fatal "Error get object $AdsPath";

                my $CheckDomain = sub {
                                     my $ServerBindings = shift;        #这地方的shift是什么值？
                                     my $NewServerBindings = shift;   #这地方的shift跟上面的相同吗？
                                                 。。。。。。

                    }
}


请帮忙，谢谢。
还有Win32::OLE模块的资料在哪能查到？

[ 本帖最后由 xender 于 2006-9-26 16:58 编辑 ]