Help me with this long code

[mrmacadamia]

%SystemRoot%\system32\regsvr32.exe /s /n /i:"/InstallVS:'%SystemRoot%\resources\themes\Oblivious\Oblivious.msstyles','NormalColor','NormalSize'" %SystemRoot%\system32\themeui.dll

this is the code that i want to run via autoit. It is too long to use it with Run and shellexecute. I tested different combination of " or ' and i give up.

Currently i use controlsendtext to the start>run and click ok.

thanks

[Authenticity]

Opt('ExpandVarStrings', 1)

Dim $sRun = '%SystemRoot%\system32\regsvr32.exe /s /n /i:"/InstallVS:''%SystemRoot%\resources\themes\Oblivious\Oblivious.msstyles'',''NormalColor'',''NormalSize''" %SystemRoot%\system32\themeui.dll'
Run(@ComSpec & ' /c $sRun$', '', @SW_HIDE)

[mrmacadamia]

Opt('ExpandVarStrings', 1)

Dim $sRun = '%SystemRoot%\system32\regsvr32.exe /s /n /i:"/InstallVS:''%SystemRoot%\resources\themes\Oblivious\Oblivious.msstyles'',''NormalColor'',''NormalSize''" %SystemRoot%\system32\themeui.dll'
Run(@ComSpec & ' /c $sRun$', '', @SW_HIDE)

Authenticity,

You are simply awesome.

thank you so much.