[R] Code erreur Script
Posté : lun. 21 juin 2010 11:38
par aikiox
Bonjour,
Voila, je rencontre un petit problème avec "Au3check". Il me trouve des erreurs quand j'exécute mon script a partir de l'editeur mais je n'arrive pas a trouver ou son les erreurs qu'il m'indique.
Voici les erreurs qu'il me trouve :
Voici mon script :
Cordialement
Romain
Voila, je rencontre un petit problème avec "Au3check". Il me trouve des erreurs quand j'exécute mon script a partir de l'editeur mais je n'arrive pas a trouver ou son les erreurs qu'il m'indique.
Voici les erreurs qu'il me trouve :
► Afficher le texte
Code : Tout sélectionner
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3(78,6) : ERROR: missing Next.
func
^
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3(43,15) : REF: missing Next.
for $i = 1 to
~~~~~~~~~~~^
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3(78,6) : ERROR: missing EndIf.
func
^
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3(9,55) : REF: missing EndIf.
If not FileExists(@ScriptDir&"\comptead.xls") = 1 Then
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3(108,4) : ERROR: syntax error
Next
^
E:\data\Utilisateur\Documents\script\Compte AD\compte_excel.au3 - 3 error(s), 0 warning(s)
► Afficher le texte
Code : Tout sélectionner
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=C:\Users\Romaebip\Desktop\Ico\softwear\office\excel v2.ico
#AutoIt3Wrapper_UseX64=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <Excel.au3>
#include <AD.au3>
$fichier = @ScriptDir & "\comptead.xls"
$fin = 0
If not FileExists(@ScriptDir&"\comptead.xls") = 1 Then
msgbox(64,"ERREUR","Le fichier comptead.xls n'est pas présent dans "&@ScriptDir)
exit
Else
ProcessClose("Excel.exe")
_ExcelBookOpen($fichier)
$oExcel = ObjGet("","Excel.Application")
$oExcel.SheetsInNewWorkbook = 1
$oExcel.Visible = 0
$nb_ligne = $oExcel.ActiveSheet.UsedRange.Rows.Count
for $i = 1 to $nb_ligne-1 step 1
$nom = $oExcel.Activesheet.Cells(1+$i,1).Value
$prenom = $oExcel.Activesheet.Cells(1+$i,2).Value
$fonction = $oExcel.Activesheet.Cells(1+$i,3).Value
if not $nom = true then
msgbox(0,"Erreur Nom "," La cellule "&$i+1& " est vide dans la colonne nom")
exit
elseif not $prenom = true Then
msgbox(0,"Erreur Prenom","La cellule "&$i+1& " est vide dans la colonne prenom")
Exit
EndIf
if not (($fonction = "Direction") or ($fonction = "Administration") or ($fonction = "Production 1") or ($fonction = "Production 2") or ($fonction = "Informatique")) Then
msgbox(0,"Erreur Service","La cellule "&$i+1& " n'est saisie correctement dans la colonne service")
exit
endif
Next
for $i = 1 to $nb_ligne-1 step 1
$nom = $oExcel.Activesheet.Cells(1+$i,1).Value
$prenom = $oExcel.Activesheet.Cells(1+$i,2).Value
$fonction = $oExcel.Activesheet.Cells(1+$i,3).Value
$ncomplet = $prenom&" "&$nom
$upn = StringReplace($prenom&"."&$nom," ","")
if $fonction = "Direction" Then
$ou = 'OU=Utilisateurs,OU=Service Direction,DC=drinkevol,DC=lan'
$groupe = 'CN=Direction,'&$ou
desc()
elseif $fonction = "Administration" Then
$ou = 'OU=Utilisateurs,OU=Service Administratif,DC=drinkevol,DC=lan'
$groupe = 'CN=Administration,'&$ou
desc()
elseif $fonction = "Informatique" Then
$ou = 'OU=Utilisateurs,OU=Service Informatique,DC=drinkevol,DC=lan'
$groupe = 'CN=Technique,'&$ou
desc()
elseif $fonction = "Production 1" Then
$ou = 'OU=Utilisateurs,OU=Production 1,OU=Service Production,DC=drinkevol,DC=lan'
$groupe = 'CN=Production1,'&$ou
desc()
elseif $fonction = "Production 2" Then
$ou = 'OU=Utilisateurs,OU=Production 2,OU=Service Production,DC=drinkevol,DC=lan'
$groupe = 'CN=Production2,'&$ou
desc()
EndIf
func desc()
_AD_Open()
$iValue = _AD_CreateUser($ou, $upn, $ncomplet)
If $iValue = 1 Then
$fin = $fin + 1
MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' a été crée avec succés est dans l'OU '" & $ou,1)
;~ $iValue = _AD_ModifyAttribute($sUser, "description", "Description")
;~ $iValue = _AD_ModifyAttribute($sUser, "mail", "email")
$iValue = _AD_ModifyAttribute($upn, "givenName", $prenom)
$iValue = _AD_ModifyAttribute($upn, "sn", $nom)
$iValue = _AD_ModifyAttribute($upn, "displayName", $ncomplet)
$iValue = _AD_ModifyAttribute($upn, "profilepath", "\\evodrink\Profils\"&$upn)
$iValue = _AD_AddUserToGroup($groupe, $upn)
$iValue = _AD_SetPassword($upn, StringUpper(StringLeft($prenom, 1))&StringLower(StringLeft($nom, 1))&"123456")
Run(@ComSpec & " /c " & 'dsmod user "CN='& $ncomplet &","& $ou &'" -mustchpwd yes', "", @SW_HIDE)
ElseIf @error = 1 Then
MsgBox(64, "Création du compte de '"&$ncomplet&"'", "L'utilisateur '" & $ncomplet & "' est déja existant",1)
;~ ElseIf @error = 2 Then
;~ MsgBox(64, "Création du compte de '"&$ncomplet&"'", "OU '" & $ou & "' does not exist")
;~ ElseIf @error = 3 Then
;~ MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Value for CN (e.g. Lastname Firstname) is missing")
;~ ElseIf @error = 4 Then
;~ MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Value for $sAD_User is missing")
Else
MsgBox(64, "Création du compte de '"&$ncomplet&"'", "Retour code erreur '" & @error & "' venant de l'Active Directory")
EndIf
_AD_Close()
endfunc
Next
EndIf
ProcessClose("Excel.exe")
msgbox(0,"Fin","La création est terminée avec "&$fin&" compte(s) créé(s)",2)Romain
