DZone Snippets: Bouffon69's Code Snippets

Perl : scan a list of networks, looking for hosts responding on the port 80 (http)

bouffon69 (Sylvain Le Courtois) — Tue, 06 May 2008 07:05:28 GMT

// Input : a list of address of routers, in dotted decimal notation



use strict;

use Net::Ping;

use IO::Socket::INET;



sub isodate() {

        my ($day, $mon, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0];

        $mon++; # 0-based index

        $year = $year + 1900;

        my $date = sprintf ("%04i-%02i-%02i %02i\:%02i\:%02i", $year, $mon, $day, $hour, $min, $sec);

        return $date;

}



sub testhost {

       my $p = new Net::Ping("tcp");

       $p->{port_num}=80; 

       my @result = $p -> ping($_[0],2);

       return $result[0];

       }



sub to_dot {

	my $n = shift;

	my @decimal;

	for (1..4) {

		unshift @decimal, $n & 0xFF;

		$n >>= 8;

	}

	return join(".",@decimal);

}



my %dejavu;

open FH,"liste.txt";

while () {

	chomp;

	my ($routeur,$mask)=split;

	

	next if $routeur !~ /\d+\.\d+\.\d+\.\d+$/ or $mask !~ /\d+\.\d+\.\d+\.\d+$/;

	

	next if defined($dejavu{$routeur});

	$dejavu{$routeur}=1;

	

	my ($o1,$o2,$o3,$o4) = split /\./,$mask;

	my $mask=$o1*256**3+$o2*256**2+$o3*256+$o4;

	my $num = $mask ^ 0xFFFFFFFF;

	$num--;



	my ($o1,$o2,$o3,$o4) = split /\./,$routeur;

	my $net=$o1*256**3+$o2*256**2+$o3*256+$o4 & $mask;

	

	#print join("|",$routeur,&to_dot($net),$num)."\n";

	

	print "Starting scanning network ".to_dot($net).", router = ".$routeur."\n";

	print "Adresses demarrant de ".to_dot($net+1)." et finissant a ".to_dot($net+$num).".\n";

	for my $i (1..$num) {

		my $host=to_dot($net+$i);

		if ( &testhost($host) ) {

			print "$host is alive\n";

			my $port=80;

			my $sock = new IO::Socket::INET (PeerAddr => $host,

					     PeerPort => $port,

					     Proto => 'tcp');

			if ($sock){

				close $sock;

				print "$port -open on $host\n";

				open OUT,">>webservers.txt";

				print OUT join("|",isodate(),$host,to_dot($net),$routeur)."\n";

				close OUT;

			}	else	{

				print "$port -closed on $host\n";

			}



		} else {

			print "$host is not responding\n";

		}

	}

}





close FH;

Excel VBA : read registry key values on a remote computer using WMI

bouffon69 (Sylvain Le Courtois) — Fri, 19 Oct 2007 12:03:49 GMT

// VBA code to paste in an module



Function ORACLEHOMES(strComputer As String)

    Const HKEY_LOCAL_MACHINE = &H80000002

    ORACLEHOMES = ""

    Dim strKeyPath

    Dim arrSubKeys

    Dim oReg

    Dim strValueName

    Dim strValue

    'strComputer = "."

    Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")

    strKeyPath = "SOFTWARE\ORACLE"

    oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

    For Each subkey In arrSubKeys

        If Left(subkey, 4) = "KEY_" Then

            strValueName = "ORACLE_HOME"

            oReg.GetStringValue HKEY_LOCAL_MACHINE, strKeyPath & "\" & subkey, strValueName, strValue

            If ORACLEHOMES = "" Then

                ORACLEHOMES = strValue

            Else

                ORACLEHOMES = ORACLEHOMES & ";" & strValue

            End If

        End If

    Next

End Function

Browser automation using perl LWP

bouffon69 (Sylvain Le Courtois) — Fri, 28 Sep 2007 11:48:47 GMT

// This is a sample code used to measure reports response times on a OAS application.



#!/usr/bin/perl

#

# LWP connection to the Datamart Portal

# Timing of the main reports

#



use strict;

require LWP::UserAgent;



my $ua = LWP::UserAgent->new;



sub isodate() {

        my ($day, $mon, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0];

        $mon++; # 0-based index

        $year = $year + 1900;

        my $date = sprintf ("%04i-%02i-%02i %02i\:%02i\:%02i", $year, $mon, $day, $hour, $min, $sec);

        return $date;

}



sub datamart_login {

        my ( $user, $pass ) = @_;

        my $time_begin=time();

        my $url='http://daprd:7782/portal/page?_pageid=37,134413,37_134422&_dad=portal&_schema=PORTAL';

        my $req = HTTP::Request->new( GET => $url );

        my $resp = $ua->request($req);

        my $loginform = $resp->content ;

        if ( $loginform !~ /Entrez votre nom utilisateur/ ) {

                die isodate()." Failed to get the logon page of the Web Site\n";

        } else {

                my $locale="";

                my ($v) = $loginform =~ /NAME=\"v\" value=\"(.+)\"/;

                my ($site2pstoretoken) = $loginform =~ /NAME=\"site2pstoretoken\" value=\"(.+)\"/;

                my ($submiturl) = $loginform =~ /form method=\"POST\" action=\"(.*?)\"/;

                $resp = $ua->post( $submiturl,

                   [

                     ssousername => $user,

                     password => $pass,

                     v => $v,

                     locale => $locale,

                     site2pstoretoken => $site2pstoretoken

                   ],

                );

                $resp = $ua->get($url);

                $resp = $ua->get($url);

                if ( $resp->content !~ /Crit..res de recherche/ ) {

                        die isodate()." Failed to get the main page of Portal\n";

                }

        }

        print join(";",isodate(),"Time to log on the Portal",time()-$time_begin,$url)."\n";

}



sub datamart_testurl {

        my ($label,$url,$expected)=@_;

        my $time_begin=time();

        my $resp;

        $resp = $ua->get($url);

        $resp = $ua->get($url) if $resp->content !~ /$expected/;        # We try two times !

        if ( $resp->content !~ /$expected/ ) {

                print STDERR isodate()." Test Failed on $label. $expected not found in response.\n";

                print STDERR $resp->as_string;

        } else {

                print join(";",isodate(),$label,time()-$time_begin,$url)."\n";

        }

}



$ua->timeout(1200);

$ua->cookie_jar({});

$ua->agent( 'Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)' );

#push @{ $ua->requests_redirectable }, 'POST';



# >>>> Main code here



datamart_login("xxxx","xxxx");



open FH,"/exploit/scripts/appli/check_datamart.ini" or die "Unable to open check_datamart.ini";

while () {

        chomp();

        my ($report,$expected,$url) = split /;/;

        datamart_testurl($report,$url,$expected);

}

close FH;



# <<<< Main code here

Internet Explorer automation using win32::OLE

bouffon69 (Sylvain Le Courtois) — Fri, 28 Sep 2007 11:45:24 GMT

// Sample code used for one of my client



#!/usr/bin/perl -w



use strict;

use Data::Dumper;

use Win32::OLE qw( EVENTS );



my ($day, $mon, $year, $hour, $min, $sec) = (localtime)[3, 4, 5, 2, 1, 0];

$mon++; # 0-based index

$year = $year + 1900;

my $date = sprintf ("%04i-%02i-%02i %02i\:%02i\:%02i", $year, $mon, $day, $hour, $min, $sec);



my $Disconnect;

my $Menu;

my $TreeView;

my $WatchDog;

my $MenuClicked=0;



my $ScenarioCompleted=0;



my @TreeViewLinks=("Appareillage du B","Branchement Comptage","Branchement individuel");

my $Previouslink=$TreeViewLinks[0];



my $ie = Win32::OLE->new( 'InternetExplorer.Application' ) or die "error starting IE";

$ie->{visible} = 1;



Win32::OLE->Option( Warn => 3 );



$WatchDog=time();

Win32::OLE->WithEvents( $ie, \&Event, 'DWebBrowserEvents2' );

$ie->navigate( 'http://www.xxx.fr' );

Win32::OLE->MessageLoop();

unlink("noemis.err") if -f "noemis.err";

if ( ! $ScenarioCompleted ) {

	open( ERR , ">noemis.err" ); 

	print ERR "Problem executing Noemis scenario, please check www.xxx.fr.\n" ;

	close(ERR);

}

$Disconnect->Click();

Win32::OLE->SpinMessageLoop;



# Maintenance du fichier historique

open ( STATS , "noemis.txt" );

my @lines=;

close (STATS);

open( STATS , ">noemis.txt" ); 

for my $line (@lines) {

	my ($datetime) = split ( /;/ , $line );

	my ($h_year,$h_mon) = $datetime =~ /^([0-9]{4})-([0-9]{2})/;

	print STATS $line if ($year*12+$mon) - ($h_year*12+$h_mon) < 2;

}

print STATS join(";",$date,"Noemis Scenario",( time() - $WatchDog ))."\n";

close( STATS );



sleep 2;

Win32::OLE->SpinMessageLoop;

sleep 1;

$ie->Quit();

exit 0;





sub Event {

	my ($Obj,$Event,@Args) = @_;

	my $IEObject = shift @Args;

	print " Event triggered: $Event\n";    



	my ($i,$anchor);

	my $anchors;

    

	# STEP 1 : Find the main menu, login to the web site, find the treeview

	if ($Event eq "DocumentComplete") {    

		print "URL: " . $IEObject->Document->URL . "\n";

		if ( $IEObject->Document->URL eq "http://www.xxx.fr/ident.aspx" ) {

			my $forms = $IEObject->Document->forms;

			my $form = $forms->item(0);

			if ( defined($form->elements("fldNumCli")) ) {

				print "--------------------------------------------\n";

				print "Found the login box, authenticating ...\n";

				print "--------------------------------------------\n";

			    $form->elements("fldNumCli")->{value} = "xxxx";

			    $form->elements("fldUtil")->{value} = "xxx";

			    $form->elements("fldPwd")->{value} = "xxx";

		    	$form->elements("btIdent")->Click();

	    		}

		}

		if ( $IEObject->Document->URL eq "http://www.xxx.fr/menu.aspx" ) {

			print "Found the menu.\n";

			$Menu = $IEObject->Document;

			$anchors = $IEObject->Document->links;

			for (my $i=0; $i < $anchors->length; $i++) {

				$anchor = $anchors->item($i);

				print $anchor->href."\n";

				$Disconnect = $anchor if $anchor->href eq "http://www.xxx.fr/ident.aspx?qs=deconnecter";

			}

	      	}	    

		if ( $IEObject->Document->URL eq "http://www.xxx.fr/client/frameTreeview.aspx" ) {

			print "Found the TreeView.\n";

			$TreeView = $IEObject->Document;

      		}		

	}



	# STEP 2 : Click on the Menu and TreeView links   

	if ($Event eq "DocumentComplete") {    		

	if ( ! $MenuClicked and defined($Menu) ) {

		my $MenuItem = $Menu->getElementById("SM_CLIE_RECH");

		if ( defined($MenuItem) ) { 

			print $MenuItem->ID."\n";

			$MenuItem->Click;

			$MenuClicked = 1;

		}

	}}



	if ( $Event eq "CommandStateChange" or $Event eq "StatusTextChange" ) {

		print Dumper($IEObject);

	}

	if ( @TreeViewLinks != 0 and 

	     defined($TreeView) and 

	     $Event eq "DocumentComplete" 

	) {

		my $link = shift(@TreeViewLinks);

		$anchors = $TreeView->links;

		my $found=0;

		print "Looking for '$link' in the TreeView ... \n";

	        for (my $i=0; $i < $anchors->length; $i++) {

		       	$anchor = $anchors->item($i);

	        	#print $anchor->innerHTML."\n";

		       	if ( $anchor->innerHTML =~ /$link/ ) {

				print "Clicking on '$link' ... \n";

	                	$anchor->Click;

				$found=1;

				$Previouslink=$link;

				last;

			}

	        }

		if ( ! $found ) { 

			# Le TreeView a bugge, on reclique

			sleep 1;

			print "Looking for '$Previouslink' in the TreeView ... \n";

		        for (my $i=0; $i < $anchors->length; $i++) {

			       	$anchor = $anchors->item($i);

	        		#print $anchor->innerHTML."\n";

		       		if ( $anchor->innerHTML =~ /$Previouslink/ ) {

					print "Clicking on '$Previouslink' ... \n";

	              		  	$anchor->Click;

					last;

				}

		        }

			unshift @TreeViewLinks,$link;

		}

	} 

   

	# STEP 3 : Verify the list displayed 

		

	if ($Event eq "DocumentComplete") {    

   		if ( @TreeViewLinks == 0 and $IEObject->Document->URL =~ /listeRefPlof.aspx/ ) {

			print "Scenario completed, exiting ...\n";

			$ScenarioCompleted=1;

	   		Win32::OLE->QuitMessageLoop;

		}

	}

    



	# Exit on errors

	    

	Win32::OLE->QuitMessageLoop() if $Event eq "OnQuit" or time() > $WatchDog + 60;

    

}

ASP Page listing and making changes to AD accounts

bouffon69 (Sylvain Le Courtois) — Thu, 20 Sep 2007 07:02:54 GMT

// Used for automated AD account migration



Workstation User Account migration

href="files/v2006.css" type=text/css rel=stylesheet>





<%

' ------------------------------------------------------------------------

Const ADS_PROPERTY_CLEAR = 1



Const SOURCE_OU="ou=NT Users,ou=NT,dc=fr,dc=erm,dc=int"

Const TARGET_OU="ou=SUPPORT SERVICES,dc=fr,dc=erm,dc=int"



Const HOMES_PATH="\\frsrvfil0001\USERS\"

Const PROFILES_PATH="\\frsrvfil0001\PROFILES\"



Const ADMIN_HOMES_PATH_SOURCE="\\frsrvfil0001\U$\NT\"

Const ADMIN_PROFILES_PATH_SOURCE="\\frsrvfil0001\P$\NT\"

Const ADMIN_HOMES_PATH_DEST="\\frsrvfil0001\U$\"

Const ADMIN_PROFILES_PATH_DEST="\\frsrvfil0001\P$\"



Const SCRIPT_NAME="ntuser_to_xp.asp"



Dim State

State="Init"

Dim OU, Member

 

If Request.QueryString("login") <> "" Then

		' Affichage formulaire pour modif du compte

		State="Info"

End If

If Request.Form("login") <> "" Then

		' On a cliqué sur OK pour valider le formulaire

		State="Modify"

End If

' ------------------------------------------------------------------------

%>

border=0>






  
  
    

      






        
        
                      width=160> 
          



<%

	If State="Init" Then

	'-----------------------------------------------------------------------------------

	' Listing of the NT Users

	'-----------------------------------------------------------------------------------

%>          



                        border=0>









              
              
                

                    <%

                    'Response.Write(SOURCE_OU & "
") 

                    %>

					Please select the NT 4.0 Workstation user account to migrate

                
                
              
                

                                  <%

                  Set OU = GetObject("LDAP://" & SOURCE_OU)

                  OU.Filter = Array("user")

    	          For Each Member In OU

    	          		' Bug with the SMS Account ??

    	          		If Member.Name <> "CN=SMSService" Then 

    	          		If Member.AccountDisabled = 0 Then

	    	                Response.Write("" & Member.FullName & "
")

	    	            End If

	    	            End If 

            	  Next      

                  

                  %>



                
                
                
                



<%

End If

%>                

                

<%

	If State="Info" Then

	'-----------------------------------------------------------------------------------

	' Information page about the NT Users

	'-----------------------------------------------------------------------------------

%>          

			



                        border=0>





                  <%

                  Sub TabRow(v1,v2)

                  		Response.Write("")

                  		Response.Write("")

                  End Sub

                  Set Member = GetObject("LDAP://" & Request.QueryString("login") & "," & SOURCE_OU)


                  TabRow "User Name",Member.FullName

                  TabRow "NT Login",Member.sAMAccountName

				  TabRow "Login Script", Member.LoginScript & " (to delete)"

				  TabRow "Profile Path", Member.Profile

				  TabRow "New Path",PROFILES_PATH & Member.sAMAccountName

				  TabRow "Home Folder", Member.HomeDirectory

				  TabRow "New Path",HOMES_PATH & Member.sAMAccountName


				  ' Liste des OU dans SUPPORT SERVICES

 				  Dim OUSuppServices, Entity, BoxList

 				  Set OUSuppServices=GetObject("LDAP://" & TARGET_OU)

				  OUSuppServices.Filter = Array("organizationalUnit")

				  BoxList=""

				  TabRow "Organizational Unit",BoxList


                  %>



              
              
                

                 	<%

                 	Response.Write("Windows NT 4.0 User Account Migration")

                    %>

					

                
               
" & v1 & "")

                  		Response.Write(" " & v2 & "
				  
                                    

                
                

                


                 >

                

                 Cliquer ici pour migrer ce compte.



                ATTENTION, l'utilisateur ne doit pas être connecté ! 

                <% Response.Write("

" & "Cliquer ICI pour annuler" & "
") %>

                



<%

End If

%>                



<%



	If State="Modify" Then

	'-----------------------------------------------------------------------------------

	' Migration of the NT Users

	'-----------------------------------------------------------------------------------

Sub dirMoveTree(source, dest)

	Response.Write "Deplacement de " & source & " vers " & dest & "
"

	Dim Folder,File,SubFolder

	set Folder=fso.GetFolder(source)

	For Each File In Folder.Files

	      Response.Write File.Name & " File -> " & dest & "
"

	      file.move dest & "\"

	Next

	For Each SubFolder In Folder.SubFolders

	      Response.Write SubFolder.Name & " Folder -> " & dest & "
"

	      SubFolder.move dest & "\"

	Next

End Sub



%>          



Windows NT 4.0 User Account Migration



<%



' Modification des proprietes l'utilisateur dans AD

Set Member = GetObject("LDAP://" & Request.QueryString("login") & "," & SOURCE_OU)



' ADS_PROPERTY_CLEAR

Member.PutEx 1, "scriptPath", 0

Member.SetInfo



Member.Put "profilePath", PROFILES_PATH & Member.sAMAccountName

Member.Put "homeDirectory", HOMES_PATH & Member.sAMAccountName

' 

Member.SetInfo

' 

Response.Write("Utilisateur " & Member.sAMAccountName & " Modifié dans AD

")



' Deplacement dans le bon conteneur

Set OU = GetObject("LDAP://" & "OU=Users," & Request.Form("entity") & "," & TARGET_OU)

OU.MoveHere "LDAP://" & Request.QueryString("login") & "," & SOURCE_OU, Request.QueryString("login")

Response.Write("Utilisateur " & "LDAP://" & Request.QueryString("login") & "," & SOURCE_OU & " Deplacé dans " & "LDAP://" & "OU=Users," & Request.Form("entity") & "," & TARGET_OU & "

")



DIM fso, File, Folder, SubFolder

Set fso = CreateObject("Scripting.FileSystemObject")



' Creation des repertoires cible



fso.CreateFolder(ADMIN_HOMES_PATH_DEST & Request.Form("login"))

fso.CreateFolder(ADMIN_PROFILES_PATH_DEST & Request.Form("login"))



' Deplacement des données



dirMoveTree ADMIN_HOMES_PATH_SOURCE & Request.Form("login"),ADMIN_HOMES_PATH_DEST & Request.Form("login")

dirMoveTree ADMIN_PROFILES_PATH_SOURCE & Request.Form("login"),ADMIN_PROFILES_PATH_DEST & Request.Form("login")



' Applications des ACLs, en arriere plan car ca peut etre long !

Response.Write("
Creation du script d'application des ACLs C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd

")

Set server_shell = Server.CreateObject("wscript.shell")



server_shell.Run "cmd /c echo echo Excecution Cacls >C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1

server_shell.Run "cmd /c echo xcacls.exe """ & ADMIN_HOMES_PATH_DEST & Request.Form("login") & """ /T /C /G SYSTEM:F ADMINISTRATORS:F FR-ERM\" & Request.Form("login") & ":C /Y >>C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1

server_shell.Run "cmd /c echo xcacls.exe """ & ADMIN_PROFILES_PATH_DEST & Request.Form("login") & """ /T /C /G SYSTEM:F ADMINISTRATORS:F FR-ERM\" & Request.Form("login") & ":F /Y >>C:\Inetpub\wwwroot\techcity\xcacls_" & Request.Form("login") & ".cmd 2>&1",,1



' server_shell.Run "C:\Inetpub\wwwroot\techcity\xcacls.cmd >C:\Inetpub\wwwroot\techcity\xcacls.log 2>&1",,1

Response.Write("
Les ACLs seront appliquee dans 5 min (scheduled)...

")

Response.Write("Attendre egalement la fin de replication de AD ...

")



Response.Write("
Terminé !
")



%>

<% Response.Write("

" & "Cliquer ICI pour quitter" & "
") %>



<%

End If

%>

Simple ASP page to reset passwords

bouffon69 (Sylvain Le Courtois) — Thu, 20 Sep 2007 07:01:29 GMT

// This page allows to reset an AD account password.



Reinitialisation de mot de passe

href="files/v2006.css" type=text/css rel=stylesheet>







border=0>



  
  
    

      




        
        
                      width=160> 
          

                        border=0>










              
              
                

                <%

                If Request.Form("login") = "" Then

                	Response.Write("Saisir le compte à reinitialiser")

                Else

                    Dim Group, Member, Domain, UserFound

                    ' 

                    Domain ="FR-ERM"

                    '

                    UserFound=0

                    

	                Set Group = GetObject("WinNT://" & Domain & "/Domain Users")

    	            For Each Member In Group.Members

    	            	' Response.Write(Member.Name & "
")

        	        	If UCase(Member.Name) = UCase(Request.Form("login")) Then

        	        		UserFound=1

        	        		If Member.AccountDisabled Then 

        	        			Response.Write(" " & Request.Form("login") &" est un compte desactive")

        	        			Exit For

        	        		Else

        	        			' Essai de reinit de mot de passe

        	        			Dim res

        	        			res=Member.SetPassword(Request.Form("pass"))

        	        			'Member.Put "pwdLastSet", CLng(0)

        	        			Member.Put "PasswordExpired", 1

								Member.SetInfo

        	        			Response.Write("L'utilisateur "& Request.Form("login") & " a changé de mot de passe !

Il devra changer de mot de passe au prochain login.")

        	        			Exit For

        	        		End If

        	        	End If 

            	    Next      

       	        	If UserFound = 0 Then

       	        		Response.Write(Request.Form("login") &" non trouvé dans le domaine "& Domain)

       	        	End If           	            	

                	

                End If

                %>

              

                
              
                Identifiant

               

                
                Nouveau mot de passe
              
                

 

                
                                  name=pass> 
                                  src="files/submit.gif" value=login border=0 name=ok>

Excel : Make a query on a Oracle database and return the result (useful for sheet formulas)

bouffon69 (Sylvain Le Courtois) — Mon, 10 Sep 2007 15:26:22 GMT

// This should be pasted in a module of the workbook



Function ORAQUERY(strHost As String, strDatabase As String, strSQL As String, strUser As String, strPassword As String)

  Dim strConOracle, oConOracle, oRsOracle

  Dim StrResult As String

  

  StrResult = ""

  

  strConOracle = "Driver={Microsoft ODBC for Oracle}; " & _

         "CONNECTSTRING=(DESCRIPTION=" & _

         "(ADDRESS=(PROTOCOL=TCP)" & _

         "(HOST=" & strHost & ")(PORT=1521))" & _

         "(CONNECT_DATA=(SERVICE_NAME=" & strDatabase & "))); uid=" & strUser & " ;pwd=" & strPassword & ";"

  Set oConOracle = CreateObject("ADODB.Connection")

  Set oRsOracle = CreateObject("ADODB.Recordset")

  oConOracle.Open strConOracle

  Set oRsOracle = oConOracle.Execute(strSQL)

  Do While Not oRsOracle.EOF

      If StrResult <> "" Then

        StrResult = StrResult & Chr(10) & oRsOracle.Fields(0).Value

      Else

        StrResult = oRsOracle.Fields(0).Value

      End If

    oRsOracle.MoveNext

  Loop

  oConOracle.Close

  Set oRsOracle = Nothing

  Set oConOracle = Nothing

  ORAQUERY = StrResult

End Function

Simple output of date in perl

bouffon69 (Sylvain Le Courtois) — Fri, 07 Sep 2007 07:55:52 GMT

// Simple output of current date in perl



  my @day_name = ("Sun.","Mon.","Tue.","Wed.","Thu.","Fri.","Sat.");

  my ($sec,$min,$hour,$mday,$mon,$year,$wday); 

  ($sec,$min,$hour,$mday,$mon,$year,$wday,undef,undef)=localtime(time()); $year+=1900;$mon++;

  $report_date=sprintf("%s %04d.%02d.%02d %02d:%02d",$day_name[$wday],$year,$mon,$mday,$hour,$min);

CMD text file rotation 60 generations

bouffon69 (Sylvain Le Courtois) — Fri, 07 Sep 2007 07:50:22 GMT

// Simple CMD text file rotation 60 generations



@echo off



if not exist %1.txt goto :EOF

if exist %1_62.txt del %1_62.txt



if exist %1_60.txt ren %1_60.txt %1_61.txt

if exist %1_59.txt ren %1_59.txt %1_60.txt

if exist %1_58.txt ren %1_58.txt %1_59.txt

if exist %1_57.txt ren %1_57.txt %1_58.txt

if exist %1_56.txt ren %1_56.txt %1_57.txt

if exist %1_55.txt ren %1_55.txt %1_56.txt

if exist %1_54.txt ren %1_54.txt %1_55.txt

if exist %1_53.txt ren %1_53.txt %1_54.txt

if exist %1_52.txt ren %1_52.txt %1_53.txt

if exist %1_51.txt ren %1_51.txt %1_52.txt

if exist %1_50.txt ren %1_50.txt %1_51.txt

if exist %1_49.txt ren %1_49.txt %1_50.txt

if exist %1_48.txt ren %1_48.txt %1_49.txt

if exist %1_47.txt ren %1_47.txt %1_48.txt

if exist %1_46.txt ren %1_46.txt %1_47.txt

if exist %1_45.txt ren %1_45.txt %1_46.txt

if exist %1_44.txt ren %1_44.txt %1_45.txt

if exist %1_43.txt ren %1_43.txt %1_44.txt

if exist %1_42.txt ren %1_42.txt %1_43.txt

if exist %1_41.txt ren %1_41.txt %1_42.txt

if exist %1_40.txt ren %1_40.txt %1_41.txt

if exist %1_39.txt ren %1_39.txt %1_40.txt

if exist %1_38.txt ren %1_38.txt %1_39.txt

if exist %1_37.txt ren %1_37.txt %1_38.txt

if exist %1_36.txt ren %1_36.txt %1_37.txt

if exist %1_35.txt ren %1_35.txt %1_36.txt

if exist %1_34.txt ren %1_34.txt %1_35.txt

if exist %1_33.txt ren %1_33.txt %1_34.txt

if exist %1_32.txt ren %1_32.txt %1_33.txt

if exist %1_31.txt ren %1_31.txt %1_32.txt

if exist %1_30.txt ren %1_30.txt %1_31.txt

if exist %1_29.txt ren %1_29.txt %1_30.txt

if exist %1_28.txt ren %1_28.txt %1_29.txt

if exist %1_27.txt ren %1_27.txt %1_28.txt

if exist %1_26.txt ren %1_26.txt %1_27.txt

if exist %1_25.txt ren %1_25.txt %1_26.txt

if exist %1_24.txt ren %1_24.txt %1_25.txt

if exist %1_23.txt ren %1_23.txt %1_24.txt

if exist %1_22.txt ren %1_22.txt %1_23.txt

if exist %1_21.txt ren %1_21.txt %1_22.txt

if exist %1_20.txt ren %1_20.txt %1_21.txt

if exist %1_19.txt ren %1_19.txt %1_20.txt

if exist %1_18.txt ren %1_18.txt %1_19.txt

if exist %1_17.txt ren %1_17.txt %1_18.txt

if exist %1_16.txt ren %1_16.txt %1_17.txt

if exist %1_15.txt ren %1_15.txt %1_16.txt

if exist %1_14.txt ren %1_14.txt %1_15.txt

if exist %1_13.txt ren %1_13.txt %1_14.txt

if exist %1_12.txt ren %1_12.txt %1_13.txt

if exist %1_11.txt ren %1_11.txt %1_12.txt

if exist %1_10.txt ren %1_10.txt %1_11.txt

if exist %1_09.txt ren %1_09.txt %1_10.txt

if exist %1_08.txt ren %1_08.txt %1_09.txt

if exist %1_07.txt ren %1_07.txt %1_08.txt

if exist %1_06.txt ren %1_06.txt %1_07.txt

if exist %1_05.txt ren %1_05.txt %1_06.txt

if exist %1_04.txt ren %1_04.txt %1_05.txt

if exist %1_03.txt ren %1_03.txt %1_04.txt

if exist %1_02.txt ren %1_02.txt %1_03.txt

if exist %1_01.txt ren %1_01.txt %1_02.txt



copy %1.txt %1_01.txt

VBA procedure to pen an Excel workbook and refresh all datas in the QueryTables and PivotTable objects

bouffon69 (Sylvain Le Courtois) — Fri, 07 Sep 2007 07:44:29 GMT

// description of your code here
// Can also use the Workbook Open event ( Private Sub Workbook_Open() )



Sub Auto_Open()

Application.DisplayAlerts = False

    ChDir "T:\EXPLOIT\TSMENV\EXCEL\politiques"

    Workbooks.Open Filename:="t:\EXPLOIT\TSMENV\EXCEL\politiques\politiques.xls", _

        UpdateLinks:=3

    For i = 1 To ActiveWorkbook.PivotCaches.Count

        ActiveWorkbook.PivotCaches(i).RefreshOnFileOpen = False

    Next

    For i = 1 To ActiveWorkbook.Sheets.Count

        For j = 1 To ActiveWorkbook.Sheets(i).QueryTables.Count

            ActiveWorkbook.Sheets(i).QueryTables(j).RefreshOnFileOpen = False

        Next

    Next

    ActiveWorkbook.RefreshAll

    ActiveWorkbook.RefreshAll

    ActiveWorkbook.RefreshAll

    ActiveWorkbook.Save

    ActiveWindow.Close

    Application.Quit

End Sub