VBA excel

[dmjs]

Witam

Interesuje mnie czy istnieje taka możliwość aby w arkuszu Excel przy użyciu VBA sprawdzić kiedy ostanio było zmienione hasło użytkownika na zdalnych komputerach ?

Z góry dziękuje za pomoc

[ptrick]

Jest taka możliwość, gdyż możesz za pomocą VBA odpalić chociażby skrypt w powershellu, który to sprawdzi. Wynik tego skryptu zapewne da się też przekierować do excela, pytanie czy jest sens robić to w VBA, skoro możesz to zrobić skryptem w powershellu? Oczywiście zakładamy, że masz uprawnienia do tego.

edit: W jaki sposób masz dostep do zdalnych komputerów? Active Directory czy coś innego?

[dmjs]

chce aby w exelu tworzyła się tabela z informacja kiedy było zmienione hasło dla konta lokalnego na zdalnych komputerach, dostęp w warunkach laboratoryjnych czyli stworzyłem AD i mam uprawnienia Administratora na zdalnych komputerach

[ptrick]

Z tego co na szybko przekopałem gógla, można zrobić makro, które korzysta z LDAP. Więcej musiałbyś doczytać sam, bo akurat LDAP nie używałem w VBA, ale przez to na bank będziesz mógł sprawdzić datę zmiany hasła.

[dmjs]

Dzięki za podpowiedz, to szukam co ciekawego google wyrzuci

[dmjs]

Cześć

Przy pomocy wujka Google udało mi się stworzyć takie coś (wyciąganie informacji o komputerze ) jednak nie udało mi się wyciągnąć informacji o dacie zmiany hasła użytkownika.
Chętnie bym zobaczył jakiś przykładowy kod który by rozwiązywał mój problem.

Dzięki 

Kod:

Sub informacje()

For i = 1 To lRow
Debug.Print i
addr1 = ActiveSheet.Cells(i, 1).Value 'this contains my IP/Computer Name

cmdPing = "C:\Windows\System32\PING.EXE " & addr1
Set shPing = CreateObject("Wscript.shell")
Set runPing = shPing.exec(cmdPing)
strPing = runPing.stdout.readall
ActiveSheet.Cells(i, 2).Value = strPing
Set runPing = Nothing
Set shPing = Nothing

cmdInstall = "%comspec% /c systeminfo /s " & addr1 & " | findstr /C:""Install Date"""
Set shInstall = CreateObject("Wscript.shell")
Set runInstall = shInstall.exec(cmdInstall)
strInstall = runInstall.stdout.readall
ActiveSheet.Cells(i, 3).Value = strInstall
Set runInstall = Nothing
Set shInstall = Nothing

cmdBios = "%comspec% /c systeminfo /s " & addr1 & " " & Chr(124) & " findstr /C:""BIOS Version"""
Set shBios = CreateObject("Wscript.shell")
Set runBios = shBios.exec(cmdBios)
strBios = runBios.stdout.readall
ActiveSheet.Cells(i, 4).Value = strBios
Set runBios = Nothing
Set shBios = Nothing

Next i

End Sub

[ptrick]

Spróbuj skorzystać z tej funkcji. Na razie kombinuj w power shellu, a potem dopiero przenieś to do VBA. https://docs.microsoft.com/en-us/windows...pwdlastset