Discussion :

[jerome71300]

Bonjour,

Après quelques recherches (je débute en vbs), j'ai commencé un script qui aura pour but de récupérer la date du dernier changement de mdp des comptes dans le groupe local Admin.

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
Module Module1
    Public Property WScript As Object
    Sub Main()
        Dim WScript = CreateObject("WScript.Shell")
        Dim objWMIService, strQuery, colItems, Path, strMembers, strComputerName
        Dim wshShell = CreateObject("WScript.Shell")
        strComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
        objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        strQuery = "select * from Win32_GroupUser where GroupComponent = " & Chr(34) & "Win32_Group.Domain='" & strComputerName & "',Name='Administrateurs'" & Chr(34)
        colItems = objWMIService.ExecQuery(strQuery)
        strMembers = ""
        For Each Path In colItems
            Dim strMemberName, NamesArray, strDomainName, DomainNameArray, DateMDP
            NamesArray = Split(Path.PartComponent, ",")
            strMemberName = Replace(Replace(NamesArray(1), Chr(34), ""), "Name=", "")
            DomainNameArray = Split(NamesArray(0), "=")
            strDomainName = Replace(DomainNameArray(1), Chr(34), "")
            If strDomainName <> strComputerName Then
                strMemberName = strDomainName & "\" & strMemberName
            End If
            DateMDP = strMemberName.PwdLastSet
            MsgBox(strMemberName, DateMDP)
        Next
    End Sub
 
End Module

Je me heurte à un problème, j'ai le message d'erreur suivant :


Pouvez-vous m'aiguiller ?
Merci d'avance.