一键完成服务器上的站群转移

比如你的站群放在A服务器的D:\www中 要全部转移到B服务器的F:\virtualroot中

在A服务器上的D:\www建立一个批处理1.bat内容如下:

1. @echo off
   
2. color f1
   
3. echo 正在压缩文件中
   
4. copy "C:\Program Files\WinRAR\RAR.exe" C:\WINDOWS\system32\RAR.exe
   
5. for /f %%a in (user.txt) do (
   
6.      rar a %%a\web\web.rar %%a -r
   
7.    )
   
8. echo 报告长官，任务完成！
   
9. pause
   
10. exit

复制代码

user.txt里的内容就是D:\www中的网站根目录文件夹名一行一个文件夹名.
好了所有网站都打包好了
现在来到B服务器上

在c:\建立批处理2.bat 内容如下:

1. @echo off
   
2. color f1
   
3. echo 正在创建用户中
   
4. for /f %%a in (user.txt) do (
   
5.     echo y|net user %%a a665ef9b15c2dbd0c94510a410b80f0 /add
   
6.                           net localgroup users %%a /del
   
7.                           net localgroup guests %%a /add                    
   
8.     )
   
9. echo 正在创建网站文件夹中
   
10. for /f %%a in (user.txt) do (
    
11.        cd F:\virtualroot
    
12.         mkdir %%a
    
13.    )
    
14.        cd C:\
    
15. echo 恢复ADODB.Stream中
    
16. echo Wscript.Sleep WScript.Arguments.item(0) * 1000 >sEnter.vbs
    
17. echo Set WshShell = WScript.CreateObject("WScript.Shell"^) >>sEnter.vbs
    
18. echo WshShell.Sendkeys "{Enter}" >>sEnter.vbs
    
19. echo Set WshShell = Nothing >>sEnter.vbs
    
20. start wscript //nologo sEnter.vbs 3
    
21. regsvr32 "C:\Program Files\Common Files\System\ado\msado15.dll
    
22. echo 正在下载文件中
    
23. for /f %%a in (user.txt) do (
    
24.     echo Set xPost = createObject("Microsoft.XMLHTTP"^) >%%a.vbs
    
25.     )
    
26. )
    
27. for /f %%a in (user.txt) do (
    
28.      echo xPost.Open "GET","http://%%a/web.rar",0 >>%%a.vbs
    
29.      )
    
30. )
    
31. for /f %%a in (user.txt) do (
    
32.     echo xPost.Send(^) >>%%a.vbs
    
33.       )
    
34. )
    
35. for /f %%a in (user.txt) do (
    
36.      echo Set sGet = createObject("ADODB.Stream"^) >>%%a.vbs
    
37.      )
    
38. )
    
39. for /f %%a in (user.txt) do (
    
40.    echo sGet.Mode = 3 >>%%a.vbs
    
41.     )
    
42. )
    
43. for /f %%a in (user.txt) do (
    
44.     echo sGet.Type = 1 >>%%a.vbs
    
45.     )
    
46. )
    
47. for /f %%a in (user.txt) do (
    
48.      echo sGet.Open(^) >>%%a.vbs
    
49.      )
    
50. )
    
51. for /f %%a in (user.txt) do (
    
52.      echo sGet.Write(xPost.responseBody^) >>%%a.vbs
    
53.      )
    
54. )
    
55. for /f %%a in (user.txt) do (
    
56.      echo sGet.SaveToFile "F:\virtualroot\%%a\web.rar",2 >>%%a.vbs
    
57.      )
    
58. )
    
59. for /f %%a in (user.txt) do (
    
60.      wscript %%a.vbs
    
61.      )
    
62. echo 正在解压文件中
    
63. copy "C:\Program Files\WinRAR\UnRAR.exe" C:\WINDOWS\system32\UnRAR.exe
    
64. for /f %%a in (user.txt) do (
    
65.      UnRAR x F:\virtualroot\%%a\web.rar F:\virtualroot\%%a -c -o+ -r
    
66.      )
    
67. del sEnter.vbs
    
68. for /f %%a in (user.txt) do (
    
69.    del %%a.vbs
    
70. )
    
71. echo 报告长官，任务完成！
    
72. pause
    
73. exit

复制代码

user.txt内容是你的网站群域名列表.一行一个.
执行2.bat
等完成后.你的转移工作也就大功告成了!