QTP11 续期Licence VBS脚本

wuxue107

总是见有人在论坛问QTP11重置续期的问题。每个月都要重置一次挺麻烦。写个VBS减少劳动力

1. 
   
2. 
   
3. If LCase(Right(WScript.FullName,11)) = "wscript.exe" Then
   
4.         CreateObject("Wscript.Shell").Run "CScript "&Chr(34)&WScript.ScriptFullName&Chr(34)
   
5.         WScript.quit
   
6. End If
   
7. On Error Resume Next
   
8. Set SreamOut = WScript.StdOut
   
9. Set SreamIn = WScript.StdIn
   
10. Set oShell = CreateObject("Wscript.Shell")
    
11. 
    
12. SreamOut.WriteLine ""
    
13. SreamOut.WriteLine "    ##############################################"
    
14. SreamOut.WriteLine "    ########   QTP11版本使用延时工具    ##########"
    
15. SreamOut.WriteLine "    ##############################################"
    
16. SreamOut.WriteLine ""
    
17. 
    
18. envOK = True
    
19. 
    
20. Err.clear
    
21. profilePath = oShell.Environment("Process")("ALLUSERSPROFILE")
    
22. If Err Then
    
23.         SreamOut.WriteLine "找不到环境变量 ""ALLUSERSPROFILE""!"
    
24.         envOK = False
    
25. else
    
26.         OS = oShell.Exec("cmd /c ver").StdOut.ReadAll
    
27.         if instr(OS,"6.1") then
    
28.         'Win7
    
29.                 configPath = profilePath & "\SafeNet Sentinel"
    
30.         elseif instr(OS,"6.0") then
    
31.         'Vista
    
32.                 configPath = profilePath & "\SafeNet Sentinel"
    
33.         elseif instr(OS,"5.2") then
    
34.         '2003
    
35.                 configPath = profilePath & "\Application Data\SafeNet Sentinel"
    
36.         elseif instr(OS,"5.1") then
    
37.         'XP
    
38.                 configPath = profilePath & "\Application Data\SafeNet Sentinel"
    
39.         else
    
40.                 configPath = profilePath & "\SafeNet Sentinel"
    
41.         end If
    
42.         If not CreateObject("scripting.filesystemobject").folderExists(configPath) Then
    
43.                 configPath = "没有找到QTP的使用许可证目录！"
    
44.                 envOK = false
    
45.         End if
    
46. End If
    
47. 
    
48. SreamOut.WriteLine " 使用许可证目录:" & configPath
    
49. 
    
50. Err.clear
    
51. installPath = oShell.RegRead("HKEY_CURRENT_USER\Software\Mercury Interactive\QuickTest Professional\MicTest\ReservedObjects\Environment\Icons\")
    
52. If Err Then
    
53.         binPath = "没有找到QTP的安装目录！"
    
54.         envOK = false
    
55. End If
    
56. binPath = Left(installPath,InStrRev(installPath,"\")-1)
    
57. SreamOut.WriteLine " QTP的Bin目录为:" & binPath
    
58. 
    
59. SreamOut.WriteLine ""
    
60. If not envOK Then
    
61.          SreamOut.WriteLine " QTP重置试用许可证失败！"
    
62.          WScript.StdIn.ReadLine
    
63.          Wscript.quit
    
64. End If
    
65. 
    
66. SreamOut.WriteLine " 删除目录: ""SafeNet Sentinel"""
    
67. oShell.Run "cmd /c rmdir /q /s """ & configPath & """",0
    
68. wscript.sleep 1500
    
69. SreamOut.WriteLine " 执行文件: instdemo.exe"
    
70. oShell.Run "cmd /c """ & binPath & "\instdemo.exe""",0
    
71. SreamOut.WriteLine ""
    
72. SreamOut.WriteLine ""
    
73. SreamOut.WriteLine " QTP重置试用许可证成功！"
    
74. WScript.StdIn.ReadLine
    
75. 
    

复制代码

maplee

这。。貌似违反版规了啊，
趁版主没发现，赶紧copy下来