January 2009 – Page 2 – Stephen's Space on the Web

This is a simple webform that asks for the username and when you click submit it will generate a random password.
default.htm





FIT Password Reset





  
    FIT Username: 
      
  

    
      

  

	
 

All usage is monitored and logged.






fitPassReset.pl
<br /><br />use CGI;<br />use Win32::OLE;<br />use File::Log;<br /><br />#ADS Vars<br />use constant ADS_PROPERTY_CLEAR => 1;<br />use constant ADS_PROPERTY_UPDATE => 2;<br />use constant ADS_PROPERTY_APPEND => 3;<br />use constant ADS_PROPERTY_DELETE => 4;<br />use constant vbNull => 1;<br />use constant ADS_SECURE_AUTHENTICATION => 1;<br />use constant ADS_USE_ENCRYPTION => 2;<br /><br />print "Content-type: text/html\n\n";<br />$query = new CGI;<br /><br />$Win32::OLE::Warn = 3;<br /><br />$base = "dc=domain,dc=local";<br />$user = $query->param('username');<br /><br />#Full CN of admin user.<br />$adminuser = "cn=admin,cn=Users,dc=domain,dc=local";<br />$adminpass = "AdminPass";<br /><br /><br />#find the User's DN<br />my $connObj = Win32::OLE->new('ADODB.Connection');<br />$connObj->{Provider} = "ADsDSOObject";<br /><br />$connObj->Properties->{'User ID'} = $adminuser;<br />$connObj->Properties->{'Password'} = $adminpass;<br /><br />$connObj->Open;<br />my $commObj = Win32::OLE->new('ADODB.Command');<br /><br />$commObj->{ActiveConnection} = $connObj;<br />$commObj->Properties->{'Page Size'} = 1000;<br /><br />#Get DC<br />my $MyDomain = Win32::OLE->GetObject("LDAP://RootDSE");<br />$MyDC = $MyDomain->Get("dnsHostName");<br /><br />#Generate Ldap Search String<br />#my $query = "<ldap://$mydc/$base>;";<br />my $query = "<ldap://$base>;";<br /><br />$query .= "((cn=$user));";<br />$query .= "distinguishedName,cn;";<br />$query .= "subtree";<br /><br />$commObj->{CommandText} = $query;<br /><br />my $resObj = $commObj->Execute($query); die "Could not query $base: ",$Win32::OLE::LastError,"\n" unless ref $resObj;<br /><br />my $total = 0;<br />while (!($resObj->EOF)) {<br /><br />	$strUserDN = $resObj->Fields("distinguishedName")->value;<br />        $total++; $resObj->MoveNext;<br />        #print $strUserDN;<br />}<br /><br /><br />#Generate random number for password<br />my $random_number = int(rand(300)) + 1000;<br /><br />$objNamespaceLDAP = Win32::OLE->GetObject('LDAP:');<br />$objMyObject = $objNamespaceLDAP->OpenDSObject("LDAP://" .$strUserDN, $adminuser, $adminpass, ADS_USE_ENCRYPTION + ADS_SECURE_AUTHENTICATION);<br />$objMyObject->SetPassword("Fit$random_number");<br />$objMyObject->SetInfo;<br /><br />#my $objUser = Win32::OLE->GetObject("LDAP://" . $strUserDN, "who@what.com",$adminpass,1);<br />#$objUser->SetPassword("Fit$random_number");<br /><br />#expiring the password give an error so we will fix that later.<br />#$objUser->Put("PasswordExpired", 1);<br />#$objUser->SetInfo;<br /><br /><br />#Write to Log<br />my $log = File::Log->new(logFileMode => '>>', dateTimeStamp => 1,);<br />$log->exp("User:$strUserDN, NumberofUsers:$total\n");<br />$log->close();<br /><br /><br />print <<"EOF"; <html><br /><head><br /><title>Thank you</title><br /></head><br /><br /><body><br /><h1>The new password is: </h1><br /><h2>Fit$random_number</h2><br /><br /><p>Return to <br /><a href="default.htm">Home</a>.</p><br /><br /></body><br /></html><br />EOF<br /><br /></pre>
	</div><!-- .entry-content -->

	
	<footer class="entry-footer">
		<span class="posted-on"><span class="screen-reader-text">Posted on </span><a href="https://www.stephenjc.com/2009/01/15/active-directory-web-password-reset/" rel="bookmark"><time class="entry-date published" datetime="2009-01-15T02:56:00-05:00">January 15, 2009</time><time class="updated" datetime="2011-02-04T04:04:37-05:00">February 4, 2011</time></a></span><span class="cat-links"><span class="screen-reader-text">Categories </span><a href="https://www.stephenjc.com/category/uncategorized/" rel="category tag">Uncategorized</a></span><span class="tags-links"><span class="screen-reader-text">Tags </span><a href="https://www.stephenjc.com/tag/active/" rel="tag">active</a>, <a href="https://www.stephenjc.com/tag/directory/" rel="tag">directory</a>, <a href="https://www.stephenjc.com/tag/password/" rel="tag">password</a>, <a href="https://www.stephenjc.com/tag/perl/" rel="tag">perl</a>, <a href="https://www.stephenjc.com/tag/reset/" rel="tag">reset</a>, <a href="https://www.stephenjc.com/tag/web/" rel="tag">web</a></span><span class="comments-link"><a href="https://www.stephenjc.com/2009/01/15/active-directory-web-password-reset/#respond">Leave a comment<span class="screen-reader-text"> on Active directory web password reset</span></a></span>			</footer><!-- .entry-footer -->

</article><!-- #post-7 -->

<article id="post-6" class="post-6 post type-post status-publish format-standard hentry category-uncategorized tag-ad tag-printers tag-vbscript">
	
	<header class="entry-header">
		<h2 class="entry-title"><a href="https://www.stephenjc.com/2009/01/15/dynamic-vbs-printer-mapping/" rel="bookmark">Dynamic VBS printer mapping</a></h2>	</header><!-- .entry-header -->

	<div class="entry-content">
		<p>VBscript that reads the users info property in AD for a list of printers to map.</p>
<pre class="brush:vb">
On error resume next
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
set oUser = GetObject("LDAP://CN=" & WshNetwork.username & ",OU=Users,DC=Domain,DC=Local")
Printers=split(oUser.Get("info"),VbCrLf)
first=True
For i = LBound(Printers) to UBound(Printers)
  If first = True Then
   WshNetwork.AddWindowsPrinterConnection(trim(Printers(i)))
   WshNetwork.SetDefaultPrinter(trim(Printers(i)))
   first=False
  Else
   WshNetwork.AddWindowsPrinterConnection(trim(Printers(i)))
  End If
Next

</pre>
	</div><!-- .entry-content -->

	
	<footer class="entry-footer">
		<span class="posted-on"><span class="screen-reader-text">Posted on </span><a href="https://www.stephenjc.com/2009/01/15/dynamic-vbs-printer-mapping/" rel="bookmark"><time class="entry-date published" datetime="2009-01-15T02:42:00-05:00">January 15, 2009</time><time class="updated" datetime="2011-02-04T04:03:59-05:00">February 4, 2011</time></a></span><span class="cat-links"><span class="screen-reader-text">Categories </span><a href="https://www.stephenjc.com/category/uncategorized/" rel="category tag">Uncategorized</a></span><span class="tags-links"><span class="screen-reader-text">Tags </span><a href="https://www.stephenjc.com/tag/ad/" rel="tag">ad</a>, <a href="https://www.stephenjc.com/tag/printers/" rel="tag">printers</a>, <a href="https://www.stephenjc.com/tag/vbscript/" rel="tag">vbscript</a></span><span class="comments-link"><a href="https://www.stephenjc.com/2009/01/15/dynamic-vbs-printer-mapping/#respond">Leave a comment<span class="screen-reader-text"> on Dynamic VBS printer mapping</span></a></span>			</footer><!-- .entry-footer -->

</article><!-- #post-6 -->

<article id="post-5" class="post-5 post type-post status-publish format-standard hentry category-uncategorized tag-drive tag-map tag-vbscript">
	
	<header class="entry-header">
		<h2 class="entry-title"><a href="https://www.stephenjc.com/2009/01/15/vbs-script-map-drives/" rel="bookmark">vbs script map drives</a></h2>	</header><!-- .entry-header -->

	<div class="entry-content">
		<p>This is a basic vbscript that maps 2 network drives</p>
<pre class="brush:vb">
on error resume next

Set WshNetwork = WScript.CreateObject("WScript.Network")

DriveMapper "z:", "\\vsrpmain\BusApps"
DriveMapper "o:", "\\vsrpmain\common"


Sub DriveMapper(Drive, Share)
WshNetwork.MapNetworkDrive Drive, Share
End Sub
</pre>
	</div><!-- .entry-content -->

	
	<footer class="entry-footer">
		<span class="posted-on"><span class="screen-reader-text">Posted on </span><a href="https://www.stephenjc.com/2009/01/15/vbs-script-map-drives/" rel="bookmark"><time class="entry-date published" datetime="2009-01-15T01:58:00-05:00">January 15, 2009</time><time class="updated" datetime="2011-02-04T04:02:43-05:00">February 4, 2011</time></a></span><span class="cat-links"><span class="screen-reader-text">Categories </span><a href="https://www.stephenjc.com/category/uncategorized/" rel="category tag">Uncategorized</a></span><span class="tags-links"><span class="screen-reader-text">Tags </span><a href="https://www.stephenjc.com/tag/drive/" rel="tag">drive</a>, <a href="https://www.stephenjc.com/tag/map/" rel="tag">map</a>, <a href="https://www.stephenjc.com/tag/vbscript/" rel="tag">vbscript</a></span><span class="comments-link"><a href="https://www.stephenjc.com/2009/01/15/vbs-script-map-drives/#respond">Leave a comment<span class="screen-reader-text"> on vbs script map drives</span></a></span>			</footer><!-- .entry-footer -->

</article><!-- #post-5 -->

	<nav class="navigation pagination" aria-label="Posts">
		<h2 class="screen-reader-text">Posts navigation</h2>
		<div class="nav-links"><a class="prev page-numbers" href="https://www.stephenjc.com/2009/01/">Previous page</a>
<a class="page-numbers" href="https://www.stephenjc.com/2009/01/"><span class="meta-nav screen-reader-text">Page </span>1</a>
<span aria-current="page" class="page-numbers current"><span class="meta-nav screen-reader-text">Page </span>2</span></div>
	</nav>
		</main><!-- .site-main -->
	</section><!-- .content-area -->


	</div><!-- .site-content -->

	<footer id="colophon" class="site-footer">
		<div class="site-info">
									<a href="https://wordpress.org/" class="imprint">
				Proudly powered by WordPress			</a>
		</div><!-- .site-info -->
	</footer><!-- .site-footer -->

</div><!-- .site -->

<script id='code-prettify-js-before'>
var codePrettifyLoaderBaseUrl = "https:\/\/www.stephenjc.com\/wp-content\/plugins\/code-prettify\/prettify";
</script>
<script src='https://www.stephenjc.com/wp-content/plugins/code-prettify/prettify/run_prettify.js?ver=1.4.0' id='code-prettify-js'></script>
<script src='https://www.stephenjc.com/wp-content/themes/twentyfifteen/js/skip-link-focus-fix.js?ver=20141028' id='twentyfifteen-skip-link-focus-fix-js'></script>
<script id='twentyfifteen-script-js-extra'>
var screenReaderText = {"expand":"<span class=\"screen-reader-text\">expand child menu<\/span>","collapse":"<span class=\"screen-reader-text\">collapse child menu<\/span>"};
</script>
<script src='https://www.stephenjc.com/wp-content/themes/twentyfifteen/js/functions.js?ver=20221101' id='twentyfifteen-script-js'></script>

</body>
</html>