Archiwum za miesiąc 2019-09

Helpdesk: Sprawdzenie klucza systemu Windows 10

2019-09-17

Jeśli zgubisz klucz do systemu windows 10, to można go odzyskać przy pomocy skryptu umieszczonego poniżej. Otwórz notatnik, wklej zawartość skryptu, zapisz go pod nazwą np get-win-key.vbs. Potem po prostu kliknij na nim dwa razy i w okienku zobaczysz swój klucz produktu:

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

Set WshShell = CreateObject("WScript.Shell")

MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")) Function ConvertToKey(Key)

Const KeyOffset = 52

i = 28

Chars = "BCDFGHJKMPQRTVWXY2346789"

Cur = 0

x = 14

Cur = Cur * 256

Cur = Key(x + KeyOffset) + Cur

Key(x + KeyOffset) = (Cur \ 24) And 255

Cur = Cur Mod 24

x = x -1

Loop While x >= 0

i = i -1

KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput

If (((29 - i) Mod 6) = 0) And (i <> -1) Then

i = i -1

KeyOutput = "-" & KeyOutput

End If

Loop While i >= 0

ConvertToKey = KeyOutput

End Function

Rozwiązanie pochodzi ze strony https://www.howtogeek.com/206329/how-to-find-your-lost-windows-or-office-product-keys/ i potwierdzam że działa 🙂

Komentarze (0)

Czytaj dalej...

By Rafał Kraik in Helpdesk

Helpdesk: Sprawdzenie klucza Office 2016

2019-09-17

Kiedy masz kilka komputerów i kilka kluczy licencyjnych do Office, to łatwo się pogubić. Przyda się komenda, która potwierdzi, który klucz gdzie został użyty: Uruchom cmd.exe i wprowadź polecenie:

cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /dstatus

1	cscript "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" /dstatus

Uwaga na ścieżkę. Może być tak, że instalowałeś office 64-bitowy i wtedy w ścieżce nie powinno występować (x86). Zależnie od tego co masz na komputerze […]

Komentarze (1)

Czytaj dalej...

By Rafał Kraik in Helpdesk

SQL: Policy Based Management z alertem

2019-09-16

Policy Base Management pozwala definiować reguły, które zadbają o to, żeby konfiguracja systemu była taka jaka chcesz. Dajmy na to, że chcesz, aby wszystkie bazy danych (oprócz systemowych) miały recovery model full. Zaczynamy od zdefiniowania conditions Potrzebne będą dwa. Jeden, który sprawdza, czy RecoveryModel dla bazy jest ustawiony na Full, drugi, który sprawdza czy baza […]

Komentarze (0)

Czytaj dalej...

By Rafał Kraik in SQL