いきなりシャットダウンはwinmgmts等を使うらしい

http://www.atmarkit.co.jp/bbs/phpBB/viewtopic.php?topic=12119&forum=7
http://ukamen.hp.infoseek.co.jp/Programming1/Shutdown/
C#だと権限設定のおまじないがいるようですが、VBだと

Set objSystemSet = GetObject("winmgmts:{impersonationLevel=impersonate,(Shutdown)}").InstancesOf("Win32_OperatingSystem")
For Each objSystem In objSystemSet
        objSystem.Win32Shutdown 2
Next

で権限とか関係なくいきなり落ちました。