Je souhaite comme documenté sur cette page :
http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx
utiliser le petit script VBS pour récupérer les infos de dernière connexion
des login.
Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache...
erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations
mais votre aide serait appréciée.
Merci
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Thierry DEMAN [MVP]
Bonsoir,
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise: --------- lngDate = objRecordSet.Fields("LastTimeStamp") Set objDate = lngDate dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias) ' Function to convert Integer8 (64-bit) value to a date, adjusted for ' time zone bias. Dim lngAdjust, lngDate, lngHigh, lngLow lngAdjust = lngBias lngHigh = objDate.HighPart lngLow = objDate.LowPart ' Account for bug in IADsLargeInteger property methods. If (lngHigh = 0) And (lngLow = 0) Then lngAdjust = 0 End If lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 - lngAdjust) / 1440 Integer8Date = CDate(lngDate) End Function ----------------------
-- Thierry DEMAN (Exchange MVP) Ayant commis les sites suivants: http://www.faqexchange.info http://base.faqexchange.info http://webfamilial.dyndns.org Ayant participé au site: http://www.isafirewalls.org
"loup2" a écrit dans le message de news:
Bonjour tout le monde,
Je souhaite comme documenté sur cette page : http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx utiliser le petit script VBS pour récupérer les infos de dernière connexion des login. Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache... erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations mais votre aide serait appréciée. Merci
Bonsoir,
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette
propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise:
---------
lngDate = objRecordSet.Fields("LastTimeStamp")
Set objDate = lngDate
dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias)
' Function to convert Integer8 (64-bit) value to a date, adjusted for
' time zone bias.
Dim lngAdjust, lngDate, lngHigh, lngLow
lngAdjust = lngBias
lngHigh = objDate.HighPart
lngLow = objDate.LowPart
' Account for bug in IADsLargeInteger property methods.
If (lngHigh = 0) And (lngLow = 0) Then
lngAdjust = 0
End If
lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 -
lngAdjust) / 1440
Integer8Date = CDate(lngDate)
End Function
----------------------
--
Thierry DEMAN (Exchange MVP)
Ayant commis les sites suivants:
http://www.faqexchange.info
http://base.faqexchange.info
http://webfamilial.dyndns.org
Ayant participé au site:
http://www.isafirewalls.org
"loup2" <loup2@discussions.microsoft.com> a écrit dans le message de
news:D6C399B5-F37B-4B2C-8129-9B9B1506883B@microsoft.com...
Bonjour tout le monde,
Je souhaite comme documenté sur cette page :
http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx
utiliser le petit script VBS pour récupérer les infos de dernière
connexion
des login.
Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache...
erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations
mais votre aide serait appréciée.
Merci
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise: --------- lngDate = objRecordSet.Fields("LastTimeStamp") Set objDate = lngDate dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias) ' Function to convert Integer8 (64-bit) value to a date, adjusted for ' time zone bias. Dim lngAdjust, lngDate, lngHigh, lngLow lngAdjust = lngBias lngHigh = objDate.HighPart lngLow = objDate.LowPart ' Account for bug in IADsLargeInteger property methods. If (lngHigh = 0) And (lngLow = 0) Then lngAdjust = 0 End If lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 - lngAdjust) / 1440 Integer8Date = CDate(lngDate) End Function ----------------------
-- Thierry DEMAN (Exchange MVP) Ayant commis les sites suivants: http://www.faqexchange.info http://base.faqexchange.info http://webfamilial.dyndns.org Ayant participé au site: http://www.isafirewalls.org
"loup2" a écrit dans le message de news:
Bonjour tout le monde,
Je souhaite comme documenté sur cette page : http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx utiliser le petit script VBS pour récupérer les infos de dernière connexion des login. Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache... erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations mais votre aide serait appréciée. Merci
loup2
bonjour merci pour cette réponse mais je ne sais pas quoi faire ce ce code. Dois-je l'insérer dans le code existant ? a quoi sert cette inscruction : lngDate = objRecordSet.Fields("LastTimeStamp")
l'objet analysé n'a pas cette propriété (aucune connexion, par exemple). ==> c'est à dire ? l'objet, quel objet ? n'a pas la propriété LastTimeStamp ? aucune connexion ? je n'arriverais pas à me connecter à l'AD ?
Merci encore pour vos explications :)
Bonsoir,
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise: --------- lngDate = objRecordSet.Fields("LastTimeStamp") Set objDate = lngDate dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias) ' Function to convert Integer8 (64-bit) value to a date, adjusted for ' time zone bias. Dim lngAdjust, lngDate, lngHigh, lngLow lngAdjust = lngBias lngHigh = objDate.HighPart lngLow = objDate.LowPart ' Account for bug in IADsLargeInteger property methods. If (lngHigh = 0) And (lngLow = 0) Then lngAdjust = 0 End If lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 - lngAdjust) / 1440 Integer8Date = CDate(lngDate) End Function ----------------------
-- Thierry DEMAN (Exchange MVP) Ayant commis les sites suivants: http://www.faqexchange.info http://base.faqexchange.info http://webfamilial.dyndns.org Ayant participé au site: http://www.isafirewalls.org
"loup2" a écrit dans le message de news:
Bonjour tout le monde,
Je souhaite comme documenté sur cette page : http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx utiliser le petit script VBS pour récupérer les infos de dernière connexion des login. Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache... erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations mais votre aide serait appréciée. Merci
bonjour merci pour cette réponse mais je ne sais pas quoi faire ce ce code.
Dois-je l'insérer dans le code existant ?
a quoi sert cette inscruction :
lngDate = objRecordSet.Fields("LastTimeStamp")
l'objet analysé n'a pas cette propriété (aucune connexion, par exemple).
==> c'est à dire ? l'objet, quel objet ? n'a pas la propriété LastTimeStamp ?
aucune connexion ? je n'arriverais pas à me connecter à l'AD ?
Merci encore pour vos explications :)
Bonsoir,
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette
propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise:
---------
lngDate = objRecordSet.Fields("LastTimeStamp")
Set objDate = lngDate
dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias)
' Function to convert Integer8 (64-bit) value to a date, adjusted for
' time zone bias.
Dim lngAdjust, lngDate, lngHigh, lngLow
lngAdjust = lngBias
lngHigh = objDate.HighPart
lngLow = objDate.LowPart
' Account for bug in IADsLargeInteger property methods.
If (lngHigh = 0) And (lngLow = 0) Then
lngAdjust = 0
End If
lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 -
lngAdjust) / 1440
Integer8Date = CDate(lngDate)
End Function
----------------------
--
Thierry DEMAN (Exchange MVP)
Ayant commis les sites suivants:
http://www.faqexchange.info
http://base.faqexchange.info
http://webfamilial.dyndns.org
Ayant participé au site:
http://www.isafirewalls.org
"loup2" <loup2@discussions.microsoft.com> a écrit dans le message de
news:D6C399B5-F37B-4B2C-8129-9B9B1506883B@microsoft.com...
Bonjour tout le monde,
Je souhaite comme documenté sur cette page :
http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx
utiliser le petit script VBS pour récupérer les infos de dernière
connexion
des login.
Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache...
erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations
mais votre aide serait appréciée.
Merci
bonjour merci pour cette réponse mais je ne sais pas quoi faire ce ce code. Dois-je l'insérer dans le code existant ? a quoi sert cette inscruction : lngDate = objRecordSet.Fields("LastTimeStamp")
l'objet analysé n'a pas cette propriété (aucune connexion, par exemple). ==> c'est à dire ? l'objet, quel objet ? n'a pas la propriété LastTimeStamp ? aucune connexion ? je n'arriverais pas à me connecter à l'AD ?
Merci encore pour vos explications :)
Bonsoir,
ce type d'erreur peut arriver lorsque l'objet analysé n'a pas cette propriété (aucune connexion, par exemple).
=> il faut donc traiter cette erreur.. Voici la fonction que j'utilise: --------- lngDate = objRecordSet.Fields("LastTimeStamp") Set objDate = lngDate dtmLastTimeStamp= Integer8Date(objDate, lngBias)
Function Integer8Date(objDate, lngBias) ' Function to convert Integer8 (64-bit) value to a date, adjusted for ' time zone bias. Dim lngAdjust, lngDate, lngHigh, lngLow lngAdjust = lngBias lngHigh = objDate.HighPart lngLow = objDate.LowPart ' Account for bug in IADsLargeInteger property methods. If (lngHigh = 0) And (lngLow = 0) Then lngAdjust = 0 End If lngDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow) / 600000000 - lngAdjust) / 1440 Integer8Date = CDate(lngDate) End Function ----------------------
-- Thierry DEMAN (Exchange MVP) Ayant commis les sites suivants: http://www.faqexchange.info http://base.faqexchange.info http://webfamilial.dyndns.org Ayant participé au site: http://www.isafirewalls.org
"loup2" a écrit dans le message de news:
Bonjour tout le monde,
Je souhaite comme documenté sur cette page : http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx utiliser le petit script VBS pour récupérer les infos de dernière connexion des login. Malheureusement, j'ai une erreur d'exécution sur le Get de LastTimeStamp :
La propriété répertoire n'est pas présente dans le cache... erreur 8000500D
J'ai commencé à trifouiller un peu histoire de récupérer des infomations mais votre aide serait appréciée. Merci
Gilles LAURENT [MVP]
"loup2" a écrit dans le message de news: | Bonjour tout le monde,
Bonsoir,
| Je souhaite comme documenté sur cette page : | http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx | utiliser le petit script VBS pour récupérer les infos de dernière | connexion des login. | Malheureusement, j'ai une erreur d'exécution sur le Get de | LastTimeStamp :
-- Gilles LAURENT MVP Windows Server - Admin Frameworks http://glsft.free.fr
"loup2" <loup2@discussions.microsoft.com> a écrit dans le message de
news:D6C399B5-F37B-4B2C-8129-9B9B1506883B@microsoft.com
| Bonjour tout le monde,
Bonsoir,
| Je souhaite comme documenté sur cette page :
|
http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx
| utiliser le petit script VBS pour récupérer les infos de dernière
| connexion des login.
| Malheureusement, j'ai une erreur d'exécution sur le Get de
| LastTimeStamp :
"loup2" a écrit dans le message de news: | Bonjour tout le monde,
Bonsoir,
| Je souhaite comme documenté sur cette page : | http://www.microsoft.com/technet/scriptcenter/topics/win2003/lastlogon.mspx | utiliser le petit script VBS pour récupérer les infos de dernière | connexion des login. | Malheureusement, j'ai une erreur d'exécution sur le Get de | LastTimeStamp :
