'''''''''''''''''''''''''''''''''''''''
' Help and Support MUI Install '
'''''''''''''''''''''''''''''''''''''''''
Option Explicit

' Localizable text
CONST strProcess = "Processing MUI Cab for LCID: "


Dim objFSO, objHSCMUIFolder, objShell, objCab
Dim objLCID, objSubFolders,objFiles
Dim strHelpsvc, strHSCMUI, strMUILCID, strCab

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objShell = CreateObject("Wscript.Shell")
strHSCMUI = objFSO.GetSpecialFolder(0).Path & "\Pchealth\MUI"
strHelpsvc = objFSO.GetSpecialFolder(0).Path & "\Pchealth\Helpctr\Binaries\Helpsvc.exe "
set objHSCMUIFolder = objFSO.GetFolder(strHSCMUI)
set objSubFolders = objHSCMUIFolder.SubFolders
For each objLCID in objSubFolders
strMUILCID = objLCID.Name
set objFiles = objLCID.Files
for each objCab in objFiles
strCab = objCab.Path
if right(strCab,4) = ".cab" then
wscript.echo strProcess & strMUILCID
objShell.Run strHelpsvc & "/MUI_install " & strMUILCID & " " &_
strCab,,true
strCab = ""
' wscript.echo "Error code received: " & err.Number,,"Debug error check"
end if
next
next

cscript <VBScript 저장 폴더>\FixHSCMUI.vbs
예:
cscript D:\Temp\FixHSCMUI.vbs