sub bind_object {
    my $path = shift;
    my $user = "......";
    my $pass =  ".....";
    my $moni = "LDAP://<ip>/$path";

    my $dso = Win32::OLE->GetObject("LDAP:");
    return $dso->OpenDSObject($moni, $user, $pass, 1);
}