CUC Forums

« Back to CUPI Questions

Modifing users

Combination View Flat View Tree View
Threads [ Previous | Next ]
Modifing users
Answer
2/1/10 11:50 PM
I have 500 mailboxes that need the Alias updated.  I am going to use a file that I will open up and go through it and match the Alias column, do a search to return the ObjectID then do a post to modify that field.  When I try to post a change I get the following error:
 
 
 
An Error Occurred
302 Moved Temporarily

HTTP/1.1 302 Moved Temporarily
Connection: close
Date: Mon, 01 Feb 2010 17:48:31 GMT
Location: https://X.X.X.X:8443/vmrest/users/18b450ab-4be0-42d2-9189-78b695f52fdf
Server:
Content-Length: 0
Client-Date: Mon, 01 Feb 2010 17:48:32 GMT
Client-Peer: X.X.X.X:80
Client-Response-Num: 1
 
 
Flag

RE: Modifing users
Answer
2/11/10 6:35 AM as a reply to Chris Bomba.
Hi Chris - were ever able to figure out what was happening here?  From what you describe it sounds like it should work.
 
I have 500 mailboxes that need the Alias updated.  I am going to use a file that I will open up and go through it and match the Alias column, do a search to return the ObjectID then do a post to modify that field.  When I try to post a change I get the following error:
 
 
 
An Error Occurred
302 Moved Temporarily

HTTP/1.1 302 Moved Temporarily
Connection: close
Date: Mon, 01 Feb 2010 17:48:31 GMT
Location: https://X.X.X.X:8443/vmrest/users/18b450ab-4be0-42d2-9189-78b695f52fdf
Server:
Content-Length: 0
Client-Date: Mon, 01 Feb 2010 17:48:32 GMT
Client-Peer: X.X.X.X:80
Client-Response-Num: 1
 
 
Flag

RE: Modifing users
Answer
2/11/10 6:16 PM as a reply to Matthew Penning.
Somehow I missed this question, a 302 is generally the result of trying to access the API using HTTP instead of HTTPS.  The web application that hosts the API requires a secure transport, so it will redirect HTTP requests to the HTTPS port.
 
-Dave
Flag

RE: Modifing users
Answer
2/24/10 12:15 AM as a reply to David Wanagel.
I made the change to https and now I get a 401 error.  I am not Perl guru and so I am posting my code. 
 
 1#!/usr/bin/perl -w
 2
 3use strict;
 4
 5use LWP::UserAgent;
 6use HTTP::Request::Common;
 7
 8
 9my $userAgent = LWP::UserAgent->new(agent => 'perl put');
10
11$userAgent->credentials(
12    '10.1.1.1:443',
13    'Cisco VTG Realm',
14    'api' => 'l3tm3!n'
15);
16
17
18my $message = "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"yes\"?>
19    <User>
20    <Alias>abcde\@domain.com</Alias>
21    </User>";
22
23my $response = $userAgent->request(POST 'https://10.1.1.1/vmrest/users/18b450ab-4be0-42d2-9189-78b695f52fdf',
24    [Content_Type => 'text/xml',
25    Content => $message
26    ]
27);
28
29print $response->error_as_HTML unless $response->is_success;
30
31print $response->as_string;
32
33exit;

 
 
The user I want to change has an alias of 'abcde' and I want to update that alias to 'abcde@domain.com'.  I can then go back through and run an LDAP sync.
Flag

RE: Modifing users
Answer
2/24/10 12:26 AM as a reply to Chris Bomba.
More on the error I get:
 
An Error Occurred
401 Unauthorized

HTTP/1.1 401 Unauthorized Connection: close
Date: Tue, 23
Feb 2010 18:09:14 GMT
Server: WWW-Authenticate:
Basic realm="Cisco VTG Realm"

Content-Length: 2113
Content-Type: text/html;charset=utf-8
Client-Date: Tue, 23
Feb 2010 18:09:15 GMT
Client-Peer: 10.1.1.1:443
Client-Response-Num: 1

Client-SSL-Cert-Issuer: /CN=****/OU=****/O=****/L=****
Client-SSL-Cert-Subject:
/CN=****/OU=****/O=****/L=****
Client-SSL-Cipher: AES256-SHA

Client-SSL-Warning: Peer certificate not verified Title:
Cisco System - Error
report
Flag

RE: Modifing users
Answer
2/24/10 1:05 AM as a reply to Chris Bomba.
Hi Chris - I'm not a Perl expert either, but I did put together a small Perl sample that handles authentication. Look in "Recent Downloads" for <a>cupi-setpw-example.pl</a> or try clicking that link.

~ Matt
 
Flag

RE: Modifing users
Answer
2/24/10 1:11 AM as a reply to Matthew Penning.
I was just coming back on here to tell everyone that I used that one and change the password section to update the Alias.  Thank you very much for your work.  I just need to figure out how to make that script open a file, go through each line and pull the alias out of that file, put that alias in the script, change that alias, then move on to the next line.
 
Here is what I changed.
 
 1sub setalias {
 2    my $userURI=shift(@_);
 3    my $newalias=shift(@_);
 4   
 5    my $credentials="<User><Alias>$newalias</Alias></User>";
 6    my $url="https://$SERVER$userURI";
 7    my $ua = LWP::UserAgent->new;
 8    my $header = HTTP::Headers->new;
 9    $header->header("Content-Type","application/xml");
10    my $req = HTTP::Request->new(PUT => $url, $header, $credentials);
11    $req->authorization_basic($USER,$PASSWORD);
12    my $response = $ua->request($req);
13   
14    &checkerror($response);
15}
16
17# Lookup user by alias
18my $URI=&userlookup('OriginalAlias');
19print "Found user: ", $URI, "\n";
20
21# Set password
22&setalias($URI,"NewAlias");
23print "Alias successfuly set!", "\n";
Flag