Help for this page

Select Code to Download


  1. or download this
    my $conn = Win32::OLE->new("ADODB.Connection");
$conn->{Provider} = "ADsDSOObject";
$conn->Open("ADSI Provider");
  2. or download this
    #! /usr/bin/perl
use warnings;
...

my $err = Win32::OLE->LastError();
die "Error in bind: $err\n" if $err;
  3. or download this
    D:\StratSync>testADSI.pl
Connectstring: LDAP://10.6.21.131/DC=mlhelab,DC=de
...
    in METHOD/PROPERTYGET ""

D:\StratSync>
  4. or download this
    Function OpenDSObject(lpszDNName As String, lpszUserName As String, lp
+szPassword As String, lnReserved As Long) As Object