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

'==========================================================================
' 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