[Summary view] [Print] [Text view]

   1  ; Script de mise au domaine manuelle
   2  ; $Id: rejointSE3.au3 6022 2010-12-04 13:10:11Z crob $
   3  ; Stephane Boireau, d'après le script rejointSE3.cmd de Denis Bonnenfant
   4  ; N'est normalement lancé qu'en cas d'adhésion 'un nouveau poste
   5  ; ou que la mise au domaine depuis l'interface SE3 a échoué.
   6  ; Olivier Lacroix : contient les commandes de rejointSE3.au3 qui doivent être passées en environnement
   7  ; avec privilèges élevés. Doit être lancé avec un argument depuis rejointSE3.exe
   8  ; Derniere modification: 17/12/2011
   9  
  10  
  11  
  12  ;Include constants
  13  #include <GUIConstants.au3>
  14  
  15  #include <se3_crob.lib.au3>
  16  
  17  
  18  ;SplashTextOn("Information","Lancement du script",500,100,-1,0)
  19  ;Sleep(1000)
  20  
  21  ; lancé avec un argument pour communiquer le résultat d'un test depuis rejointSE3.au3
  22  ; l'argument contient $temoin_demander_pass_admin
  23  If $CmdLine[0] <> 1 Then
  24      SplashTextOn("Information","rejointSE3-elevated.exe ne doit pas être lancé directement. Utiliser rejointSE3.exe pour la mise au domaine.",500,100,-1,0)
  25      Sleep(5000)
  26      Exit(1)
  27  Else
  28      ; le test initialisant $temoin_demander_pass_admin se situe dans rejointSE3.exe car il nécessite un accès réseau.
  29      SplashTextOn("Information","Argument $temoin_demander_pass_admin pris en compte : " & $CmdLine[1],500,100,-1,0)
  30      Sleep(1000)
  31      $temoin_demander_pass_admin=$CmdLine[1]
  32  EndIf
  33  
  34  ; pour tests
  35  ;$temoin_demander_pass_admin = "y"
  36  
  37  $SystemDrive=_GetSystemDrive()
  38  
  39  
  40  ;    if exist z:\machine\%IP%\localpw.job (
  41  ;        copy /y z:\machine\%IP%\action.bat %systemdrive%\netinst
  42  ;    )
  43  ;    else (
  44  ;        :passwd
  45  ;        cls
  46  ;        set /P LOCALPW=entrez le mot de passe adminstrateur :
  47  ;        if "%LOCALPW%x" == "x" goto shutdown
  48  ;        net use \\%computername%\c$ /user:%computername%\administrateur %LOCALPW%
  49  ;        if errorlevel 1 goto passwd
  50  ;        net use \\%computername%\c$ /delete
  51  ;        start /wait %Systemdrive%\Netinst\CPAU.exe -u administrateur -p wawa -wait -enc -file %Systemdrive%\Netinst\localpw.job  -lwp -c -ex "net user administrateur %LOCALPW%"
  52  ;    )
  53  
  54  
  55  SplashTextOn("Information","Choix du mot de passe du compte Administrateur local.",500,100,-1,0)
  56  If $temoin_demander_pass_admin == "y" Then
  57      $MDP_ADMINISTRATEUR=""
  58      While $MDP_ADMINISTRATEUR == ""
  59          ; demande d'un mot de passe spécifique avec un timeout de 30 secondes.
  60          $MDP_ADMINISTRATEUR=InputBox("Informations supplémentaires","Pour imposer à Administrateur le mot de passe d'adminse3, valider directement par Entree." & @CRLF & @CRLF & "Si vous souhaitez un mot de passe specifique pour le compte Administrateur, entrez le mot de passe : ","","*", Default,200, Default, Default,30)
  61  
  62          If @error == 1 Then
  63              MsgBox(0,"Abandon","Vous avez souhaité abandonner l'intégration.")
  64              Exit
  65          EndIf
  66  
  67          If $MDP_ADMINISTRATEUR == "" Then
  68              ExitLoop
  69          EndIf
  70  
  71          $run_acces_xp=RunWait(@Comspec & " /c net use \\" & @ComputerName & "\C$ /user:" & @ComputerName & "\administrateur " & $MDP_ADMINISTRATEUR & " /persistent:no")
  72  
  73          If $run_acces_xp == 0 Then
  74              ; Acces OK, le mot de passe est valide
  75              MsgBox(0,"Information","Le mot de passe est valide",3)
  76  
  77              $menage=RunWait(@Comspec & " /c net use \\" & @ComputerName & "\C$ /delete /y")
  78          Else
  79              $AutoShareWks=RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters","AutoShareWks")
  80  
  81              If $AutoShareWks == 0 Then
  82                  MsgBox(4096,"ERREUR","Il n'a pas été possible d'accéder à " & @ComputerName & "\C$" & @CRLF & @CRLF & "Les partages administratifs sont désactivés et cela va perturber l'intégration." & @CRLF & @CRLF & "Contrôlez la clé [HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters\AutoShareWks]" & @CRLF & @CRLF & "Sa valeur actuelle a l'air d'être: '" & $AutoShareWks & "'." & @CRLF & "Elle ne doit pas être à '0' pour que les choses se passent bien.")
  83                  ;Windows Registry Editor Version 5.00
  84                  ;[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\lanmanserver\parameters]
  85                  ;"AutoShareWks"=dword:00000001
  86              Else
  87                  $Reponse = MsgBox(36,"ERREUR","Le mot de passe saisi n'est pas celui actuel du compte Administrateur local." & @CRLF & "Voulez vous imposer le mot de passe saisi '" & $MDP_ADMINISTRATEUR & "' au compte Administrateur local de ce poste ?")
  88                  ; si oui, on quitte la boucle ExitLoop pour imposer le mot de passe saisi
  89                  ; si non, on retourne au début de la boucle avec ContinueLoop pour redemander le mot de passe d'Administrateur
  90                  ;MsgBox(0,"test","Retour bouton :" & $Reponse )
  91                  If $Reponse == 6 Then
  92                      ExitLoop
  93                  ;Else
  94                      ;$MDP_ADMINISTRATEUR=""
  95                      ;ContinueLoop
  96                  EndIf
  97              EndIf
  98              ;Exit
  99              $MDP_ADMINISTRATEUR=""
 100          EndIf
 101      WEnd
 102  
 103      If $MDP_ADMINISTRATEUR == "" Then
 104          MsgBox(0,"Information","Le mot de passe administrateur sera modifié pour prendre celui de 'adminse3'.",3)
 105      Else
 106          MsgBox(0,"Information","Le mot de passe administrateur sera modifié pour prendre celui saisi : " & $MDP_ADMINISTRATEUR,3)
 107          ; start /wait %Systemdrive%\Netinst\CPAU.exe -u administrateur -p wawa -wait -enc -file %Systemdrive%\Netinst\localpw.job  -lwp -c -ex "net user administrateur %LOCALPW%"
 108          ;MsgBox(0,"Info","RunWait(@Comspec & "" /c "" & $SystemDrive & "":\Netinst\CPAU.exe -u administrateur -p wawa -wait -enc -file "" & $SystemDrive & ""\Netinst\localpw.job  -lwp -c -ex ""net user administrateur " & $MDP_ADMINISTRATEUR & """")
 109          RunWait(@Comspec & " /c " & $SystemDrive & "\Netinst\CPAU.exe -u administrateur -p wawa -wait -enc -file " & $SystemDrive & "\Netinst\localpw.job  -lwp -c -ex ""net user administrateur " & $MDP_ADMINISTRATEUR & " "" ")
 110      EndIf
 111  EndIf
 112  
 113  
 114  SplashTextOn("Shutdown","Le script shutdown.cmd va être lancé pour achever de préparer l'intégration et rebooter la machine.",-1,70)
 115  Sleep(1000)
 116  RunWait(@ComSpec & " /c " & $SystemDrive & "\Netinst\shutdown.cmd")