vbs脚本编写的UFT 11.5重新使用30天的程序

最新推荐文章于 2023-05-25 08:15:40 发布

小沐沐之家

最新推荐文章于 2023-05-25 08:15:40 发布

阅读量916

点赞数

CC 4.0 BY-SA版权

分类专栏： vbs

本文链接：https://blog.youkuaiyun.com/wanghao3029/article/details/11621329

vbs 专栏收录该内容

5 篇文章

订阅专栏

此VBScript脚本用于重置UFT 11.5的30天试用期，通过删除特定文件夹并根据用户操作系统的位数运行安装程序来实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'==========================================================================
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 2012
' NAME: UFT11.5重新试用30天的程序
' AUTHOR: 王浩
' DATE : 2013/9/12
'==========================================================================

Dim fs,ws,m
Set fs=WScript.CreateObject("scripting.filesystemobject")
If fs.folderexists("C:\ProgramData\SafeNet Sentinel") Then
fs.DeleteFolder("C:\ProgramData\SafeNet Sentinel")
End If

Set ws=WScript.CreateObject("WScript.Shell")
m=InputBox("请根据您的操作系统填写编号:"&Chr(13) & Chr(10)&"1:64位操作系统"&Chr(13) & Chr(10)&"2:32位操作系统","提示")
If m="1" Then
If fs.FileExists("C:\Program Files (x86)\HP\Unified Functional Testing\bin\instdemo.exe") Then
  ws.Run chr(34)&"C:\Program Files (x86)\HP\Unified Functional Testing\bin\instdemo.exe"&Chr(34)
Else
  MsgBox "请确认操作系统是否为64位！"
End If
ElseIf m="2" Then
If fs.FileExists("C:\Program Files\HP\Unified Functional Testing\bin\instdemo.exe") then
  ws.Run """C:\Program Files\HP\Unified Functional Testing\bin\instdemo.exe"""
Else
  MsgBox "请确认操作系统是否为32位！"
End If
ElseIf m<>"" Then
MsgBox "输入错误，请输入数据1或2！！！"
End If