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 |
Partager