我试图创建的是一个两部分的脚本。脚本的第一部分将搜索应用程序的安装路径,并将其另存为变量strValue。脚本的这一部分效果很好。我希望脚本的下一部分从strValue中存储的位置启动批处理文件。这是让我绊倒的部分。我觉得我正在使事情变得复杂得多。请指教。
到目前为止,这是我的脚本:
Option Explicit
Dim strComputer, oReg, strKeyPath, strValueName, strValue, WshShell, ObjEnv, objExec, strFolderPath,
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Greenshot_is1"
strValueName = "InstallLocation"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
'Uncomment the following line to verify the install location is chosen properly
Wscript.Echo "Current Install Location: " & strValue
'
''''''''''''''''''''''''''''''''''''''''''''''''
'run batch file from strValue location
假定strValue
包含批处理文件的完整路径,则可以使用以下Run
方法:
CreateObject("WScript.Shell").Run """" & strValue & """", 0, True
周围的双引号strValue
会注意带空格的路径。
如果strValue
仅包含不带文件名的路径,则可以这样构建完整路径:
CreateObject("WScript.Shell").Run """" & strValue & "\batchfile.bat""", 0, True
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句