VBScript can't run

I write a VB Script, got below error when running.

Script content:

----------------------------------------------------------------------

Const HKEY_CURRENT_USER = &H80000001

strComputer = "."

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")
DIM strValueName, strValue
strKeyPath = "Software\Microsoft\Office\15.0\Lync\ConfAddin\test@contoso.com.cn"
strValueName = "UserSetting"
strValue = "<?xml version="1.0"?><UserSettings Version="14.0"><IsPublicMeeting>false</IsPublicMeeting><IsEnglish>true</IsEnglish><CAA><SelectedCAARegion>DG</SelectedCAARegion><DefaultCAARegion>DG</DefaultCAARegion><DefaultAnnouncementEnabled>false</DefaultAnnouncementEnabled><AnnouncementEnabled>true</AnnouncementEnabled></CAA><PhoneBypassLobby>true</PhoneBypassLobby><IsSelectedPresenter>false</IsSelectedPresenter><AutoPromote OrganizerOnly="true">Everyone</AutoPromote><DefaultAutoPromote>Company</DefaultAutoPromote><AccessLevel>ucAnonymous</AccessLevel><DefaultAccessLevel>ucAnonymous</DefaultAccessLevel><IMDisabled>false</IMDisabled><AudioMuteEnabled>true</AudioMuteEnabled><VideoMuteEnabled>false</VideoMuteEnabled></UserSettings>"

objRegistry.SetStringValue HKEY_CURRENT_USER, strKeyPath, strValueName, strValue

 --------------------------------------------------------------------------------------------------

Error Capture: