求解释一段生成压缩包的VBS代码

喃喃努努

有一段代码看不懂，求大神解释，好像是生成压缩包的脚本，但是具体的就不知道怎么运行的，求详解。

1. Dim cmdd
   
2. Dim da,ti, yy,dd,mm,hh
   
3. 
   
4. da=FormatDateTime(Date,2)
   
5. 'MsgBox da
   
6. ti=FormatDateTime(Time,4)
   
7. 'MsgBox ti
   
8. 
   
9. if  instr( da,"-") > 0 then
   
10.         mm=split(da,"-")(1)
    
11.         dd=split(da,"-")(2)
    
12.         yy=split(da,"-")(0)
    
13. else
    
14.         mm=split(da,"/")(0)
    
15.         dd=split(da,"/")(1)
    
16.         yy=split(da,"/")(2)
    
17. end if
    
18. 
    
19. hh=split(ti,":")(0)
    
20. 
    
21. If(mm<10)Then
    
22. cmdd=yy&"0"&mm       
    
23. Else cmdd=yy&mm       
    
24. End If
    
25. If(dd<10)Then
    
26. cmdd=cmdd&"0"&dd       
    
27. Else cmdd=cmdd&dd       
    
28. End If
    
29. cmdd=cmdd&hh&minuteM&"-F.tar"
    
30. 
    
31. 
    
32. 
    
33. 'MsgBox cmdd
    
34. 'MsgBox FormatDateTime(Date,4)
    
35. If(1) Then
    
36. set sh=WScript.CreateObject("WScript.Shell")
    
37. sh.run "C:\WINDOWS\system32\cmd.exe"
    
38. WScript.Sleep 1000
    
39. sh.SendKeys "telnet xx.xx.xx.xx"
    
40. sh.SendKeys "{ENTER}"
    
41. WScript.Sleep 1000
    
42. sh.SendKeys "prod{ENTER}"
    
43. WScript.Sleep 1000
    
44. sh.SendKeys "prod{ENTER}"
    
45. WScript.Sleep 1000
    
46. sh.SendKeys "pwd {ENTER}"
    
47. WScript.Sleep 500
    
48. sh.SendKeys "cd /xx/xxxx/xxxxx/xxxxxx {ENTER}"
    
49. WScript.Sleep 500
    
50. sh.SendKeys "ls {ENTER}"
    
51. WScript.Sleep 500
    
52. sh.SendKeys "rm -r MACTMP.exe {ENTER}"
    
53. WScript.Sleep 500
    
54. sh.SendKeys "tar -cvf "&cmdd&" *{ENTER}"
    
55. WScript.Sleep 500
    
56. sh.SendKeys "gzip "&cmdd&"{ENTER}"
    
57. WScript.Sleep 500
    
58. sh.SendKeys "pwd {ENTER}"
    
59. WScript.Sleep 500
    
60. sh.SendKeys "exit {ENTER}"
    
61. WScript.Sleep 500
    
62. sh.SendKeys "{ENTER}"
    
63. WScript.Sleep 500
    
64. sh.SendKeys "exit {ENTER}"
    
65. WScript.Sleep 500
    
66. WScript.Quit
    
67. End If
    

复制代码

CrLf

发送按键、发送按键 and 发送按键...

forfiles

用VBS发送按键模拟你自己手工点鼠标的操作