[VBS] Récupérer date changement MDP compte local

Version imprimable

1 pièce(s) jointe(s)

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:

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 :
Pièce jointe 621217

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

21/06/2022, 22h38
ProgElecT

Salut

Cela ne doit pas être du VBScript car dans se langage n'a pas de variable typé, du VBA, VB 6 et antérieur ..... ?
21/06/2022, 23h15
jerome71300

Salut,

Merci pour la réponse.

C'est un script dont je me suis inspiré et qui fonctionne avec l'extension .vbs,(hormis la ligne en erreur).
Encore une fois, je débute donc je fais peut-être fausse route.
Je suis preneur de toute suggestion.

Merci d'avance. ;-)

Re

Je ne sais pas si cela te permettra d'avancer, j'ai transformé/adapté un peu le code pour qu'il fonctionne chez moi (OS windows 10 professionnel)

Code:

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
 Main() ' appel de la sub
 
    Sub Main()
        Dim  WScript, wshShell
        Set WScript = CreateObject("WScript.Shell")
        Dim objWMIService, strQuery, colItems, Path, strMembers, strComputerName
        Set wshShell = CreateObject("WScript.Shell")
        strComputerName = wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
        Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        strQuery = "select * from Win32_GroupUser where GroupComponent = " & Chr(34) & "Win32_Group.Domain='" & strComputerName & "',Name='Administrateurs'" & Chr(34)
        Set colItems = objWMIService.ExecQuery(strQuery)
        strMembers = ""
        For Each Path In colItems
            MsgBox Path.PartComponent
            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
            MsgBox strMemberName
           ' DateMDP = strMemberName.PwdLastSet
            MsgBox strMemberName, DateMDP
        Next
    End Sub

Ligne 24 du code que je propose provoque la même erreur que toi, en effet strMemberName n'est pas un objet, donc il n'a n'y méthode ni attribut donc on ne peu pas invoqué PwdLastSet.

22/06/2022, 18h02
jerome71300

Bonjour,

Du coup, il n'y a pas de solution en VBS ?
29/06/2022, 05h48
jerome71300

Bonjour,

Je me permets de relancer car je bloque toujours.