set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /user:domain\user devmgmt.msc"
WScript.Sleep 100
WshShell.Sendkeys "Password!"
set WshShell = CreateObject("WScript.Shell")
WshShell.Run "runas /user:domain\user devmgmt.msc"
WScript.Sleep 100
WshShell.Sendkeys "Password!"