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ů
Elite Level 12
Elite Level 12
Příspěvky: 17345
Registrován: březen 10
Pohlaví: Muž

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

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.
Nemáte oprávnění prohlížet přiložené soubory.


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: 885
Registrován: září 11
Pohlaví: Muž

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!__ | YouTube/SU93CZ 500px.com

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: 8749
Registrován: srpen 08
Bydliště: Brno
Pohlaví: Muž

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#, LESS, TypeScript
PhpStorm, Docker, WinSCP, Opera browser, Windows 10
Xiaomi 3S (RAM 2GB, CZ LTE)
Raspberry PI 3 (KODI, Raspbian)

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

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 i5-4460 + Noctua NH-D14
MB - MSI H87-G43 GAMING
RAM - Kingston HyperX Fury Black 2x4GB DDR3 1866
GPU - Gigabyte R9 270X Windforce 3X
PSU - CORSAIR VX550W
CASE - Zalman Z11 Plus + Enermax UCTB14P, 140 mm x2

Prodám Zalman Z11+

Uživatelský avatar
ITCrowd
Tvůrce článků
Elite Level 12
Elite Level 12
Příspěvky: 17345
Registrován: březen 10
Pohlaví: Muž

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: 39978
Registrován: únor 12
Pohlaví: Muž

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ů
Elite Level 12
Elite Level 12
Příspěvky: 17345
Registrován: březen 10
Pohlaví: Muž

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: 1722
Registrován: srpen 13
Pohlaví: Muž

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: 8749
Registrován: srpen 08
Bydliště: Brno
Pohlaví: Muž

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#, LESS, TypeScript
PhpStorm, Docker, WinSCP, Opera browser, Windows 10
Xiaomi 3S (RAM 2GB, CZ LTE)
Raspberry PI 3 (KODI, Raspbian)

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

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ů
Elite Level 12
Elite Level 12
Příspěvky: 17345
Registrován: březen 10
Pohlaví: Muž

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
  • Router a sledování provozu na wifi
    od shockwave » 01 úno 2019 09:54 » v Administrace sítě
    7
    1846
    od ITCrowd
    01 úno 2019 21:07
  • PC pro rodiče
    od r0m8n » 27 čer 2019 21:49 » v Rady s výběrem hardwaru a sestavením PC
    17
    930
    od r0m8n
    12 črc 2019 12:55
  • Notebook pro rodiče do 8000
    od vanaondrej10 » 07 bře 2019 19:49 » v Rady s výběrem hardwaru a sestavením PC
    8
    617
    od petr22
    08 bře 2019 16:03
  • Levný PC pro rodiče - sledování filmů
    od stieglitz » 07 srp 2019 15:07 » v Rady s výběrem hardwaru a sestavením PC
    8
    414
    od petr22
    07 srp 2019 16:23
  • Něco na cestování? Tablet vs. 2v1
    od panjaan » 15 kvě 2019 22:57 » v Rady s výběrem hardwaru a sestavením PC
    2
    407
    od gusgus
    16 kvě 2019 20:44

Zpět na “Windows 10, 8, 7, Vista, XP…”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot], Google Adsense [Bot] a 14 hostů