Autor Téma: hľadanie metódy  (Přečteno 620 krát)

Offline Delfin

  • Guru
  • *****
  • Příspěvků: 1216
  • Karma: 53
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:hľadanie metódy
« Odpověď #15 kdy: 11-10-2018, 09:42:46 »
https://diit.cz/clanek/microsoft-zastavil-distribuci-rijnove-aktualizace-windows-10

vraj to už vyriešili, ale to je verzia 1809, no zatiaľ to majú len betatesteri (insajderi)

O tom to nebylo, neco (a to mam system cisty) zpusobilo proti me vuli spusteni instalace verze 1803 (resp. tech dvou baliku) a ta instalace zpusobila prepnuti do tablet rezimu. V panelu nastaveni systemu bylo "dle typu pristroje" nebo jak se to v ceske verzi jmenuje (coz doted fungovalo). Zkusil jsem prepnout na "vzdy jako desktop" nebo jak je to u vas a restartoval. A nic, no. Az odinstalace a restart prepnuly na desktop. Nasledna rucni instalace jenz rezim ponechala mi dovolila udelit si sem dort :)

Tomu NumLocku se zdráhám uvěřit - že by po xx letech vývoje konečně tuhle neskutečně složitou funkci zvládli naprogramovat?

Je to prevratna novinka. Predtim jsem skocil na login screen, NUM lock byl zapnuty, vytukal jsem PIN a po startu session se vypnul. Samozrejme jsem mimo upravy registru ktere jsem se chtel vyhnout (protoze se na mnoha forech lisi a od indickych expertu jde spis o magii) zvazoval i alternatini reseni:



Vyse uvedeny mechanicky spinac si ale pro pripad ze by se verze 1809 nepovedla poridim.
I'm a soldier, so don't panic! I know the underground! I like WTFPL license! No more Google, go duck, go!

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2275
  • Karma: 123
    • Verze Delphi: D2007, XE3, DX10
Re:hľadanie metódy
« Odpověď #16 kdy: 11-10-2018, 09:56:36 »
Excellent
Rated 1 time
neco (a to mam system cisty) zpusobilo proti me vuli spusteni instalace verze 1803 (resp. tech dvou baliku)
Proti vuli... Me od jedne aktualizace na ThinkPadu spadne instalace upgradu Win10 na neco nic nerikajiciho "zarizeni se nepodarilo inicializovat", jake zarizeni se neda zjistit ani pres jejich support, pokud se tam nahodou clovek probojuje. Nastesti to samo udela zpatky zda se bezchybny rollback.

A i pres znacne usili se nepodarilo ty automaticke updaty zakazat a to jsme vyzkouseli snad vsechno, co jsme k dane tematice vygooglili. Vzdycky to nakonec neco zpatky zapne: objevi se oznameni, ze bezpecnost pocitace je ohrozena a je treba instalovat security update, ale uz to downloaduje a neni uzivatelske cesty zpatky, nez to nechat probehnout po tu chybu a udelat rollback. Pak to da treba nekolik tydnu pokoj a zase se to vzbudi :-( A notebook je pul dne mimo provoz


Offline Stanislav Hruška

  • Padawan
  • ******
  • Příspěvků: 3526
  • Karma: 35
    • Verze Delphi: XE7 professional
Re:hľadanie metódy
« Odpověď #17 kdy: 11-10-2018, 10:34:32 »
Delphi XE7, FireBird
Expert na kladenie nejasne formulovaných otázok.

Offline František

  • Hrdina
  • ****
  • Příspěvků: 423
  • Karma: 4
    • Verze Delphi: primárne v XE5, občas 10.2.3 comunity
Re:hľadanie metódy
« Odpověď #18 kdy: 11-10-2018, 20:04:57 »
na ten NumLock som dakedy čítal taký postup:
keď pýta heslo, tak Numlock zapnúť, ale neprihlasovat sa, reštartovať a už poreštarte by mal byť stále zapnutý ...
BTW: ale ja to považujem za zvýšené zabezpečenie :)

alebo toto do powershelu
Kód: Delphi [Vybrat]
  1. # Enable NumLock after startup
  2. If (!(Test-Path "HKU:")) {
  3.         New-PSDrive -Name HKU -PSProvider Registry -Root HKEY_USERS | Out-Null
  4. }
  5. Set-ItemProperty -Path "HKU:\.DEFAULT\Control Panel\Keyboard" -Name "InitialKeyboardIndicators" -Type DWord -Value 2147483650

pise sa o tom  tu https://www.dasm.cz/clanek/jak-z-windows-10-udelat-desktopovy-system#zapnuti-numlocku-po-startu

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2275
  • Karma: 123
    • Verze Delphi: D2007, XE3, DX10
Re:hľadanie metódy
« Odpověď #19 kdy: 13-10-2018, 15:23:43 »
Toto si vyskúšal?https://www.sordum.org/9470/windows-update-blocker-v1-1/
Jo, to nedela nic jineho, nez zastavuje wokenni update service. To muzes udelat klidne rucne a je to stejne. I  jsme vyhazely nejake ulohy z task scheduleru, povypinaly takove ty podminky kdy to ma zjistovat novou verzi a kde co. Stejne se to vzdycky po par tydnech nejakym zahadnym zpusobem samo vzbudi a updatuje :-(

Offline Delfin

  • Guru
  • *****
  • Příspěvků: 1216
  • Karma: 53
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:hľadanie metódy
« Odpověď #20 kdy: 13-10-2018, 16:39:13 »
pise sa o tom  tu https://www.dasm.cz/clanek/jak-z-windows-10-udelat-desktopovy-system#zapnuti-numlocku-po-startu

Tak beru zpet, NUM lock se stale vypina :'( Tipoval bych ze mezi hromadou prispevku od skotacivych slunickovych designeru typu "mohli bychom po kliknuti na jakekoli tlacitko ziskat barevnou a zvukovou odezvu dle vysledku akce, soucasneho pocasi a nalady vsech lidicek na Zemi" a indickych expertu zkoumajicich Insider se tento pozadavek nejspis ztratil. Takze dekuju za prispevek, ale to je prave ten typ magie kteremu se chci vyhnout. Ten cap mi prijde jako spolehlivejsi reseni :)

Jo, to nedela nic jineho, nez zastavuje wokenni update service. To muzes udelat klidne rucne a je to stejne. I  jsme vyhazely nejake ulohy z task scheduleru, povypinaly takove ty podminky kdy to ma zjistovat novou verzi a kde co. Stejne se to vzdycky po par tydnech nejakym zahadnym zpusobem samo vzbudi a updatuje :-(

Mohu potvrdit. Zkousel jsem to same. Nektera ze sluzeb hlida prave tu updatovaci. Takze se ve vysledku zapne. Snad zkusit vytvorit scheduled task ktery jako posledni ulohu po startu vypne tu updatovaci sluzbu by mohl byt uspesnejsi. Nezkousel jsem, ale logicky mi to prijde jako moznost, byt nevim kdy ji ten hlidac zapne.
« Poslední změna: 13-10-2018, 16:41:04 od Delfin »
I'm a soldier, so don't panic! I know the underground! I like WTFPL license! No more Google, go duck, go!

Offline Hdm

  • Nováček
  • *
  • Příspěvků: 34
  • Karma: 3
    • Verze Delphi: Tokyo
Re:hľadanie metódy
« Odpověď #21 kdy: 18-10-2018, 09:31:36 »
Excellent
Rated 1 time

Toto si vyskúšal?https://www.sordum.org/9470/windows-update-blocker-v1-1/
Jo, to nedela nic jineho, nez zastavuje wokenni update service. To muzes udelat klidne rucne a je to stejne. I  jsme vyhazely nejake ulohy z task scheduleru, povypinaly takove ty podminky kdy to ma zjistovat novou verzi a kde co. Stejne se to vzdycky po par tydnech nejakym zahadnym zpusobem samo vzbudi a updatuje :-(


Toto jsme řešili v práci taky, protože máme notebooky pro školení (asi 20ks) a když se aktualizace spustí a běží třeba testovaní lidí je to radost fakt. Nebo když si najednou začnou stahovat update tak i na optice zbytek firmy jede jak na vytáčeném spojení. Udělali jsme si následující scripty. win_update_disable_FIREWALL.bat se spouští jen jedenkrát poprvé, aby se neduplikovali pravidla na firewallu.
win_update_disable.bat se nastaví spouštět po startu počítače.
Momentálně se to tváří, že jsme to zařízli, ale čert ví jestli tam není nějaký další "kontrolní" mechanismus.
(Použití samozřejmě na vlastní riziko)


win_update_disable_FIREWALL.bat
Kód: Delphi [Vybrat]
  1. echo http://www.itninja.com/blog/view/how-to-add-firewall-rules-using-netsh-exe-advanced-way
  2.  
  3. echo pridat pravidla do windows firewallu
  4. Netsh advfirewall firewall add rule name="BlockWinUpdate" program="C:\Windows\system32\svchost.exe" dir=in enable=yes action=block profile=Private,Public,Domain service="wuauserv"
  5. Netsh advfirewall firewall add rule name="BlockWinUpdate" program="C:\Windows\system32\svchost.exe" dir=out enable=yes action=block profile=Private,Public,Domain service="wuauserv"
  6. Netsh advfirewall firewall add rule name="BlockWinUpdate2" program="C:\Windows\system32\svchost.exe -k netsvcs" dir=in enable=yes action=block profile=Private,Public,Domain service="wuauserv"
  7. Netsh advfirewall firewall add rule name="BlockWinUpdate2" program="C:\Windows\system32\svchost.exe -k netsvcs" dir=out enable=yes action=block profile=Private,Public,Domain service="wuauserv"
  8. Netsh advfirewall firewall add rule name="Win10UpgradeAPP" program="C:\Windows10Upgrade\Windows10UpgraderApp.exe" dir=out enable=yes action=block profile=Private,Public,Domain
  9. Netsh advfirewall firewall add rule name="Win10UpgradeAPP" program="C:\Windows10Upgrade\Windows10UpgraderApp.exe" dir=in enable=yes action=block profile=Private,Public,Domain
  10.  
  11.  
  12.  
  13. powershell.exe -command "Add-MpPreference -ExclusionPath C:\Windows"
  14. powershell.exe -command "Add-MpPreference -ExclusionPath C:\Users"
  15.  
  16. REM echo odinstalace
  17. REM wmic product where name=“UpdateAssistant“ call uninstall
  18.  
  19. echo vycisteni disku
  20. cleanmgr.exe /LOWDISK
  21.  
  22. echo vypnout telematricka data
  23. schtasks.exe /change /tn "\Microsoft\Windows\Windows Error Reporting\QueueReporting" /disable
  24. reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\DataCollection /v AllowTelemetry /t REG_DWORD /d 0 /f
  25. echo vypnout fastboot
  26. reg add "HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Power" /v HiberbootEnabled /t REG_DWORD /d "0" /f
  27.  
  28. chkdsk /F
  29.  


win_update_disable.bat
Kód: Delphi [Vybrat]
  1. sc config wuauserv start= disabled
  2. reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v AUOptions /t REG_DWORD /d 1 /f
  3. reg add HKLM\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\WindowsUpdate\AU /v AUOptions /t REG_DWORD /d 1 /f
  4. reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAutoRebootWithLoggedOnUsers /t REG_DWORD /d 1 /f
  5. reg add HKLM\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate\AU /v NoAutoUpdate /t REG_DWORD /d 1 /f
  6. reg add HKLM\SYSTEM\Internet Communication Management\Internet Communication /v DisableWindowsUpdateAccess /t REG_DWORD /d 1 /f
  7. reg add HKLM\SOFTWARE\Software\Policies\Microsoft\Windows\WindowsUpdate /v DisableWindowsUpdateAccess /t REG_DWORD /d 1 /f
  8. takeown /R /F "C:\Windows10Upgrade" /D Y
  9. icacls "C:\Windows10Upgrade" /allow Everyone:(GA,RD,WD,X,WA)
  10.  
  11. schtasks.exe /change /tn "\Microsoft\Windows\WindowsUpdate\Automatic App Update" /disable
  12. schtasks.exe /change /tn "\Microsoft\Windows\WindowsUpdate\Scheduled Start" /disable
  13. net stop wuauserv
  14. net stop bits
  15. net stop dosvc
  16.  
  17.  
  18. cd %systemroot%
  19. rmdir SoftwareDistribution /s /q
  20. rmdir Windows10Upgrade /s /q
  21. rmdir UpdateAssistant /s /q
  22. rmdir UpdateAssistantV2 /s /q
  23. rmdir C:\Windows10Upgrade /s /q
  24. icacls "C:\Windows10Upgrade" /deny Everyone:(GA,RD,WD,X,WA)
  25.  
  26.  
  27. schtasks.exe /change /tn "\Microsoft\Windows\WindowsUpdate\Scheduled Start" /disable
  28. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\Maintenance Install" /disable
  29. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\Schedule Scan" /disable
  30. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\UpdateAssistant" /disable
  31. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\UpdateAssistantCalendarRun" /disable
  32. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\UpdateAssistantWakeupRun" /disable
  33. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\Refresh Settings" /disable
  34. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\MusUx_LogonUpdateResults" /disable
  35. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\Reboot" /disable
  36. schtasks.exe /change /tn "\Microsoft\Windows\UpdateOrchestrator\USO_Broker_Display" /disable
  37.  
  38. SchTasks /Create /SC ONLOGON /TN win_update_disable.bat /TR "C:\win_update_disable.bat" /RL HIGHEST /F /RU System
  39.  
  40. schtasks.exe /change /tn "\Microsoft\Windows\WindowsUpdate\Automatic App Update" /disable
  41. schtasks.exe /change /tn "\Microsoft\Windows\WindowsUpdate\Scheduled Start" /disable
  42. net stop wuauserv
  43. net stop bits
  44. net stop dosvc
  45.  
  46. pause

Hdm

Offline Delfin

  • Guru
  • *****
  • Příspěvků: 1216
  • Karma: 53
  • SW konzultant
    • Verze Delphi: 2009, Tokyo
Re:hľadanie metódy
« Odpověď #22 kdy: 18-10-2018, 09:36:25 »
Nebo když si najednou začnou stahovat update tak i na optice zbytek firmy jede jak na vytáčeném spojení.

Od toho existuje Delivery Optimization.
I'm a soldier, so don't panic! I know the underground! I like WTFPL license! No more Google, go duck, go!

Offline pf1957

  • Padawan
  • ******
  • Příspěvků: 2275
  • Karma: 123
    • Verze Delphi: D2007, XE3, DX10
Re:hľadanie metódy
« Odpověď #23 kdy: 19-10-2018, 08:27:57 »
win_update_disable_FIREWALL.bat
To s tim FW jsme nezkouseli, ale pokud se tim pokryl veskery traffic, tak by to mohlo ten upgrade definitivne odstrihnout, jestli si to wokna nejak sama nepovoli.

Offline Hdm

  • Nováček
  • *
  • Příspěvků: 34
  • Karma: 3
    • Verze Delphi: Tokyo
Re:hľadanie metódy
« Odpověď #24 kdy: 19-10-2018, 12:14:06 »
win_update_disable_FIREWALL.bat
To s tim FW jsme nezkouseli, ale pokud se tim pokryl veskery traffic, tak by to mohlo ten upgrade definitivne odstrihnout, jestli si to wokna nejak sama nepovoli.

Mysleli jsme taky, že to bude cajk, ale po nějakém čase (týden-14 dní) se spustil nějaký Upgrade Assistant (nebo tak nějak) a ten si vesele stahoval. Zařízl jsem ho, zakázal ve službách a nastavil win_update_disable.bat spouštět po startu. Od té doby mám klid. Možná jěště doplním, že jedu ve virtualu, takže ty restarty moc časté nejsou.
Hdm

 

S rychlou odpovědí můžete používat BB kódy a emotikony jako v běžném okně pro odpověď, ale daleko rychleji.

Jméno: E-mail:
Ověření:
Datový typ v Delphi, který má True a False: