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
  Sumowanie licz excel - problem OxyGenE 2 6892 19.12.2018, 16:29
Ostatni post: Szachista
  C# pierwsza pusta komórka Excel DonCorleone 0 5240 21.09.2018, 16:58
Ostatni post: DonCorleone
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 7070 19.06.2018, 23:24
Ostatni post: broda99

Skocz do:


Wybrane wątki (VBA excel)
Wątek: Autor Odpowiedzi: Wyświetleń: Ostatni post
  Transfer plików via FTP Visual Basic FireBytes 1 2718 17.11.2018 21:07
Ostatni post: Szachista
  Jaki kod pod pewne zdarzenia visualbasic 2010 aktywny27 4 4661 07.11.2018 13:41
Ostatni post: Ajgor
Scared Ipad Pro programowanie? NissmoOne 4 5461 06.10.2018 12:22
Ostatni post: NissmoOne
  C# pierwsza pusta komórka Excel DonCorleone 0 5240 21.09.2018 16:58
Ostatni post: DonCorleone
  .bat nie kompresuje plików GIENTY 3 5637 06.09.2018 07:20
Ostatni post: broda99
  problem z programem .bat wiktrom12 4 6631 30.08.2018 08:25
Ostatni post: wiktrom12
  Silnik do gier ZigglerGames 1 5618 23.08.2018 09:03
Ostatni post: Szachista
  Chciałbym zrobić prosty plik exe z jedną funkcją densour 4 6293 09.08.2018 16:24
Ostatni post: Ajgor
  Który język wybrać do stworzenia aplikacji synchronizujące pliki z urządzeniem mobiln Elemental 2 2193 18.07.2018 12:05
Ostatni post: Ajgor
  Pomysł napisania programu ROM FireBytes 3 6987 28.06.2018 16:56
Ostatni post: FireBytes
  [VBA] Tworzenie nowego arkusza z danymi z TextBox'a Pioro 4 7070 19.06.2018 23:24
Ostatni post: broda99
  Potwierdzenie na maila po wysłaniu pliku coci 0 6398 13.06.2018 20:37
Ostatni post: coci
  Pieczętowanie Archiwum Jar - Po co? wanhelsing 3 7027 19.05.2018 20:55
Ostatni post: koneton
  Wyszukiwarka w spawnerze nie reaguje na polskie znaki kazik666 0 6782 16.05.2018 12:04
Ostatni post: kazik666
  BASH symulator silnika dawswi1 3 7220 13.05.2018 10:43
Ostatni post: Szachista