Script VBscript qui ne fonctionne pas

Script VBscript qui ne fonctionne pas - Divers - Programmation

Marsh Posté le 02-07-2007 à 09:52:27    

Bonjour,
 
J'ai créé un script qui me donne la liste des utilisateurs qui arrivent en fin de validité de leur compte. Cela permet de prévenir les responsables des prestataires. Mais voilà, l'utilisation de la fonction AddressM ne fonctionne pas au premier compte trouvé mais à partir du second tout est OK.
 
 
Voici le script :

Code :
  1. Dim i  'Compteur
  2. Dim Manager 'Nom du responsable
  3. Dim MyDate 'Date d'aujourd'hui
  4. Dim NbrC              'Nom de caracteres
  6. 'Constante
  7. Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
  8. Const Jrs = 31     'Nombre de jours avant fin de contrat
  10. MyDate = Date     'Date d'aujourd'hui
  12. 'Constantes
  13. strContainer = "OU=Utilisateurs,OU=SITE-CAOSRV,"
  15. Set objRootDSE = GetObject("LDAP://RootDSE" )
  16. strDNSDomain = objRootDSE.Get("DefaultNamingContext" )
  18. strContainer = strContainer & strDNSDomain
  19. set objOU = GetObject("LDAP://" & strContainer )
  22. For Each objUser In objOU
  24. intUAC = objUser.Get("userAccountControl" )
  26. Caract = ""
  27. Manager = ""
  28. i = 0
  30. objName = objUser.Get("Name" )
  31. dtmAccountExpiration = objUser.AccountExpirationDate
  32. If ADS_UF_DONT_EXPIRE_PASSWD Then 'AND intUAC Then
  33.  'WScript.Echo "Espion1: "
  34.  'WScript.Echo "Espion2: " & ADS_UF_DONT_EXPIRE_PASSWD  & " : " & intUAC
  35.  'Wscript.Echo "Espion 4 : " & objName & "|" & objUser.AccountExpirationDate
  36.  If Err.Number = -2147467259 Or dtmAccountExpiration = "01/01/1970" Or left(dtmAccountExpiration,10) = "01/01/1601" Then
  37.      'WScript.Echo "Espion3 : " & objName & left(dtmAccountExpiration,10)
  38.  Else
  39.      If DateDiff("d", Now, objUser.AccountExpirationDate) < Jrs Then
  40.       NbrC = Len(objUser.manager)
  41.   'Wscript.echo "Espion 1 : " & NbrC
  42.   If NbrC > 0 then
  43.    Temp_Manager = Mid(objUser.manager,4,NbrC)
  44.    Do While Caract <> ","
  45.     i = i + 1
  46.     Caract = Mid(Temp_Manager,i,1)
  47.     Manager = Manager & Caract
  48.    Loop
  49.    Manager = Mid(Manager,1,len(Manager)-1)
  50.    Wscript.Echo "Espion 5 : " & Manager
  51.    AddressM Manager
  52.    Wscript.Echo "Espion 9 : " & Manage
  53.   End If
  54.       Wscript.Echo objName & "|" & objUser.AccountExpirationDate & "|" & DateDiff("d", Now, objUser.AccountExpirationDate) & "|" & Manage
  55.      Else
  56.   'Wscript.Echo objName & "|" & objUser.AccountExpirationDate
  57.      End If
  58.  End If
  59. End If
  61. Next
  63. 'Fonction permettant de cree une adresse e-mail
  64. 'a partir du nom de la personne.
  65. Function AddressM(Manager)
  66. Manage = ""
  67. NbrC = Len (Manager)
  68. 'Wscript.Echo "Espion 6 : " & NbrC
  69. For i = 1 To Nbrc
  70.  Caract = Mid(Manager,i, 1)
  71.  'Wscript.Echo "Caract : " & Caract
  72.  If Caract = " " Then
  73.   Caract = "."
  74.   'Wscript.Echo Caract & "Espace"
  75.  End If
  76.  Manage = Manage & Caract
  77. Next
  78. 'Wscript.Echo "Espion 7 : " & Manage
  79. Manage = Manage & "@adresse.fr"
  80. Wscript.Echo "Espion 8 : " & Manage
  81. End Function


 
Karon


Message édité par karon127 le 03-07-2007 à 13:11:59

---------------
Cordialement,
Reply

Marsh Posté le 02-07-2007 à 09:52:27   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed