Discussion :

[geriler]

bonjour,

il ya quelque temps j'avais demande de l'aide pour un script qui renvoie la date d'expiration de compte de l'utilisateur si il y en as une.

ce script fonctionnait

j'ai voulu le modifier pour qu il commence a renvoyer la date seulement 30 jours avant la fin de l'expiration

jusque la ca va.

la ou ca se complique c'est qu'en utilisant le meme script avec different utilisateur, j'obtiens des resultats completement different.

avec mon compte admin du domaine, ca fonctionne tout le temps, n'affiche pas de message si je n'ai pas de date de desactivation ou si elle est dans plus d'un mois, en gros il m'affiche la date d'expiration seulement si elle est dans moins de 31 jours.

par contre avec d'auutres utilisateurs, les resultats sont completement aleatoire.

affichage de la date du 01/01/1970 ou 01/01/1601 pour l'expiration du compte, ou bien meme un message qui me dis

objrequis "objuser"

code : 800A01A8

ligne 29

voici le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = 2
 
 
 Set WshNet = CreateObject("WScript.Network")
User = WshNet.Username
 
strUser = User
 
objCommand.CommandText = "SELECT Name, ADsPath FROM 'LDAP://dc=mjs,dc=local' where name='" & strUser & "*' and objectCategory='user'"
Set objRecordSet = objCommand.Execute
If objRecordSet.RecordCount > 0 Then
 
' on inscrit le cn dans une variable, et voilà
 
usrCN = objRecordSet.Fields("ADsPath").Value
Set objUser = GetObject (usrCN)
 
End If
 
dim dtmAccountExpiration
 
dtmAccountExpiration = objUser.AccountExpirationDate
 
If dtmAccountExpiration <> "01/01/1601 01:00:00" Then
 
A = dtmAccountExpiration - date ' A est la variable qui fait la difference entre les deux date (elle est inferieur ou superieur a 30)
 
If A < 31 Then
    MsgBox "Votre compte expire le : " & objUser.AccountExpirationDate, vbExclamation, "Avertissement"
End If
 
End If

merci d'avance a ceux qui peuvent m'aider

[RadPAT]

Salut,

tu risques d'avoir ce message si tu ne retrouve pas le bon nom %username% dans ton select. Exemple chez moi ton script se plante avec la même erreur que toi parceque WshNet.Username c'est "Nom de famille et première lettre du prénom" et que Name c'est "Nom de famille (espace) Prénom".

A++

[geriler]

je suis pas sure d'avoir bien compris

d'apres toi la variable d'username que j'utilise irait en fait chercher des informations personelle dans le compte au lieu de chercher directement le username c ca?

le truc c que mon compte a moi n'a aucun rapport avec mon nom (c'est un compte admin avec une facon precise ou seule 3 lettres corresponde a mon nom)

donc meme si il allait chercher ces info ca ne marcherait pas pour moi

or ca fonctionne

peut tu t'expliquer un peu plus stp?

[RadPAT]

Ce que je pense c'est que lorsque ton nom de login (le Username) n'est pas le même que ton nom LDAP "Name" ta requete se plante.

Peux-tu essayer avec ca pour voir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

objCommand.CommandText = "SELECT Name, ADsPath FROM 'LDAP://dc=mjs,dc=local' where sAMAccountName='" & strUser & "*' and objectCategory='user'

A+

[geriler]

ok

j'avais fait la meme modif mais sur le 1er name de la ligne

je te remercie ca fonctionne avec ta modification

je remet un coup le script en entier pour ceux que ca interesse !!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection
 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = 2
 
 
 Set WshNet = CreateObject("WScript.Network")
User = WshNet.Username
 
strUser = User
 
objCommand.CommandText = "SELECT Name, ADsPath FROM 'LDAP://dc=mjs,dc=local' where SamAccountName='" & strUser & "*' and objectCategory='user'"
Set objRecordSet = objCommand.Execute
If objRecordSet.RecordCount > 0 Then
 
' on inscrit le cn dans une variable, et voilà
 
usrCN = objRecordSet.Fields("ADsPath").Value
Set objUser = GetObject (usrCN)
 
End If
 
dim dtmAccountExpiration
 
dtmAccountExpiration = objUser.AccountExpirationDate
 
If dtmAccountExpiration <> "01/01/1601 01:00:00" Then
 
A = dtmAccountExpiration - date ' A est la variable qui fait la difference entre les deux date (elle est inferieur ou superieur a 30)
 
If A < 31 Then
    MsgBox "Votre compte expire le : " & objUser.AccountExpirationDate, vbExclamation, "Avertissement"
End If
 
End If

voila encore merci a toi