小型 VBScript 在 HTA 中不起作用

Question

我正在使用以下 VBSript，它工作正常，但是当我尝试将它添加到我创建的 .hta 应用程序时，它无法正常运行。

首先，'strValue'没有显示在MsgBox中，其次出现脚本错误，例如"Type mismatch: 'fso.FolderExists'"

任何帮助将不胜感激，因为我一直在努力解决这个问题。

sub LyncFix

dim oReg, strKeyPath, strValueName, strValue, oWS, userProfile

Const HKEY_LOCAL_MACHINE = &H80000002

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\" & _
strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Installer\UserData\S-1-5-18\Components\C7376A18AE70EB645A6EA7E5F5CE44F9"
strValueName = "71B0EB18B3654D541B8975126E6C56DC"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
MsgBox "Folder required to resolve Lync Install prompt: " & strValue


Dim fso
Dim Folder

Set fso = CreateObject("Scripting.FileSystemObject")

If (fso.FolderExists(strValue)) Then
    MsgBox("The folder '" + strValue + "' already exists")
end If

If NOT (fso.FolderExists(strValue)) Then
    ' Delete this if you don't want the MsgBox to show
    MsgBox("Local folder doesn't exist, creating...")
    ' Create folder
    MsgBox("'" + strValue + "'" + " created")
    fso.CreateFolder(strValue)
    MsgBox("Please now try launching Lync again")
End If

end sub

Answer 1

只有两个旁注：

使用 GetStringValue 方法查询 HTML 对于不同的 Windows 脚本宿主 可执行版本（32 位与 64 位作为体现在下一个例子中）；
CreateFolder 方法可能需要提升权限。

示例：有strComputer = "."和下一次修订

  '
  oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
  ' the amendment in 29026643.vbs as follows:
  Wscript.Echo VarType(strValue) & vbTab & TypeName(strValue)
  '

我在 Windows 8、64 位上得到了下一个输出：

==>%windir%\sysWOW64\cscript.exe D:\VB_scripts\SO026643.vbs
1       Null

==>%windir%\system32\cscript.exe D:\VB_scripts\SO026643.vbs
8       String

==>

具有不同版本 wscript.exe 的模拟输出（带窗口 echo）。

具有 sub LyncFix 的模拟输出在基本 hta 中定义和使用（使用 msgbox 而不是 Wscript.Echo）和不同版本的 mshta.exe 作为如下：

==>%winDir%\sysWOW64\mshta.exe D:\VB_scripts\SO026643.hta

==>%winDir%\system32\mshta.exe D:\VB_scripts\SO026643.hta

小型 VBScript 在 HTA 中不起作用

Small VBScript Does Not Work in HTA

vbscript

hta

filesystemobject

fso