Něco pro rodiče - omezení provozu počítače Vyřešeno

Operační systémy Windows z dílny Microsoft a vše kolem nich

Moderátoři: Pic, Mods_senior

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Něco pro rodiče - omezení provozu počítače

Příspěvekod ITCrowd » 08 úno 2014 15:51

Občas se tu objevují žádosti o zrušení hesla, prolomení hesla atd., vkládané sem potrestanými potomky trpícími zjevnou zlovůlí svých rodičů :D
Tak si myslím, že je načase dát zbraň do ruky i druhé straně.
Napsal jsem sktipt ve vbs, který kontroluje každých 10 min. čas. Pokud zjistí, že hodnota času je mimo interval, zobrazí upozornění a vypne počítač.
Kód vypadá takto:

Kód: Vybrat vše

'**********************************************
'*   Skript kontroluje používání počítače     *
'*           v intervalu 10 min.              *
'*      Mimo časové limity PC vypne           *
'*                                            *
'*         Etienn@Script v. 1.0               *     
'*                                            *
'**********************************************

Dim Den, cas, cSystem, oSystem, WshNet, cName, Akce, objWMIShutDownService
WScript.Sleep 20000
Den = Weekday(Now())
'WScript.Echo Den

If Den = 7 Then Sobota
If Den = 1 Then Nedele

Do
 cas = Timevalue(Now)
 'WScript.Echo cas
 If cas > "16:00" And cas < "18:00" Then 'interval v pracovní dny
 WScript.Sleep 600000
 Else
 Hlaska
 End If
Loop
WScript.Quit

Sub Sobota
Do
 cas = Timevalue(Now)
 'WScript.Echo cas
 If cas > "10:00" And cas < "19:30" Then 'interval v sobotu
 WScript.Sleep 600000
 Else
 Hlaska
 End If
Loop
End Sub

Sub Nedele
Do
 cas = Timevalue(Now)
 'WScript.Echo cas
 If cas > "10:00" And cas < "17:30" Then 'interval v neděli
 WScript.Sleep 600000
 Else
 Hlaska
 End If
Loop
End Sub

Sub Hlaska
Dim objFuncShell, Message, Title
Message = "Použití počítače je časově omezeno. Počítač bude vypnut."
Title = "Zpráva systému"
 If IsEmpty(objFuncShell) Then Set objFuncShell = CreateObject("wscript.shell")
 objFuncShell.Popup Message, 15, Title, 16 + 4096
' Action = 1 => shutdown
' Action = 2 => restart
' Action = 0 => logoff
' Action = 8 => poweroff
' Force = Action + 4
Akce = 12
'Set WshNet = WScript.CreateObject("WScript.Network")
'cName = WshNet.ComputerName
cName = "."
Set objWMIShutDownService = GetObject("winmgmts:" & "{impersonationLevel=impersonate,(Shutdown)}!\\" & cName & "\root\cimv2")
Set cSystem = objWMIShutDownService.ExecQuery("Select * from Win32_OperatingSystem")
 For Each oSystem In cSystem
    oSystem.Win32Shutdown(Akce)
 Next
End Sub

Oznámení vypadá takto:
Hlaska.jpg
Zobrazované upozornění

Pro zprovoznění je třeba udělat následující:
- Zkopírovat text kódu do notepadu a uložit s příponou .vbs
- Uložit do složky "Po spuštění"
Hnidopichové mohou namítat, že odstranění ze složky "Po spuštění" je velice jednoduché. Proto zde zmíním ještě další způsoby jak zajistit spouštění skriptu po startu počítače.
- Můžeme využít plánovač úloh a skript spouštět jako naplánovanou úlohu po startu.
- zapsat do "profláknutého" klíče HKCU....Run
- použít mmc konzolu
Skript používám s úspěchem už nějakou dobu.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Reklama
Uživatelský avatar
Darth Vader
Level 3.5
Level 3.5
Příspěvky: 887
Registrován: září 11
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod Darth Vader » 08 úno 2014 15:56

Dobrý. Teď to ještě dát v samorozbalováku na Uložto jako Fraps Pro.
„Vždycky než něco udělám, ptám se sám sebe: Udělal by tohle idiot? A když ano, nedělám to.” -Dwight Schrute
__It's time to #switch!__ |

guest
Pohlaví: Nespecifikováno

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod guest » 08 úno 2014 16:12

Dobré! :thumbup: Rodiče jsou zde asi v menšině.

Uživatelský avatar
CZechBoY
Master Level 9.5
Master Level 9.5
Příspěvky: 8813
Registrován: srpen 08
Bydliště: Brno
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod CZechBoY » 08 úno 2014 16:27

Vim, že ve Windows serveru je možnost omezit přihlášení na určitou dobu. Nešlo by tohle taky nějak použít v obyč widlích?
PHP, Nette, MySQL, C#, TypeScript, Python
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW

Uživatelský avatar
Simroth
Level 5
Level 5
Příspěvky: 2090
Registrován: únor 13
Bydliště: Ostrov
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod Simroth » 08 úno 2014 16:31

V rodičovské kontrole jde nastavit to samé :-D :-D :-D :-D
CPU - Intel Core i7-9700K + Noctua NH-D14
MB - MSI MPG Z390 GAMING PRO CARBON
RAM - HyperX 16GB KIT DDR4 3200MHz
GPU - GeForce GTX 1070 GAMING X 8G
PSU - EVGA 650 GQ Power Supply
CASE - Fractal Design Define C TG

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod ITCrowd » 08 úno 2014 17:25

Skript pochopitelně funguje i v systémech, které rodičovskou kontrolu nemají. Např. WinXP. Překvapení! :lol: :lol: :lol:
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

petr22
Guru Level 15
Guru Level 15
Příspěvky: 53531
Registrován: únor 12
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod petr22 » 08 úno 2014 17:37

Neco podobneho skusil kolega na 15leteho syna.

Kdyz se poprve objevila hlaska, prohlasil ze VBS ve skole uz brali a sestrelil v taskmanageru vbs.exe a bylo po skriptu.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod ITCrowd » 08 úno 2014 17:53

vbs.exe se v taskmanageru nevyskytuje. Kromě toho lze skript "zakomponovat" přímo do systému pomocí konzoly a klidně jej lze spustit např. se systémovými právy. Pak ho v taskmanageru nesestreli.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router

Uživatelský avatar
SamerLP
Level 4.5
Level 4.5
Příspěvky: 1743
Registrován: srpen 13
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod SamerLP » 08 úno 2014 17:59

:D hned použijem keď budem mať vlastné deti :D

Uživatelský avatar
CZechBoY
Master Level 9.5
Master Level 9.5
Příspěvky: 8813
Registrován: srpen 08
Bydliště: Brno
Pohlaví: Muž
Stav:
Offline
Kontakt:

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod CZechBoY » 08 úno 2014 19:48

shutdown -a nejede?
PHP, Nette, MySQL, C#, TypeScript, Python
IntelliJ Idea, Docker, Opera browser, Linux Mint
iPhone XS
Raspberry PI 3 (KODI, Raspbian)
XBox One S, PS 4, nVidia GeForce NOW

petr22
Guru Level 15
Guru Level 15
Příspěvky: 53531
Registrován: únor 12
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod petr22 » 08 úno 2014 20:02

Shutdown -a nejde, protoze ve chvili kdy se zobrazi hlaska jeste zadny nenastal a pak uz je pozde.

Funguje ale sestreleni vbs.exe, stejne jako s jakymkoliv jinym vbs skriptem, ktery bezi na pozadi.

Uživatelský avatar
ITCrowd
Tvůrce článků
Guru Level 13.5
Guru Level 13.5
Příspěvky: 23591
Registrován: březen 10
Pohlaví: Muž
Stav:
Offline

Re: Něco pro rodiče - omezení provozu počítače

Příspěvekod ITCrowd » 08 úno 2014 20:14

Petr - už jsem na to odpovídal. Jestliže při běhu skriptu najdeš někde v procesech vbs.exe automaticky vyhráváš a stáváš se blábolem roku.
Zkusili jste to vypnout a zapnout? Problémy řeším pouze v tématech. Do SZ mi proto píšete zbytečně.
Základní diagnostika WiFi Jak na diagnostiku sítě Router jako switch Proč je nesmysl chtít router s velkým dosahem Vybíráme router


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • PC pro rodiče 10k bez OS Příloha(y)
    od metropolisCZ » 16 bře 2024 18:32 » v Rady s výběrem hw a sestavením PC
    5
    460
    od Zivan Zobrazit poslední příspěvek
    18 bře 2024 07:17
  • Upgrade CPU + něco dalšího?
    od extrem » 22 zář 2023 18:18 » v Rady s výběrem hw a sestavením PC
    16
    2273
    od extrem Zobrazit poslední příspěvek
    25 zář 2023 18:59
  • Upgrade počítače Příloha(y)
    od davez2 » 26 lis 2023 11:51 » v Rady s výběrem hw a sestavením PC
    14
    1785
    od BL!zZard Zobrazit poslední příspěvek
    29 lis 2023 16:16
  • Zapnutí počítače Příloha(y)
    od Bayani » 02 pro 2023 21:07 » v Problémy s hardwarem
    1
    680
    od petr22 Zobrazit poslední příspěvek
    02 pro 2023 21:15
  • Zamrznutí počítače
    od Balkany123 » 17 črc 2023 13:48 » v BSOD (Blue Screen Of Death)
    4
    2038
    od mmmartin Zobrazit poslední příspěvek
    17 črc 2023 19:35

Zpět na “Windows 11, 10, 8...”

Kdo je online

Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 8 hostů