This is very nasty but works nonetheless...
Code:

Dim $WshShell, $x
$WshShell = CreateObject("WScript.Shell")
$WshShell.Run("cmd /c start ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{0DF44EAA-FF21-4412-828E-260A8728E7F1}")
$WshShell.AppActivate("Taskbar and Start Menu Properties")
Sleep 2
$x=SendKeys ("q")
Sleep 2
$x=SendKeys ("{ENTER}")

replace the sendkey "s" with a Q for dutch os's.