QTP11恢复30天试用破解
delfolder = "C:\ProgramData\SafeNet Sentinel"
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = WScript.CreateObject("Wscript.Shell")
ret = fso.FolderExists(delfolder)
ret1 = fso.FolderExists(QTPInstallPath)
If ret Then
Set Get_folder = fso.GetFolder(delfolder)
Get_folder.Delete
End If

If ret1 Then
check = Right(QTPInstallPath,1)
If check="\" Then
ret3 = fso.FileExists(QTPInstallPath&"instdemo.exe")
If ret3 Then
WshShell.Exec QTPInstallPath&"instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
Else
ret3 = fso.FileExists(QTPInstallPath&"\instdemo.exe")
If ret3 Then
WshShell.Exec QTPInstallPath&"\instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
End If
Else
MsgBox "输入的QTP安装文件bin路径"& Chr(34)&QTPInstallPath&CHR(34)&"不存在"
End If
Set Get_folder = Nothing
Set WshShell = Nothing
Set fso = Nothing
Else
End If
delfolder = "C:\Documents and Settings\All Users\Application Data\SafeNet Sentinel"
Set fso = WScript.CreateObject("Scripting.Filesystemobject")
Set WshShell = WScript.CreateObject("Wscript.Shell")
ret = fso.FolderExists(delfolder )
ret1 = fso.FolderExists(QTPInstallPath)
If ret Then
Set Get_folder = fso.GetFolder(delfolder)
Get_folder.Delete
End If

If ret1 Then
check = Right(QTPInstallPath,1)
If check="\" Then
ret2 = fso.FileExists(QTPInstallPath&"instdemo.exe")
If ret2 Then
WshShell.Exec QTPInstallPath&"instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
Else
ret2 = fso.FileExists(QTPInstallPath&"\instdemo.exe")
If ret2 Then
WshShell.Exec QTPInstallPath&"\instdemo.exe"
MsgBox "破解成功!"
Else
MsgBox "您输入的路径"& Chr(34)&QTPInstallPath&CHR(34)&"下不存在instdemo.exe文件"
End If
End If
Else
MsgBox "输入的QTP安装文件bin路径"& Chr(34)&QTPInstallPath&CHR(34)&"不存在"
End If
Set Get_folder = Nothing
Set WshShell = Nothing
Set fso = Nothing
Else
End If