Renaming NDS users to their corresponding GroupWise ID

Question

Hi,
We're renaming lots of NDS users to their corresponding GroupWise ID.
Because of a new ID naming standard. The GroupWise ID does not change but
is leading.
As in NDS ID smithj has a GroupWise ID jsmith so we rename NDS ID smithj to
jsmith. We do this btw using RENOBJ from JRB utilities.
This means clicking on the GroupWise account from the GroupWise view in
ConsoleOne results in an error. This can be repaired 'by hand' by
re-associating the GroupWise account to the NDS account. We also tried JRB
utility GWLINK but this does not work either.
My question is 'is it possible to run / did someone write / a script to do
this batch/script wise ?'
Gert

Answer 1

[email protected] schrieb:
> Hi,
>
> We're renaming lots of NDS users to their corresponding GroupWise ID.
> Because of a new ID naming standard. The GroupWise ID does not
> change but is leading.
>
> As in NDS ID smithj has a GroupWise ID jsmith so we rename NDS ID
> smithj to jsmith. We do this btw using RENOBJ from JRB utilities.
>
> This means clicking on the GroupWise account from the GroupWise view
> in ConsoleOne results in an error. This can be repaired 'by hand' by
> re-associating the GroupWise account to the NDS account. We also
> tried JRB utility GWLINK but this does not work either.
>
> My question is 'is it possible to run / did someone write / a script
> to do this batch/script wise ?'
you can use ldap / or novell activex controlls and the gw admin api for this
i prefer perl as scripting language
connect to domain (gwadmin api)
create a users iterator (gwadmin api)
foreach user get name (gwadmin api)
rename nds object to gw name (ldap or activex controlls)
use addexistinguser function and provide old mailboxid and name (gwadmin
api)
ready
perl example
use Win32::OLE;
use Net::LDAP qw(:all);
$ldap=Net::LDAP->new(" SERVER IP ") or die $@;
$error = $ldap->bind (' SUPERUSER DN',password =>' GUESS WHAT :)
',version=>'3') or die "Fehler bei bind: $@\n";
if( $error->error ne Success){
die "Bind error -> " . $error->error . "\n";
$gw=Win32::OLE->new('NovellGroupWareAdmin');
$gw->ConnectByDN(" GROUPWISE DN ");
$objDomain=$gw->ConnectedDomain();
you can use this
$objPostOffices = $objDomain->PostOffices();
$objPostOffice = $objPostOffices->Item(" GROUPWISE PO ");
$objUsers = $objPostOffice->Users();
or that
$objUsers = $gw->Users();
$objUsersIterator = $objUsers->CreateIterator();
while( $objUser = $objUsersIterator->Next() ){
$username = $objUser->{'Name'};
$userdn = $objUser->{'NetID'}
$userdn contains now username.ou.o or something
you must change it to cn=username,ou=ou,o=o
$mesg = $ldap->search(
base=>' $userdnldap',
scope => 'base',
filter => '(objectclass=inetorgperson)'
$entry = $mesg->entry(0);
$entry
$objUsers->AddExistingUser($username, " $userdn ","", "GROUPWISE PO",
" GROUPWISE DOMAIN", $objUser->{MailboxID});