updating list of server account password

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

 



Perhaps you don't want to post this kind of thing to a global mailing list for all users of openssl?

--  
Senior Architect, Akamai Technologies
IM: richsalz at jabber.at Twitter: RichSalz


> -----Original Message-----
> From: MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT
> [mailto:andreas.magana.ctr at us.af.mil]
> Sent: Monday, April 06, 2015 11:53 AM
> To: mike nicholas
> Cc: openssl-users at openssl.org; ESRY JR. DON; Matt Zagrabelny
> Subject: Re: [openssl-users] updating list of server account password
> 
> 
> 
> //SIGNED//
> 
> Andy Maga?a
> UNIX Systems Administrator
> Diligent Contractor, 72nd Air Base Wing
> Tinker Air Force Base, Oklahoma
> Commercial: (405) 734-0341
> 
> 
> -----Original Message-----
> From: mike nicholas [mailto:xmikenicholasx at gmail.com]
> Sent: Monday, April 06, 2015 10:48 AM
> To: MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT
> Cc: ESRY JR. DON; openssl-users at openssl.org; Matt Zagrabelny
> Subject: Re: updating list of server account password
> 
> So the else if will only run if the first if is not true, that doesn't seem right,.
> 
> On Apr 3, 2015 2:52 PM, "MAGANA, ANDREAS S I CTR USAF AFMC 72
> ABW/SCOOT" <andreas.magana.ctr at us.af.mil> wrote:
> 
> 
> 	Hello Mike, Don and Matt,
> 
> 	At the point I am at this list of servers in my script I would really need
> someone with more experience to see if I even have the right scripting.
> 
> 
> 	#!/usr/bin/perl
> 	use strict;
> 
> 	use Expect;
> 
> 	my $timeout = 60;
> 
> 	my @servers = qw(
> 	     remotehost03
> 	     remotehost04
> 	     remotehost05
> 	     remotehost06
> 	);
> 
> 
> 	for my $server (@servers) {
> 	# do your thing with $server
> 
> 	    change_password($server);
> 
> 	 }
> 
> 	sub change_password {
> 	            my $system = shift;
> 
> 	my $filename = "/var/tmp/expect_script.log";
> 	my $ssh = Expect->new('ssh amagana@' . $system);
> 
> 
> 	$ssh->debug(1);
> 	$ssh->expect ( $timeout,
> 	      [ qr/Password:/],
> 	      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]
> 	      );
> 
> 	if ($ssh->match() =~ m/Are you sure you want to continue
> connecting \(yes\/no\)?/ ) {
> 	$ssh->send("yes\r");
> 	}
> 
> 	elsif ($ssh->match() =~ m/Password:/ ) {
> 	$ssh->send("mypassword\n");
> 	}
> 
> 
> 	#$ssh->log_file($filename, 'w');
> 	$ssh->expect(60, '$');
> 	$ssh->send("su - root\n");
> 	$ssh->expect(60, 'Password:');
> 	$ssh->send("rootpassword\n");
> 	$ssh->expect(60, '#');
> 	$ssh->send("passwd amagana\n");
> 	$ssh->expect(60, 'New Password:');
> 	$ssh->send("mynewpassword\n");
> 	$ssh->expect(60, 'Re-enter new Password:');
> 	$ssh->send("mynewpassword\n");
> 	$ssh->expect(60, '#');
> 	$ssh->close();
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 	Mike,
> 
> If that does not seem right what can I change it to make it right?
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 	Respectfully,
> 
> 
> 	#!/usr/bin/perl
> 	use strict;
> 
> 	use Expect;
> 	my $timeout = 60;
> 	my $filename = "/var/tmp/expect_script.log";
> 	my $ssh = Expect->new('ssh amagana at remotehost');
> 
> 	$ssh->debug(1);
> 	$ssh->expect ( $timeout,
> 	      [ qr/Password:/],
> 	      [ qr/Are you sure you want to continue connecting \(yes\/no\)?/]
> 	      );
> 
> 	if ($ssh->match() =~ m/Are you sure you want to continue
> connecting \(yes\/no\)?/ ) {
> 	$ssh->send("yes\r");
> 	}
> 
> 	elsif ($ssh->match() =~ m/Password:/ ) {
> 	$ssh->send("mypassword\n");
> 	}
> 
> 
> 	#$ssh->log_file($filename, 'w');
> 	$ssh->expect(60, '$');
> 	$ssh->send("su - root\n");
> 	$ssh->expect(60, 'Password:');
> 	$ssh->send("rootpassword\n");
> 	$ssh->expect(60, '#');
> 	$ssh->send("passwd amagana\n");
> 	$ssh->expect(60, 'New Password:');
> 	$ssh->send("mynewpassword\n");
> 	$ssh->expect(60, 'Re-enter new Password:');
> 	$ssh->send("mynewpassword\n");
> 	$ssh->expect(60, '#');
> 	$ssh->close();
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 	//SIGNED//
> 
> 	Andy Maga?a
> 	UNIX Systems Administrator
> 	Diligent Contractor, 72nd Air Base Wing
> 	Tinker Air Force Base, Oklahoma
> 	Commercial: (405) 734-0341
> 
> 
> 	-----Original Message-----
> 	From: mike nicholas [mailto:xmikenicholasx at gmail.com]
> 	Sent: Wednesday, April 01, 2015 9:46 AM
> 	To: MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT
> 	Cc: ESRY JR., DON; Matt Zagrabelny; expectperl-
> discuss at lists.sourceforge.net
> 	Subject: Re: [Expectperl-discuss] expect.pm not updating password
> 
> 	Try something like this:
> 
> 	 my $exp = new Expect;
> 
> 	 $exp->log_stdout(1);
> 
> 	 $username = "XXXXXX";
> 
> 	 $exp->spawn( "ssh -l ${username} ${ip} " ) or die "cannot spawn
> $command: $! \n";
> 
> 	 $exp->log_file("./${log_dir}/$ip\_info.log");
> 
> 	 print "\nspawning ssh connection to $ip on $time\n\n";
> 
> 	 $exp->log_file->print( "\nspawning ssh connection to $ip on
> $time\n\n" );
> 
> 	 $exp->expect(8,
> 
> 	 [ 'connecting' => sub { $exp->send("yes \n"); exp_continue; } ],
> 
> 	 [ 'assword:' => sub { $exp->send("$pw\n"); exp_continue; } ],
> 
> 	 [ '-re', '> ?$' => sub { break; }],
> 
> 	 [ 'try again' => sub { die " died from bad password.\n"; }],
> 
> 	 [ 'refused' => sub { die " died from connection refused.\n";
> exp_continue; } ],
> 
> 	 [ eof => sub { die " died from eof.\n"; }],
> 
> 	 [ timeout => sub { $exp->hard_close(); }],
> 
> 	 );
> 
> 
> 	On Wed, Apr 1, 2015 at 9:24 AM, MAGANA, ANDREAS S I CTR USAF
> AFMC 72 ABW/SCOOT <andreas.magana.ctr at us.af.mil> wrote:
> 
> 
> 	        Now that I have a working script and thanks very much to you
> Matt and Don,
> 
> 	        I am trying to put in my script an if else because sometimes my
> script will encounter this :
> 
> 	        Are you sure you want to continue connecting (yes/no)?')
> 
> 
> 
> 	        what I did create are some variables is this correct and may I see
> an example if statement so that the script can make a decision and keep
> going?
> 
> 	        use Expect;
> 	        my $knownhost = $ssh->expect(60, 'Are you sure you want to
> continue connecting (yes/no)?');
> 	        my $answer = $ssh->send("yes\n");
> 	        my $filename = "/var/tmp/expect_script.log";
> 
> 
> 
> 	        //SIGNED//
> 
> 	        Andy Maga?a
> 	        UNIX Systems Administrator
> 	        Diligent Contractor, 72nd Air Base Wing
> 	        Tinker Air Force Base, Oklahoma
> 	        Commercial: (405) 734-0341 <tel:%28405%29%20734-0341>
> <tel:%28405%29%20734-0341>
> 
> 	        -----Original Message-----
> 	        From: ESRY JR., DON [mailto:de3253 at att.com]
> 	        Sent: Tuesday, March 31, 2015 4:16 PM
> 	        To: Matt Zagrabelny; MAGANA, ANDREAS S I CTR USAF AFMC 72
> ABW/SCOOT
> 	        Cc: expectperl-discuss at lists.sourceforge.net
> 
> 	        Subject: RE: [Expectperl-discuss] expect.pm not updating
> password
> 
> 	        I think you will want a log file to identify where the script failed.
> 
> 	        I recommend that you take out the 'w' from the $ssh-
> >log_file($filename, 'w'); so it will append to the file rather than over writing
> it for each server.
> 
> 	        And then put in some sort of header for each server, something
> like:
> 	        my $header = "\n\n======= $system =======\n"; $ssh-
> >print_log_file($header);
> 
> 	        Or if you prefer a separate file for each server, then my
> $filename = "/var/tmp/expect_script_". $system ".log";
> 
> 	        little stuff like this can be very frustrating.
> 
> 
> 	        -----Original Message-----
> 	        From: Matt Zagrabelny [mailto:mzagrabe at d.umn.edu]
> 	        Sent: Tuesday, March 31, 2015 4:56 PM
> 	        To: MAGANA, ANDREAS S I CTR USAF AFMC 72 ABW/SCOOT
> 	        Cc: expectperl-discuss at lists.sourceforge.net
> 	        Subject: Re: [Expectperl-discuss] expect.pm not updating
> password
> 
> 	        On Tue, Mar 31, 2015 at 3:37 PM, MAGANA, ANDREAS S I CTR
> USAF AFMC 72 ABW/SCOOT <andreas.magana.ctr at us.af.mil> wrote:
> 	        > Thank you Matt,
> 	        >
> 	        > I just don't know how to put it in a working way I learn by
> examples I
> 	        > am a novice on perl and the modules.
> 
> 	        Maybe spend a day or two writing some basic perl programs so
> you feel more comfortable with this stuff. I'm sure there are truckloads of
> perl tutorials out there.
> 
> 	        I added some context below. You'll need to clean up the leading
> '>' characters.
> 
> 	        -m
> 
> 
> 	        >
> 	        > #!/usr/bin/perl
> 	        > use strict;
> 	        >
> 	        > use Expect;
> 	        >
> 	        > # my @servers = qw(
> 	        > #    server1.example.net
> 	        > #    server2.example.net
> 	        > #    server3.example.net
> 	        > #    server4.example.net
> 	        > #    server5.example.net
> 	        > # );
> 	        > #
> 	        > # for my $server (@servers) {
> 	        > #    # do your thing with $server
> 
> 	            change_password($server);
> 
> 	        > # }
> 	        >
> 
> 	        sub change_password {
> 	            my $system = shift;
> 
> 	            my $filename = "/var/tmp/expect_script.log";
> 	            my $ssh = Expect->new('ssh amagana@' . $system);
> 
> 
> 	        > $ssh->debug(1);
> 	        > $ssh->log_file($filename, 'w');
> 	        > $ssh->expect(60, 'Password:');
> 	        > $ssh->send("mycurrentpassword\n");
> 	        > $ssh->expect(60, '$');
> 	        > $ssh->send("su - root\n");
> 	        > $ssh->expect(60, 'Password:');
> 	        > $ssh->send("myrootpassword\n");
> 	        > $ssh->expect(60, '#');
> 	        > $ssh->send("passwd amagana\n");
> 	        > $ssh->expect(60, 'New Password:');
> 	        > $ssh->send("mynewpassword\n");
> 	        > $ssh->expect(60, 'Re-enter new Password:');
> 	        > $ssh->send("mynewpassword\n"); $ssh->expect(60, '#');
> 	        > $ssh->send("exit\n"); $ssh->close();
> 
> 	        }
> 
> 	        ------------------------------------------------------------------------------
> 	        Dive into the World of Parallel Programming The Go Parallel
> Website, sponsored
> 	        by Intel and developed in partnership with Slashdot Media, is
> your hub for all
> 	        things parallel software development, from weekly thought
> leadership blogs to
> 	        news, videos, case studies, tutorials and more. Take a look and
> join the
> 	        conversation now. http://goparallel.sourceforge.net/
> 	        _______________________________________________
> 	        Expectperl-discuss mailing list
> 	        Expectperl-discuss at lists.sourceforge.net
> 	        https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> 
> 	        ------------------------------------------------------------------------------
> 	        Dive into the World of Parallel Programming The Go Parallel
> Website, sponsored
> 	        by Intel and developed in partnership with Slashdot Media, is
> your hub for all
> 	        things parallel software development, from weekly thought
> leadership blogs to
> 	        news, videos, case studies, tutorials and more. Take a look and
> join the
> 	        conversation now. http://goparallel.sourceforge.net/
> 	        _______________________________________________
> 	        Expectperl-discuss mailing list
> 	        Expectperl-discuss at lists.sourceforge.net
> 	        https://lists.sourceforge.net/lists/listinfo/expectperl-discuss
> 
> 
> 
> 
> 
> _______________________________________________
> openssl-users mailing list
> To unsubscribe: https://mta.openssl.org/mailman/listinfo/openssl-users


[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Index of Archives]     [Linux ARM Kernel]     [Linux ARM]     [Linux Omap]     [Fedora ARM]     [IETF Annouce]     [Security]     [Bugtraq]     [Linux]     [Linux OMAP]     [Linux MIPS]     [ECOS]     [Asterisk Internet PBX]     [Linux API]

  Powered by Linux