Option Explicit

Const ENABLED=1
Const DISABLED=16

Dim oShell,StateValue,MetroUI

Set oShell=WScript.CreateObject("WScript.Shell")

StateValue = "HKCU" &_
	     "\Software\Microsoft\Windows\CurrentVersion\Explorer\RPEnabled"

MetroUI = oShell.RegRead(StateValue)


if MetroUI = ENABLED then
	oShell.RegWrite(StateValue),DISABLED,"REG_DWORD"
	MsgBox "MetroUI Disabled."

elseif MetroUI = DISABLED then
	oShell.RegWrite(StateValue),ENABLED,"REG_DWORD"
	MsgBox "MetroUI Enabled."

end if