我想要创建的是一个2部分的脚本。脚本的第一部分将搜索应用程序的安装路径并将其另存为变量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
答案 0 :(得分:1)
假设strValue
包含批处理文件的完整路径,您可以使用Run
方法:
CreateObject("WScript.Shell").Run """" & strValue & """", 0, True
strValue
周围的双引号可以处理带空格的路径。
如果strValue
只包含没有文件名的路径,您可以像这样构建完整路径:
CreateObject("WScript.Shell").Run """" & strValue & "\batchfile.bat""", 0, True