'ÀÎÅͳÝ, ÄÄÇ»ÅÍ »ç¿ëÁ¦ÇÑ ½ºÅ©¸³Æ®, ÃÖÁ¾¼öÁ¤ 2006/8/6 'ÄÄÇ»Å͸¦ Àß ¾ËÁö ¸øÇÏ´Â À¯ÀúµéÀ» ´ë»óÀ¸·Î ÀÎÅͳݰú ÄÄÇ»ÅÍ »ç¿ëÀ» Á¦ÇÑÇϱâ À§ÇÑ ½ºÅ©¸³Æ®ÀÔ´Ï´Ù. '»ç¿ë½Ã ¹ß»ýÇÏ´Â ¸ðµç ¹®Á¦´Â »ç¿ëÀÚ Àڽſ¡°Ô ÀÖ½À´Ï´Ù. ÃæºÐÈ÷ Å×½ºÆ®¸¦ ÇÑ ÈÄ »ç¿ëÇϽñæ. '´Ù¸¥ ±â´ÉÀº setcontrols.vbs ÆÄÀÏÀÇ ¹Ù·Î°¡±â¸¦ ¸¸µç ÈÄ µî·ÏÁ¤º¸¿¡¼­ .vbs ÈÄ ¿É¼ÇÀ» ÁÖ¾î ½ÇÇàÇÕ´Ï´Ù. 'ÀÎÅÍ³Ý ³²Àº ½Ã°£ º¸±â: setcontrols.vbs leftnet 'ÄÄÇ»ÅÍ ³²Àº ½Ã°£ º¸±â: setcontrols.vbs leftcom '¸ðµç Á¦ÇÑ Çã¿ëÇÏ°í ÁßÁö: setcontrols.vbs (¼³Á¤ÇÑ adminpass) '¾ðÀνºÅç: setcontrols.vbs uninst '°ü¸®Á¦ÇÑ: setcontrols.vbs admrestrict (cmd¿Í reg, ·¹Áö½ºÆ®¸®ÆíÁý±â, ÀÛ¾÷°ü¸®ÀÚ »ç¿ëÀ» Á¦ÇÑ. ´Ù½Ã ·Î±×ÀÎÇØ¾ß Àû¿ëµÊ) '°ü¸®Á¦ÇÑÇØÁ¦: setcontrols.vbs admallow 'Á¦°¡ º£ÀÌÁ÷À» Àß ¸ð¸£°í ¸¶±¸ÀâÀÌ·Î ¸¸µç °ÍÀ̶ó Äڵ尡 ÀÌ»óÇصµ ±×·¯·Á´Ï ÇϽñæ;; 'vbscript¸¦ ¸ð¸£½Ã´õ¶óµµ ¼öÁ¤Çϼż­ ¾²½Ç ¼ö ÀÖ°Ô ÁÖ¼®À» ´Þ¾Ò½À´Ï´Ù. 'ÀÌ ½ºÅ©¸³Æ®´Â win9x¿¡¼­´Â µ¿ÀÛÇÏÁö ¾Ê½À´Ï´Ù. 'win2000¿¡ shutdown.exe°¡ ¾ø´Â °É·Î ±â¾ïÇϴµ¥¿ä. 'ÀÎÅͳÝÀ̳ª ´Ù¿î·Îµå ¹Þ°Å³ª xp¿¡¼­ °¡Á®¿Í¼­ winnt\system32¿¡ ³Ö¾îÁÖ¼¼¿ä. ' ¿É¼Ç++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 'ÇÏ·ç ÀÎÅÍ³Ý Á¦ÇÑ ½Ã°£(ºÐ) limitoftime_net = 1440 'ÇÏ·ç ÄÄÇ»ÅÍ Á¦ÇÑ ½Ã°£(ºÐ) limitoftime_com = 1440 'üũÅÒ(ºÐ), ie±â¹ÝÀÌ ¾Æ´Ñ ºê¶ó¿ìÁ®ÀÇ °æ¿ì üũÅÒ ÁÖ±â·Î °­Á¦ Á¾·áÇÕ´Ï´Ù. checkterm = 5 'ÄÄÇ»ÅÍ ±ÝÁö½Ãų½Ã Àû¿ëÇÒ ¹æ½Ä, 0Àº ½Ã½ºÅÛ°­Á¦Á¾·á, 1Àº üũÅÒ ¸¶´Ù È­¸éÀá±×±â combantype = 1 'ÄÄÇ»ÅÍ °­Á¦ Á¾·á½Ã, ÀÎÅÍ³Ý ±ÝÁö½Ã ÁßÁö½Ãų ¶§ ¾ÏÈ£ adminpass = "¾Æ³ªÄá" 'ÀÎÅͳݻç¿ë Çã¿ë½Ã°£¿µ¿ª ¼³Á¤, 1Àº Çã¿ë 0Àº ±ÝÁö dim timezone_net(24) timezone_net(0)=1 timezone_net(1)=1 timezone_net(2)=1 timezone_net(3)=1 timezone_net(4)=1 timezone_net(5)=1 timezone_net(6)=1 timezone_net(7)=1 timezone_net(8)=1 timezone_net(9)=1 timezone_net(10)=1 timezone_net(11)=1 timezone_net(12)=1 timezone_net(13)=1 timezone_net(14)=1 timezone_net(15)=1 timezone_net(16)=1 timezone_net(17)=1 timezone_net(18)=1 timezone_net(19)=1 timezone_net(20)=1 timezone_net(21)=1 timezone_net(22)=1 timezone_net(23)=1 'ÄÄÇ»ÅÍ¿ë Çã¿ë½Ã°£¿µ¿ª ¼³Á¤, 1Àº Çã¿ë 0Àº ±ÝÁö dim timezone_com(24) timezone_com(0)=1 timezone_com(1)=1 timezone_com(2)=1 timezone_com(3)=1 timezone_com(4)=1 timezone_com(5)=1 timezone_com(6)=1 timezone_com(7)=1 timezone_com(8)=1 timezone_com(9)=1 timezone_com(10)=1 timezone_com(11)=1 timezone_com(12)=1 timezone_com(13)=1 timezone_com(14)=1 timezone_com(15)=1 timezone_com(16)=1 timezone_com(17)=1 timezone_com(18)=1 timezone_com(19)=1 timezone_com(20)=1 timezone_com(21)=1 timezone_com(22)=1 timezone_com(23)=1 '¸ð´ÏÅ͸µÇÒ ÇÁ·Î±×·¥, ½ÇÇà ÁßÀÎÁö ¾Æ´ÑÁö¸¦ °Ë»çÇÏ¿© ½Ã°£À» Â÷°¨ÇÕ´Ï´Ù. 'ÀÎÅÍ³Ý Á¦ÇÑÀÌ Àû¿ëµÇ¾úÀ»½Ã ie±â¹ÝÀº ³»¿ë°ü¸®ÀÚ°¡ ÀÎÅͳÝÀ» ±ÝÁöÇÏ°í 'firefox°°Àº ºê¶ó¿ìÁ®´Â üũÅÒ¸¶´Ù °­Á¦ Á¾·á½Ãŵ´Ï´Ù. '¹®Á¦´Â iexplorer2.exe·Î À̸§À» ¹Ù²ã¼­ ½ÇÇàÇعö¸®¸é ½Ã°£ÀÌ Â÷°¨µÇÁö ¾Ê°Ô µË´Ï´Ù;;; '¶Ç explorer.exe³ª hta, ´Ù¸¥ ¾îÇ÷Π½ÇÇàÇصµ ±×³É ÀÎÅͳÝÀÌ µË´Ï´Ù;;; dim banprocess(20) banprocess(0)="iexplore.exe" banprocess(1)="webma.exe" banprocess(2)="maxthon.exe" banprocess(3)="jwBrowser.exe" banprocess(4)="jwBrowsermini.exe" banprocess(5)="firefox.exe" banprocess(6)="netscape.exe" banprocess(7)="aaa.exe" banprocess(8)="aaa.exe" banprocess(9)="aaa.exe" banprocess(10)="aaa.exe" banprocess(11)="aaa.exe" banprocess(12)="aaa.exe" banprocess(13)="aaa.exe" banprocess(14)="aaa.exe" banprocess(15)="aaa.exe" banprocess(16)="aaa.exe" banprocess(17)="aaa.exe" banprocess(18)="aaa.exe" banprocess(19)="aaa.exe" ' ¿É¼Ç++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ '¾Æ·¡ºÎÅÍ´Â ¼öÁ¤ÇÏÁö ¾ÊÀ¸¼Åµµ µË´Ï´Ù. set wshshell = createobject("wscript.shell") '¿¡·¯°¡ ³ªµµ ½ºÅ©¸³Æ®¸¦ °è¼Ó ÁøÇà. on error resume next 'ù¹ø° Àμö¸¦ ¹ÞÀ½. arg0 = wscript.arguments(0) 'ÇöÀç ³¯Â¥, ½Ã°£, ºÐÀ» ±¸ÇÔ. c_date = datepart("d",date) c_hour = datepart("h",time) c_min = datepart("n",time) '·¹Áö½ºÆ®¸® Á¤º¸°¡ ÀúÀåµÉ À§Ä¡. regkey = "HKCU\Software\Setcontrols\" regtype = "REG_DWORD" 'ÀÎÅÍ³Ý ³²Àº ½Ã°£ üũ. if arg0 = "leftnet" then tmp = msgbox (wshshell.regread("HKCU\Software\Setcontrols\lefttime_net") & "ºÐ ³²¾Ò½À´Ï´Ù. ÇÏ·ç " & limitoftime_net & "ºÐ ÀÎÅÍ³Ý Çã¿ë ", 32, "ÀÎÅͳݻç¿ëÁ¦ÇÑ") end if 'ÄÄÇ»ÅÍ ³²Àº ½Ã°£ üũ. if arg0 = "leftcom" then tmp = msgbox (wshshell.regread("HKCU\Software\Setcontrols\lefttime_com") & "ºÐ ³²¾Ò½À´Ï´Ù. ÇÏ·ç " & limitoftime_com & "ºÐ ÄÄÇ»ÅÍ Çã¿ë ", 32, "ÄÄÇ»ÅÍ»ç¿ëÁ¦ÇÑ") end if '¸®¼Â Setcontrols ÁßÁö if arg0 = adminpass Then tmp = msgbox("»ç¿ë½Ã°£À» ¸®¼ÂÇÏ°í ÀÎÅͳÝÀ» Çã¿ëÇÏ°í Setcontrols¸¦ ÁßÁöÇϽðڽÀ´Ï±î?", 65, "Setcontrols") If tmp = 1 Then wshshell.regwrite regkey & "s_date", c_date, regtype wshshell.regwrite regkey & "lefttime_net", limitoftime_net, regtype wshshell.regwrite regkey & "lefttime_com", limitoftime_com, regtype allow () tmp = msgbox("Àû¿ëµÇ¾ú½À´Ï´Ù.", 64, "Setcontrols") killprocess("wscript.exe") End if end if '¾ðÀνºÅç if arg0 = "uninst" then tmp = msgbox("SetcontrolsÀ» Á¦°ÅÇÏ°í ¸ðµç ¼³Á¤À» µÇµ¹¸®½Ã°Ú½À´Ï±î?", 65, "Setcontrols") If tmp = 1 Then allow () admallow () wshshell.regdelete regkey wshshell.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Setcontrols" tmp = msgbox("Setcontrols°¡ Á¦°ÅµÇ¾ú½À´Ï´Ù. °ü¸®Á¦ÇÑÀº ´Ù½Ã ·Î±×ÀÎÇØ¾ß Àû¿ëµË´Ï´Ù.", 64, "Setcontrols") killprocess("wscript.exe") End if end If '°ü¸®Á¦ÇÑÇÔ if arg0 = "admrestrict" Then tmp = msgbox("°ü¸®ÀÚ Á¦ÇÑÀ» Àû¿ëÇϽðڽÀ´Ï±î?", 65, "Setcontrols") If tmp = 1 Then admrestrict () tmp = msgbox("Á¦ÇÑÀÌ Àû¿ëµÇ¾ú½À´Ï´Ù. ´Ù½Ã ·Î±×ÀÎÇϼ¼¿ä.", 64, "Setcontrols") End if end If '°ü¸®Á¦ÇÑÇØÁ¦ if arg0 = "admallow" Then tmp = msgbox("°ü¸®ÀÚ Á¦ÇÑÀ» ÇØÁ¦ÇϽðڽÀ´Ï±î?", 65, "Setcontrols") If tmp = 1 Then admallow () tmp = msgbox("Á¦ÇÑÀÌ ÇØÁ¦µÇ¾ú½À´Ï´Ù. ´Ù½Ã ·Î±×ÀÎÇϼ¼¿ä.", 64, "Setcontrols") End if end If if arg0 = "" Then 'Àμö°¡ ¾øÀ» °æ¿ì wshshell.regread(regkey & "s_date") '¼³Ä¡ µÇÁö ¾Ê¾ÒÀ» °æ¿ì ¿¡·¯°¡ ³². if hex(err)="80070002" then err.clear tmp = msgbox("ÄÄÇ»Å͸¦ Àß ¾ËÁö ¸øÇÏ´Â À¯ÀúµéÀ» ´ë»óÀ¸·Î ÀÎÅͳݰú ÄÄÇ»ÅÍ »ç¿ëÀ» Á¦ÇÑÇϱâ À§ÇÑ ½ºÅ©¸³Æ®ÀÔ´Ï´Ù.»ç¿ë½Ã ¹ß»ýÇÏ´Â ¸ðµç ¹®Á¦´Â »ç¿ëÀÚ Àڽſ¡°Ô ÀÖ½À´Ï´Ù. ÃæºÐÈ÷ Å×½ºÆ®¸¦ ÇÑ ÈÄ »ç¿ëÇϽñæ.", 48, "Setcontrols") q_install = msgbox("Setcontrols¸¦ óÀ½ ½ÇÇàÇß½À´Ï´Ù. ¿É¼ÇÀ» ¼öÁ¤ÇÏ·Á¸é Setcontrols.vbs ÆÄÀÏÀ» ¸Þ¸ðÀåÀ¸·Î ¿¬ ÈÄ ¼öÁ¤Çϼ¼¿ä. Setcontrols.vbs¸¦ ÇöÀç Æú´õ¿¡ ¼³Ä¡ÇÏ·Á¸é Yes¸¦ ´©¸£½Ã°í ¼³Ä¡ÇÏÁö ¾ÊÀ¸·Á¸é No¸¦ ´©¸£¼¼¿ä. ´Ù¸¥ Æú´õ¿¡ Setcontrols.vbs¸¦ µÎ°í ½Í´Ù¸é ÆÄÀÏÀ» ¿øÇÏ´Â Æú´õ·Î ¿Å±ä ÈÄ º» ÆÄÀÏÀ» ½ÇÇàÇÏ°í Yes¸¦ ´©¸£¼¼¿ä.", 324, "Setcontrols") if q_install = 6 then wshshell.regwrite regkey & "s_date", c_date, regtype wshshell.regwrite regkey & "lefttime_net", limitoftime_net, regtype wshshell.regwrite regkey & "lefttime_com", limitoftime_com, regtype wshshell.regwrite regkey & "forbidden_net", 0, regtype wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Run\Setcontrols", WshShell.CurrentDirectory & "\setcontrols.vbs", "REG_SZ" admrestrict () tmp = msgbox("·¹Áö½ºÆ®¸®, ÀÛ¾÷°ü¸®ÀÚ, Ä¿¸ÇµåâÀÇ ±ÝÁö´Â ´Ù½Ã ·Î±×ÀÎÇØ¾ß ¿ÏÀüÈ÷ Àû¿ëµË´Ï´Ù.", 48, "Setcontrols") else killprocess("wscript.exe") end if end if '================================================================================= '½ºÅ©¸³Æ®°¡ ½ÇÇàµÉ ¶§ ·çǪ¸¦ µµ´Â ¿µ¿ªÀÌ ½ÃÀÛµÊ. do '·¹Áö½ºÆ®¸®¿¡¼­ ³¯Â¥¿Í ±ÝÁö¿©ºÎ¸¦ ºÒ·¯¿È. s_date = int(wshshell.regread(regkey & "s_date")) forbidden_net = int(wshshell.regread(regkey & "forbidden_net")) 'ÇöÀç ½Ã°¢À» °»½Å. c_date = datepart("d",date) c_hour = datepart("h",time) c_min = datepart("n",time) '³¯Â¥°¡ ¹Ù²ð °æ¿ì ³¯Â¥¸¦ °»½ÅÇÏ°í Á¦ÇÑ ½Ã°£À» ¸®¼Â. if s_date <> c_date then wshshell.regwrite regkey & "s_date", c_date, regtype wshshell.regwrite regkey & "lefttime_net", limitoftime_net, regtype wshshell.regwrite regkey & "lefttime_com", limitoftime_com, regtype allow () wscript.sleep 3000 end if '³²Àº ½Ã°£À» ºÒ·¯¿È. lefttime_net = int(wshshell.regread(regkey & "lefttime_net")) lefttime_com = int(wshshell.regread(regkey & "lefttime_com")) 'ÇÁ·Î¼¼½º¸¦ üũÇÏ°í ½ÇÇà ÁßÀ̸é ÀÎÅÍ³Ý Á¦ÇÑ ½Ã°£À» ÁÙÀÓ. dim i for i = 0 to 19 if checkprocess (banprocess(i)) = 1 and lefttime_net > 0 and forbidden_net = 0 then lefttime_net = lefttime_net - checkterm wshshell.regwrite regkey & "lefttime_net", lefttime_net, regtype end if exit for checkprocess (banprocess(i)) = 1 ' µ¿½Ã¿¡ ¿©·¯ ÇÁ·Î±×·¥ÀÏ °æ¿ì Áߺ¹ Á¦¿Ü next 'ÄÄÇ»ÅÍ »ç¿ë½Ã°£À» ÁÙÀÓ. lefttime_com = lefttime_com - checkterm 'ÀÎÅÍ³Ý Á¦ÇÑ ½Ã°£¿µ¿ªÀÏ °æ¿ì if timezone_net(c_hour) = 0 and forbidden_net = 0 then Call tmpmsg ("ÀÎÅͳݱÝÁö½Ã°£´ë, 1ºÐ ÈÄ ÀÎÅͳÝÀÌ ±ÝÁöµË´Ï´Ù", "ÀÎÅͳݻç¿ëÁ¦ÇÑ") wscript.sleep 60000 forbid () dim j for j = 0 to 19 killprocess (banprocess(j)) next end if if forbidden_net = 1 then for j = 0 to 19 killprocess (banprocess(j)) Next end if 'ÄÄÇ»ÅÍ Á¦ÇÑ ½Ã°£ ¿µ¿ªÀÏ °æ¿ì if timezone_com(c_hour) = 0 Then If combantype = 1 Then Call tmpmsg ("ÄÄÇ»ÅͱÝÁö½Ã°£´ë, 1ºÐ ÈÄ ÄÄÇ»ÅÍ°¡ Àá±é´Ï´Ù. (" & checkterm & "ºÐ¸¶´Ù Àá±è)", "ÄÄÇ»ÅÍ»ç¿ëÁ¦ÇÑ") wscript.sleep 60000 wshshell.run "RunDll32.exe user32.dll,LockWorkStation",0 End If If combantype = 0 Then wshshell.run "shutdown.exe /s /f /t 60 /c "&""""&"ÄÄÇ»ÅͱÝÁö½Ã°£´ë"&""""&"",0 adminp = inputbox("ÄÄÇ»ÅͱÝÁö½Ã°£´ë, 1ºÐ ÈÄ ½Ã½ºÅÛÀÌ Á¾·áµË´Ï´Ù. Á¾·á¸¦ Ãë¼ÒÇÏ·Á¸é Æнº¿öµå¸¦ ÀÔ·ÂÇϼ¼¿ä.", "ÄÄÇ»ÅÍ»ç¿ëÁ¦ÇÑ",,0,0) if adminp = adminpass Then wshshell.run "shutdown.exe -a" ' °­Á¦ Á¾·á Ãë¼Ò. killprocess("wscript.exe") else tmp = msgbox("Æнº¿öµå°¡ Ʋ·È½À´Ï´Ù.", 48, "Setcontrols") End if end If end if 'ÀÎÅÍ³Ý »ç¿ë½Ã°£ ¼ÒÁøÀÏ °æ¿ì if lefttime_net <= 0 and forbidden_net = 0 Then Call tmpmsg ("ÀÎÅͳÝÇÒ´ç½Ã°£¼ÒÁø, 1ºÐ ÈÄ ÀÎÅͳÝÀÌ ±ÝÁöµË´Ï´Ù", "ÀÎÅͳݻç¿ëÁ¦ÇÑ") wscript.sleep 60000 forbid () dim k for k = 0 to 19 killprocess (banprocess(k)) next end if if forbidden_net = 1 then for j = 0 to 19 killprocess (banprocess(j)) Next end if 'ÄÄÇ»ÅÍ »ç¿ë½Ã°£ ¼ÒÁøÀÏ °æ¿ì if lefttime_com <= 0 Then If combantype = 1 Then Call tmpmsg ("ÄÄÇ»ÅÍÇÒ´ç½Ã°£¼ÒÁø, 1ºÐ ÈÄ ÄÄÇ»ÅÍ°¡ Àá±é´Ï´Ù. (" & checkterm & "ºÐ¸¶´Ù Àá±è)", "ÄÄÇ»ÅÍ»ç¿ëÁ¦ÇÑ") wscript.sleep 60000 wshshell.run "RunDll32.exe user32.dll,LockWorkStation",0 End If If combantype = 0 Then wshshell.run "shutdown.exe /s /f /t 60 /c "&""""&"ÄÄÇ»ÅÍÇÒ´ç½Ã°£¼ÒÁø"&""""&"",0 adminp = inputbox("ÄÄÇ»ÅÍÇÒ´ç½Ã°£¼ÒÁø, 1ºÐ ÈÄ ½Ã½ºÅÛÀÌ Á¾·áµË´Ï´Ù. Á¾·á¸¦ Ãë¼ÒÇÏ·Á¸é Æнº¿öµå¸¦ ÀÔ·ÂÇϼ¼¿ä.", "ÄÄÇ»ÅÍ»ç¿ëÁ¦ÇÑ",,0,0) if adminp = adminpass Then wshshell.run "shutdown.exe -a" ' °­Á¦ Á¾·á Ãë¼Ò. killprocess("wscript.exe") else tmp = msgbox("Æнº¿öµå°¡ Ʋ·È½À´Ï´Ù.", 48, "Setcontrols") end If End if end if wscript.sleep checkterm*60000 loop '================================================================================= '·çÇÁ ³¡ end if 'ÇÁ·Î¼¼½º¸¦ Á¾·áÇÔ. function killprocess (image) strcomputer = "." set objwmiservice = getobject("winmgmts:" _ & "{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2") set colprocesslist = objwmiservice.execquery _ ("select * from win32_process where name = '"& image &"'") for each objprocess in colprocesslist objprocess.terminate() next end function 'ÇÁ·Î¼¼½º°¡ ±âµ¿ ÁßÀÎÁö È®ÀÎ. function checkprocess (image) set checkprocess = getobject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & "." & "\root\cimv2") set runnigprocesslist = checkprocess.execquery _ ("select * from win32_process where name = '" & image & "'") checkprocess = runnigprocesslist.count end function 'ieÀÇ ±â´ÉÀ» ÀÌ¿ëÇÏ¿© ÀÎÅͳÝÀ» ±ÝÁö½ÃÅ´. ³»¿ë°ü¸®ÀÚ¿¡¼­ ºñ¹Ð¹øÈ£¸¦ ¹«ÀÛÀ§·Î ³ÖÀº ÈÄÀÇ ÀÌÁø°ªÀ» ¾Æ·¡¿¡¼­ Ãß°¡ÇÏ°Ô µÊ. ' Ãʱâ HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings Å°±îÁö¸¸ Á¸ÀçÇÔ. function forbid () '·¹Áö½ºÆ®¸®ÀÇ ÀÌÁø°ªÀ» ÀÓ½ÃÆÄÀÏ ¾øÀÌ Ãß°¡ÇÏ´Â ¹æ½Ä. const HKEY_LOCAL_MACHINE = &H80000002 strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings" strComputer = "." iValues = Array(&H17,&H91,&Hd7,&H3a,&H3e,&H16,&He3,&He2,&Hbe,&He0,&Hdf,&H8e,&H05,&H4b,&H61,&Ha3) Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") oReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath BinaryValueName = "key" oReg.SetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,BinaryValueName,iValues wshshell.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\FileName0", "C:\\WINDOWS\\system32\\RSACi.rat", "REG_SZ" wshshell.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\Allow_Unknowns", 0, "REG_DWORD" wshshell.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\PleaseMom", 0, "REG_DWORD" wshshell.regwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\Enabled", 1, "REG_DWORD" wshshell.regwrite regkey & "forbidden_net", 1, regtype end function 'ÀÎÅÍ³Ý »ç¿ëÀ» Çã¿ëÇÔ. °£´ÜÈ÷ ·¹Áö½ºÆ®¸®°ª¸¸ Áö¿öÁÖ¸é Á¦ÇÑÀÌ ÇØÁ¦µÊ. function allow () on error resume next wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\key" wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\FileName0" wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\Allow_Unknowns" wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\PleaseMom" wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\Enabled" wshshell.regdelete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\Ratings\.Default\" wshshell.regwrite regkey & "forbidden_net", 0, regtype end Function 'cmd¿Í reg, ·¹Áö½ºÆ®¸®ÆíÁý±â, ÀÛ¾÷°ü¸®ÀÚ »ç¿ëÀ» Á¦ÇÑ. function admrestrict () '·Î±×¿ÀÇÁ-·Î±×ÀÎÇØ¾ß Àû¿ëµÊ wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun","1", "REG_DWORD" wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun\1","cmd.exe", "REG_SZ" wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun\2","reg.exe", "REG_SZ" '¹Ù·Î Àû¿ë wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools","2", "REG_DWORD" wshshell.regwrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr","2", "REG_DWORD" wshshell.regwrite "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD","2", "REG_DWORD" end Function 'Á¦ÇÑ °ü·Ã ·¹Áö½ºÆ®¸®¸¦ Áö¿ò. ¹Ù·Î Á¦ÇÑÀÌ ÇØÁ¦µÇ´ÂÁö?? function admallow () wshshell.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\DisallowRun" wshshell.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableRegistryTools" wshshell.regdelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr" wshshell.regdelete "HKCU\Software\Policies\Microsoft\Windows\System\DisableCMD" end Function '¸Þ½ÃÁö ¹Ú½º¸¦ ¶ç¿ï °æ¿ì ½ºÅ©¸³Æ®°¡ ¸ØÃ߱⠶§¹®¿¡ ÀÓ½ÃÆÄÀÏÀ» ¸¸µé¾î ¸Þ½ÃÁö¹Ú½º ¶ç¿ò. Function tmpmsg (tmpmessage, tmptitle) dim fso, f Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.CreateTextFile("c:\msgtmp.vbs", true) f.WriteLine("tmp = msgbox("&""""&tmpmessage&""""&", 48, "&""""&tmptitle&""""&")") f.Close wshshell.run "c:\msgtmp.vbs" wscript.sleep 2000 Set f = fso.GetFile("c:\msgtmp.vbs") f.Delete End Function