代码之家 › 专栏 › 技术社区 › jERCle

小型VBScript在HTA中不起作用

fso filesystemobject hta vbscript

jERCle · 技术社区 · 10 年前

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

首先,MsgBox中未显示“strValue”,其次出现脚本错误,如“类型不匹配:'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

1 回复 | 直到 10 年前

JosefZ 10 年前

仅两个侧边注释:

查询 HTML 具有 GetStringValue 对于不同的 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\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

推荐文章

kwirky_penguin · VBScript远程WMI调用“错误:0”权限被拒绝:“GetObject”

3 年前

michael_wycklendt · 拆分字符串上的类型不匹配

3 年前

RuffMingani · VBScript-WMI查询的语法无效

3 年前

Munaver Munu · 这段VB代码是如何自动添加到我的html文件中的?[重复]

3 年前

whoislouis · 是否使用vbscript/hta将文件夹中的所有文件加载到数组中?

7 年前

Er Reddy · VBS-查找计算机所在的SCCM集合Id、名称和包名称?

7 年前

Nick Cage Wellfair · 编写Photoshop脚本时,打开扩展名为JPG的文件夹中的所有文件

7 年前

Ali Sheikhpour · 在VBScript中将字符串转换为变量名

7 年前

QHarr · 命令行执行VBScript文件以执行VBA宏无法生成msgbox

7 年前

arana · 生成3位字母数字日期索引

7 年前