x

Serwis finansowy

piątek, 18 października 2019

Jak uruchomić ping dla kilku komputerów w pętli w jednym oknie cmd line?


- tworzymy plik tekstowy
- wpisujemy kod:

:start
ping /n 3  10.1.0.1
ping /n 3  10.1.0.2
ping /n 3  10.1.0.3
goto start
- zapisujemy zmiany i zmieniamy rozszerzenie pliku z .txt na .bat.
- uruchamiamy plik i cieszymy się brakiem drukarek


Jak sprawdzić kto oprócz mnie jest zalogowany na komputerze?

Start > Uruchom > taskmgr.exe > explorer.exe > sprawdzam ilość wystąpień i nazwę użytkownika

Jak zmienić ustawienia DNS komendą powershell?



Get-NetIPConfiguration

Set-DnsClientServerAddress -InterfaceIndex 12 -ServerAddresses 10.1.1.1, 10.1.1.2, 10.1.1.3

czwartek, 17 października 2019

W jaki sposób sprawdzić ilość aktualnie dostepnych komputerow w sieci LAN?

1. Klikamy Start -> Uruchom -> CMD
2. Wpisujemy arp -a

Jak połączyć pliki excela .xlsx w folderze w jeden?

Menu Excel na karcie Dane klikamy Pobierz dane > Z pliku > Z folderu. Jeśli nie widzisz przycisku Pobierz dane, kliknij pozycję Nowe zapytanie > Z pliku > Z folderu
Przeglądaj > wybierz opcję Połącz i załaduj.

środa, 16 października 2019

Jak uzyskać raport ustawień i wersji firmware macierzy Netapp

Raporty ustawień i wersji firmware macierzy Netapp uzyskujemy bezpośrednio ze środowiska GUI:

- informacja o wersji firmware (Support -> Support Resources -> Software and Firmware Inventory)
- konfiguracja macierzy (Settings -> System -> Save Storage Array Configuration)

Jak podzielić skoroszyt na arkusze w oddzielnych plikach .xlsx?

Otwórz Edytor Visual Basic używająć skrótu klawiaturowego lewy Alt + F11. Z menu Insert wybierz polecenie Module i wpisz kod makra:


Sub Kopiowanie_arkuszy()
  Dim sht As Worksheet, path As String
    Application.ScreenUpdating = False
        path = ActiveWorkbook.path & "\"
        For Each sht In ActiveWorkbook.Worksheets
            sht.Copy
            ActiveWorkbook.SaveAs Filename:=path & sht.Name & ".xlsx", _
            FileFormat:=xlOpenXMLWorkbook
        Next sht
    Application.ScreenUpdating = True
End Sub