Witamy na forum PC Format Zapraszamy do REJESTRACJI


Użytkownicy przeglądający ten wątek: 1 gości

VBA excel

#1
VBA excel
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 Wesoły
 System operacyjny: windows_ten Przeglądarka: chrome
#2
RE: VBA excel
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.

Atedit: W jaki sposób masz dostep do zdalnych komputerów? Active Directory czy coś innego?
kruki92 napisał(a):Witam , przychodzę tu do Państwa dość poirytowany oraz po prostu wkurzony  problem polega na tym, że mam b dobry net upc kablówke  centrum Warszawy żadna radiówa za 20 zł bo jest to 150 mb troche za niego płacę
 System operacyjny: windows_ten Przeglądarka: chrome
#3
RE: VBA excel
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
 System operacyjny: windows_ten Przeglądarka: chrome
#4
RE: VBA excel
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.Oczko
kruki92 napisał(a):Witam , przychodzę tu do Państwa dość poirytowany oraz po prostu wkurzony  problem polega na tym, że mam b dobry net upc kablówke  centrum Warszawy żadna radiówa za 20 zł bo jest to 150 mb troche za niego płacę
 System operacyjny: windows_ten Przeglądarka: chrome
#5
RE: VBA excel
Dzięki za podpowiedz, to szukam co ciekawego google wyrzuci
 System operacyjny: windows_ten Przeglądarka: chrome
#6
RE: VBA excel
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  :D
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
 System operacyjny: windows_ten Przeglądarka: chrome
#7
RE: VBA excel
Spróbuj skorzystać z tej funkcji. Na razie kombinuj w power shellu, a potem dopiero przenieś to do VBA.Oczko https://docs.microsoft.com/en-us/windows...pwdlastset
kruki92 napisał(a):Witam , przychodzę tu do Państwa dość poirytowany oraz po prostu wkurzony  problem polega na tym, że mam b dobry net upc kablówke  centrum Warszawy żadna radiówa za 20 zł bo jest to 150 mb troche za niego płacę
 System operacyjny: windows_ten Przeglądarka: chrome
Programy: Polecane / Nowe / Inne




Podobne wątki (VBA excel)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 5045 18.06.2019, 21:36
Ostatni post: fugaz
  Sumowanie licz excel - problem OxyGenE 2 10589 19.12.2018, 16:29
Ostatni post: Szachista
  C# pierwsza pusta komórka Excel DonCorleone 0 8417 21.09.2018, 16:58
Ostatni post: DonCorleone

Skocz do:


Wybrane wątki (VBA excel)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Transfer plików via FTP Visual Basic FireBytes 3 5041 15.08.2019 07:41
Ostatni post: Szachista
  Menu wysuwane z boku patryk67 1 3449 07.08.2019 12:43
Ostatni post: aht
  Visual Basic Excel l.całkowitą przedstawić w postaci szesnastkowej fugaz 4 5045 18.06.2019 21:36
Ostatni post: fugaz
  Nauka do Olimpiady Informatycznej? piotr0905 1 4988 08.06.2019 16:50
Ostatni post: wlisik
Ściana Prosta gra w Builder C++ Kiranek1 1 4928 31.05.2019 15:20
Ostatni post: Szachista
  Menu (Nie widoczne długie opisy) wanhelsing 5 6714 28.04.2019 19:31
Ostatni post: koneton
  Skrypt usuwający pliki sylwiaa1 2 2971 28.04.2019 15:20
Ostatni post: sylwiaa1
  Środowisko do assemblera Physicist 4 6352 21.04.2019 14:04
Ostatni post: Ajgor
  C++ - sens pogłębiania nauki gbr 5 7154 25.03.2019 12:53
Ostatni post: koneton
  Klasa wewnętrzna w C++ Physicist 4 6841 23.03.2019 18:28
Ostatni post: Physicist
  Ruby on Rails - tutoriale luciussulla 0 6007 23.03.2019 16:49
Ostatni post: luciussulla
Big Grin Czy dostane sie technikum informatycznego klaudiusz20046 6 9102 21.03.2019 01:28
Ostatni post: UnableToSee
  [C#] Program do moderacji czatów gier wiktrom12 0 6392 07.03.2019 15:33
Ostatni post: wiktrom12
  Mój pierwszy projekt - Pomoc rafal12999 1 6889 07.02.2019 22:01
Ostatni post: Szachista
  pomoc projekt scilab piesel18 2 8234 04.02.2019 09:03
Ostatni post: piesel18