[问题求助] 普通域用户runas安装软件的VBS脚本怎样处理路径中的空格？

Const AppPath = "runas /user:domain\user  ""\\wux-file01\IT Install Package\Install Files\Java\jre-6u31-windows-i586-s.exe"""
复制代码

path = InputBox("请输入路径：")
AppPath = "runas /user:domain\user  """ & path & """"
复制代码

Set objDialog = CreateObject("UserAccounts.CommonDialog")
objDialog.Filter = "All Files|*.*"
If objDialog.ShowOpen Then
   AppPath = "runas /user:domain\user  """ & objDialog.FileName  & """"
Else
   Wscript.Quit
End If
复制代码

Dim strPath
strPath=BrowseForFolder("请选择一个文件夹：")
Msgbox strPath
复制代码

' +----------------------------------------------------------------------------+
' | 浏览文件夹 ' File:Dialog.vbs (WSH sample in VBScript)   |
' |              Author:(c) G. Born                         |
' +----------------------------------------------------------------------------+
Function BrowseForFolder(ByVal sTips)
    Const BIF_returnonlyfsdirs = &H0001
    Const BIF_editbox= &H0010
    Dim oShell, oFolder
    BrowseForFolder = ""
    Set oShell = CreateObject("Shell.Application")
    Set oFolder = oShell.BrowseForFolder(&H0, sTips, BIF_editbox + BIF_returnonlyfsdirs)
    If InStr(1, TypeName(oFolder), "Folder") > 0 Then
        BrowseForFolder = oFolder.Items().Item().Path
    End If
End Function
复制代码