Question

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

首先，＆＃39; strValue＆＃39;不显示在MsgBox中，其次出现脚本错误，例如＆＃34;类型不匹配：＆＃39; fso.FolderExists＆＃39;＆＃34;

任何帮助都会非常感激，因为我一直在努力解决这个问题。

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

仅限两个附注：

使用HTML方法查询GetStringValue会为不同的 Windows Script Host 可执行版本提供不同的结果（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,6位上有下一个输出：

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

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

==>

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

sub LyncFix的类似输出已在基本hta（msgbox而不是Wscript.Echo）中定义并使用，并且具有不同版本的mshta.exe，如下所示：

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

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

小型VBScript在HTA中不起作用

1 个答案: