what is wrong here
MCSE NT to 2012, MCITP:EA/SA, MCSA, MCDBA, MCTS, MCP+I, MCP
Code:
Set wshShell = CreateObject("WScript.Shell")
strKey = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\ClickToRun\Configuration"
strValue = "Platform"
strData = "x86"
On Error Resume Next
strData = wshShell.RegRead(strKey & "\" & strValue)
On Error Goto 0
Select Case strData
Case ""
MsgBox "Reg value '" & strKey & "\" & strValue & "' Not Found."
WshShell.Run Chr(34) & "\\dbngt05\software$\Mimecast\O365 CTR\setup.exe - CTR" & Chr(34)
Case "x86"
MsgBox "reg data = x86, Quitting."
WshShell.Run Chr(34) & "\\dbngt05\software$\Mimecast\Mimecast for Outlook 7.3.2061.19940 (32 bit)\Mimecast for Outlook 7.3.2061.19940 (32 bit).msi" /qn & Chr(34), 0, False
Case "x64"
WshShell.Run "MsiExec.exe /qn /x{A5C7145D-8E1B-44CD-99A3-AC242628C115}"
WshShell.Run Chr(34) & "\\dbngt05\software$\Mimecast\Mimecast for Outlook 7.3.2061.19940 (64 bit)\Mimecast for Outlook 7.3.2061.19940 (64 bit).msi" /qn & Chr(34), 0, True
Case Else
MsgBox "Unexpected data found in reg value '" & strKey & "\" & strValue & "'. Data = " & strData
WScript.Quit
End Select
MCSE NT to 2012, MCITP:EA/SA, MCSA, MCDBA, MCTS, MCP+I, MCP