'Declare variables Dim objfso,strRegKey,strUMRoot,objShell,strMMCommon,strRegValue,strWinPath,sKeyedTable,sDestinationFolder 'Reading the Installed MAS Path strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Octel\Geneva\UMROOT" 'Creating Objects Set objShell = CreateObject("Wscript.Shell") on Error Resume Next 'Store the Installed path and navigate to %PROGRAMFILES%\Avaya Modular Messaging\Common\ strUMRoot = objShell.RegRead(strRegKey) strMMCommon = strUMRoot & "common\" 'Creating Objects Set objfso = CreateObject("Scripting.FileSystemObject") sKeyedTable = strMMCommon & "KeyedTable.dll" sDestinationFolder = "C:\Program Files\Avaya Modular Messaging\Common\" 'Check whether the KeyedTable.dll has been deleted if deleted then copy it back to C drive If Not oFSO.FileExists(sDestinationFolder & "KeyedTable.dll") Then Set objFileCopy = objFSO.GetFile(sKeyedTable) ' Copy the file to its destination objFileCopy.Copy (sDestinationFolder & "KeyedTable.dll" ) fnLogMessage "File Copied Successfully" End If 'Calling funtion SetDllRegText and register all Dll's from specified path fnSetDllRegText strMMCommon 'Calling function SetEnvironVariableUMCommon and set environmental varibable UMCOMMON fnSetEnvironVariableUMCommon strMMCommon 'Calling function SetConfigurationData and set Configuration Data fnSetConfigurationData strUMRoot 'Calling function Register .tlb files using regtlibv12.exe fnRegtlbFiles strMMCommon wscript.echo "The script has been executed successfully" Set WshSystemEnv = nothing Set objShell = nothing Set dr = nothing 'Method to set Executable files registry and Configuration data Sub fnSetConfigurationData(ByVal strMMRoot) on Error Resume Next 'Set Configuration path for Servicebility strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Octel\Geneva\Serviceability\Monitors\ConfigurationDirectory" strRegValue = strMMRoot & "Serviceability\Configuration" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue 'Set Configuration path for Servicebility strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Octel\Geneva\Serviceability\OAM\DataRoot" strRegValue = strMMRoot & "Serviceability\Data" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue 'Set Configuration path for Servicebility strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Octel\Geneva\Serviceability\OAM\InstallRoot" strRegValue = strMMRoot & "Serviceability" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MMUninstallWizard\ModifyPath" strRegValue = strMMRoot & "Uninstall\setup.exe /uninstall" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MMUninstallWizard\UninstallString" strRegValue = strMMRoot & "Uninstall\setup.exe /uninstall" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\MMUninstallWizard\DisplayIcon" strRegValue = strMMRoot & "Common\gv.ico" objShell.RegWrite strRegKey,strRegValue,"REG_EXPAND_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_pcmserver\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_pcmserver\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_almserver\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_almserver\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_emserver\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_emserver\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_pmserver\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\gv_pmserver\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMAlarmingMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\MM Dump Helper\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMDumpEvtMsgs409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\MM Dump Helper\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMDumpEvtMsgs409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\log4cxx\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMlog4cxxEvtMsgs409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\log4cxx\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\MMlog4cxxEvtMsgs409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger Configuration Manager\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\ConfigManEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger Configuration Manager\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\ConfigManEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger UMPropertyService\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\PropServiceEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger UMPropertyService\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\PropServiceEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger Resource Manager\CategoryMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\ResourceManEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue strRegKey = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Eventlog\Application\Unified Messenger Resource Manager\EventMessageFile" strRegValue = strMMRoot & "LanguagePacks\409\ResourceManEventMsg409.dll" objShell.RegWrite strRegKey,strRegValue,"REG_SZ" fnLogMessage "Set Registry " & strRegKey & " = " & strRegValue End Sub ' Method to register Dll's from specified path Sub fnSetDllRegText(ByVal strSearchPath) on Error Resume Next Dim dr Dim sfld Dim f Dim strPrintData If Right(strSearchPath, 1) <> "\" Then strSearchPath = strSearchPath & "\" Set dr = objfso.GetFolder(strSearchPath) If Err.Number <> 0 Then...
konri75