VBA/VBS

Następną koniecznością w firmie było stworzenie narzędzia, przy pomocy którego możliwe było skopiowanie konkretnego katalogu zawierającego ustawienia maszyn. Tym samym zabezpieczyliśmy się na wypadek uszkodzenia dysku komputera przed utratą ważnych ustawień maszyny. 1) Sprawdzenie włączonych maszyn oraz utworzenie katalogów przechowujących backup. Poniższa funkcja sprawdza, która maszyna jest włączona oraz na dysku przeznaczonym na backup tworzony … Dowiedz się więcej

Ostatnimi czasy w firmie musiałem pobawić się nieco w programistę, aby ułatwić sobie życie oraz ograniczyć stratę czasu na powtarzające się czynności. Na maszynach produkcyjnych mamy kilkanaście komputerów sterujących ich pracą. Codziennie pojawiają się na nich dziesiątki plików w których znajdują się informacje techniczne potrzebne do produkcji okien. Aby zaoszczędzić sobie spacerów po hali stworzyłem … Dowiedz się więcej

Na potrzeby firmy musiałem napisać makro, które po uruchomieniu zostałoby automatycznie wykonane. Wiedziałem w jaki sposób stworzyć makro, które wykona się przy pomocy skrótu klawiszowego lub też po przypisaniu makra do buttona. Jednak znalazłem sposób, przy pomocy którego makro wykona się samo. 1) Uruchamiamy Dewelopera z menu: 2) W sekcji ThisWorkbook wklejamy kod naszego makra: … Dowiedz się więcej

Czasami zachodzi potrzeba wyciągnięcia klucza zarówno z Windows jak i Office. Oczywiście można użyć programów takich jak np.: http://www.instalki.pl/programy/Download/Windows/odzyskiwanie_klucza.html. Jednak przy np. 40 stacjach, na których trzeba zainstalować taki program może być dużym utrudnieniem a na pewno jest stratą czasu. Dlatego można utworzyć skrypt z opcją dopisywania informacji do pliku i w ten sposób po krótkim … Dowiedz się więcej

Przy pomocy Win32_ możemy zebrać praktyczne wszystkie informacje o komputerze jakie są tylko możliwe.Poniższy skrypt pozwala nam na zebranie informacji ze zdalnych komputerów w naszej sieci, zarówno za pomocą nazw jak i adresów IP. Na dysku C: tworzymy 2 pliki .txt: -Computer.txt – gdzie wpisujemy listę komputerów do skanowania, jeżeli wpiszemy . (kropka) sczytamy dane … Dowiedz się więcej

Przy pomocy poleceń wbudowanych w Windows 2008 możemy w szybszy sposób zmienić pewne parametry systemu takie jak hasło dla użytkownika. W tym celu użyjemy polecenia dsquery -user oraz dsmod -user dsquery user -samid  login_użytkownika | dsmod user -pwd nowe_hasło Oczywiście pod login_użytkownika oraz nowe_hasło wpisujemy poprawne dane. Polecenie działa, my nie musimy szukać w AD … Dowiedz się więcej

Przy pomocy skryptu VBS możemy wyłączyć grupowo konta które są nieaktywne od jakiegoś czasu, lub konta takich osób które już nie pracują. 1) Blokowanie osób, które nie pracują w firmie: Do pliku users dodajemy konta, które chcemy zablokować, w pliku disabledusers mamy informacje które konta zostały zablokowane. strFile = „c:users.txt” strLogFile = „c:disabledusers.log” Const ForReading … Dowiedz się więcej

Skrypcik pokazujący jak się nazywa oraz ile pamięci (w GB) operacyjne ma maszyna na której taki skrypt uruchamiamy. strComputer = „.” Set objWMIService = GetObject(„winmgmts:” & „{impersonationLevel=impersonate}!\” & strComputer & „rootcimv2”) Set colSettings = objWMIService.ExecQuery („Select * from Win32_ComputerSystem”) For Each objComputer in colSettings  Wscript.Echo  objComputer.Name & ” ma ” & Round(((objComputer.TotalPhysicalMemory)/1073537024),2) & ” GB … Dowiedz się więcej

Skrypt umożliwiający utworzenie nowego konta lub kont w zadanej jednostce organizacyjnej. Musimy uzupełnić według własnych potrzeb zmienne określające nazwę jednostki organizacyjnej oraz nazwę konta które chcemy stworzyć. Dim objDomain, objOU, ouName, userName ’NAZWA TWORZONEJ JEDNOSTKI ORGANIZACYJNEJouName = „Studenci”’NAZWA TWORZONEGO KONTAuserName = „Student” Set objRootDSE = GetObject(„LDAP://rootDSE”)Set objDomain = GetObject(„LDAP://” & objRootDSE.Get(„defaultNamingContext”)) ’TWORZENIE JEDNOSTKI ORGANIZACYJNEJ O … Dowiedz się więcej