Переключение композиции рабочего стола в VBScript

Как я могу включать и выключать композицию рабочего стола из VBScript? То есть я хочу написать код, который включает композицию рабочего стола, когда она выключена, и наоборот.

Я пробовал этот код:

' Getting admin rights
If Not WScript.Arguments.Named.Exists("elevate") Then
  CreateObject("Shell.Application").ShellExecute WScript.FullName _
    , """" & WScript.ScriptFullName & """ /elevate", "", "runas", 1
  WScript.Quit
End If

'Stopping desktop composition
set WshShell = CREATEOBJECT("WScript.Shell")
WshShell.Run("net start UxSms"),0