Bonjour
J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander
quel ordinateur sont toujours actif.
On s'est tous qu'entre la machine et le controleur de domaine il y a un
echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé
son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
Bonjour,
Un mois sans revenir au bureau me semble un peu trop court.
A adapter, sans doute :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUserLDAP = GetObject _
("LDAP://CN=strComputer,CN=USERS,DC=contoso,DC=com")
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
wscript.echo "The password does not expire."
Else
dtmValue = objUserLDAP.PasswordLastChanged
Wscript.echo "Le mot de passe a été changé le " & _
DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _
"Le nombre de jour écoulé depuis le changement " & VbCrLf & _
"est de " & int(now - dtmValue) & " jours"
Cdlt
Stéphane
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de news:
A07EF954-B920-4B9E-B46A-8213B35996F0@microsoft.com...
Bonjour
J'aurai voulu savoir s'il etait possible de consulter AD et de lui
demander
quel ordinateur sont toujours actif.
On s'est tous qu'entre la machine et le controleur de domaine il y a un
echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé
son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur
computer....
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
Titi
Oui mais c'etait un exemple. On veut appliquer ça sur une OU precise :-)
Bonjour,
Un mois sans revenir au bureau me semble un peu trop court.
A adapter, sans doute :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUserLDAP = GetObject _ ("LDAP://CN=strComputer,CN=USERS,DC=contoso,DC=com")
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
Oui mais c'etait un exemple.
On veut appliquer ça sur une OU precise :-)
Bonjour,
Un mois sans revenir au bureau me semble un peu trop court.
A adapter, sans doute :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUserLDAP = GetObject _
("LDAP://CN=strComputer,CN=USERS,DC=contoso,DC=com")
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
wscript.echo "The password does not expire."
Else
dtmValue = objUserLDAP.PasswordLastChanged
Wscript.echo "Le mot de passe a été changé le " & _
DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _
"Le nombre de jour écoulé depuis le changement " & VbCrLf & _
"est de " & int(now - dtmValue) & " jours"
Cdlt
Stéphane
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de news:
A07EF954-B920-4B9E-B46A-8213B35996F0@microsoft.com...
Bonjour
J'aurai voulu savoir s'il etait possible de consulter AD et de lui
demander
quel ordinateur sont toujours actif.
On s'est tous qu'entre la machine et le controleur de domaine il y a un
echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé
son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur
computer....
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
Titi
J'ai un probleme Comment on pourais faire pour qu'il traite une liste de pc et copi les noms dans un fichier txt
Oui mais c'etait un exemple. On veut appliquer ça sur une OU precise :-)
Bonjour,
Un mois sans revenir au bureau me semble un peu trop court.
A adapter, sans doute :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUserLDAP = GetObject _ ("LDAP://CN=strComputer,CN=USERS,DC=contoso,DC=com")
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
J'ai un probleme
Comment on pourais faire pour qu'il traite une liste de pc et copi les noms
dans un fichier txt
Oui mais c'etait un exemple.
On veut appliquer ça sur une OU precise :-)
Bonjour,
Un mois sans revenir au bureau me semble un peu trop court.
A adapter, sans doute :
Const ADS_UF_DONT_EXPIRE_PASSWD = &h10000
Set objUserLDAP = GetObject _
("LDAP://CN=strComputer,CN=USERS,DC=contoso,DC=com")
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then
wscript.echo "The password does not expire."
Else
dtmValue = objUserLDAP.PasswordLastChanged
Wscript.echo "Le mot de passe a été changé le " & _
DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _
"Le nombre de jour écoulé depuis le changement " & VbCrLf & _
"est de " & int(now - dtmValue) & " jours"
Cdlt
Stéphane
"Titi" <Titi@discussions.microsoft.com> a écrit dans le message de news:
A07EF954-B920-4B9E-B46A-8213B35996F0@microsoft.com...
Bonjour
J'aurai voulu savoir s'il etait possible de consulter AD et de lui
demander
quel ordinateur sont toujours actif.
On s'est tous qu'entre la machine et le controleur de domaine il y a un
echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé
son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur
computer....
If intCurrentValue and ADS_UF_DONT_EXPIRE_PASSWD Then wscript.echo "The password does not expire." Else dtmValue = objUserLDAP.PasswordLastChanged Wscript.echo "Le mot de passe a été changé le " & _ DateValue(dtmValue) & " à " & TimeValue(dtmValue) & VbCrLf & _ "Le nombre de jour écoulé depuis le changement " & VbCrLf & _ "est de " & int(now - dtmValue) & " jours"
Cdlt Stéphane
"Titi" a écrit dans le message de news:
Bonjour J'aurai voulu savoir s'il etait possible de consulter AD et de lui demander quel ordinateur sont toujours actif. On s'est tous qu'entre la machine et le controleur de domaine il y a un echange de mot de passe. Donc en disant si l'ordinateur n'a pas renouvellé son mot de passe depuis 1 moi, effacer l'ordinateur du conteneur computer....
