Discussion :

[linkou]

Bonjour,

Je souhaite trouver les machines de mon domaine qui ne sont plus sur le réseau depuis X temps.
J'ai réussi à trouver un script qui liste les machines de mon domaine mais je n'arrive pas a trouve le champs pour récupérer leur dernière connection sur le réseau.

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
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = ("ADsDSOObject")
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
objCommand.CommandText = _ 
    "SELECT name  FROM " _   
        & "'LDAP://DC=XXX,DC=XXX'" _ 
            & " WHERE objectClass='computer' "
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 

Do Until objRecordSet.EOF 
    Wscript.Echo "Name: " & objRecordset.fields("name")
    objRecordSet.MoveNext 
Loop

J'aimerais un truc du genre

Code :

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

Select name, lastview ....

Merci

[linkou]

Bon j'ai trouvé quelques trucs, j'arrive a avoir des dates maintenant, mais je ne sais pas exactement à quoi elles correspondent.

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
Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = ("ADsDSOObject")
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection
objCommand.Properties("Page Size") = 1000 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  
objCommand.CommandText = _ 
    "SELECT Name, modifytimestamp FROM " _   
        & "'LDAP://DC=XXX,DC=XXX" _ 
            & " WHERE objectClass='computer' "
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 

Do Until objRecordSet.EOF 
    Wscript.Echo objRecordSet.Fields("Name").Value & ";" & objRecordSet.Fields("modifytimestamp").Value
    objRecordSet.MoveNext 
Loop

Avec 'modifytimestamp' j'ai une date en retour, pareil si j'utilise 'whencreated' ou 'whenchanged', mais je ne comprend pas trop à quoi correspondent ces champs.

Pour info j'ai trouvé ces champs dans le schéma de l'Active Directory > Classes > Computer, mais les explications la bas ne sont très explicite...


Si vous en savez un peu plus ?

Bonne fin d'aprem et bonne soirée.

Merci

[linkou]

Alors j'ai réussi a trouver l'attribut qui convient bien : "lastlogon" (dernière authentification de l'ordi sur le domaine).

Mais l'objet qui m'est retourne, je n'arrive pas à l'exploiter.

C'est une date en 64 bits, avec apparement 32 bits pour la date et les 32 autres bits pour l'heure. Si vous avez des infos je suis preneur

Dans mon script VB je l'appel comme ça : (il faut que j'arrive à convertir au moins la date)

Code :

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

1
2
3
4
var = objRecordSet.Fields("lastLogon")
var.HighPart
var.LowPart

Merci

[linkou]

Bon j'ai résolu mon problème tout seul. Il n'a pas pationnné les foules

J'ai mis la difficulté un rouge ^^

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
var = objRecordSet.Fields("lastLogon")
    'wscript.echo objRecordSet.Fields("Name").Value & " " & isobject(var) & " - " & isnull(var)
    if ( isobject(var) ) then

        lngHigh = var.HighPart 
        lngLow = var.LowPart 

        If lngLow < 0 Then 
            lngHigh = lngHigh + 1 
        End If 

        If (lngHigh = 0) And (lngLow = 0 ) Then 
            dtmDate = objRecordSet.Fields("modifyTimeStamp").Value 
        Else 
            dtmDate = #1/1/1601# + (((lngHigh * (2 ^ 32)) + lngLow)/600000000 - lngBias)/1440 
        End If
	else 
		dtmDate = objRecordSet.Fields("modifyTimeStamp").Value
    end if

Résolu