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

%>
DZone Snippets: accounts code

ASP Page listing and making changes to AD accounts
