800A0408,800A0400错误

Question

任何人都可以帮助/指出我正确的方向。我有编码的基本知识，我正在尝试运行一个脚本，将检查最终用户的Outlook版本（Outlook 2013或2010）。然后，根据用户的版本，它将创建一个新的电子邮件配置文件。我找到了一些不同的脚本并尝试将它们混合在一起，但我一直在收到错误。

我的努力如下：

Const HKEY_CLASSES_ROOT   = &H80000000
Const HKEY_CURRENT_USER   = &H80000001
Const HKEY_LOCAL_MACHINE  = &H80000002
Const HKEY_USERS          = &H80000003
Const HKEY_CURRENT_CONFIG = &H80000005

strComputer = "."
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "Outlook.Application\CurVer"
strValueName = ""
oReg.GetStringValue HKEY_CLASSES_ROOT, strKeyPath, strValueName, strValue
WScript.Echo strValue

If strValueName >= 15 Then
  "HKCU\Software\Microsoft\Office\" & strValueName & ".0\Outlook\Profiles\" _
    & ProfileName & "\New_O365_1"
  "HKCU\Software\Microsoft\Office\15.0\Outlook" /v DefaultProfile /t REG_SZ /d "New_O36_1" /F
Else
  reg add "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles\" _ 
    & ProfileName & "\New_O365_1"
  reg add "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows Messaging Subsystem\Profiles /v DefaultProfile /t REG_SZ /d "New_O365_1" /F"
  reg add "HKCU\Software\Microsoft\Exchange\Client\Options /v PickLogonProfile /t REG_DWORD /d "0" /f"
End If

我还尝试使用If运行add reg，但失败了。