Sub ShutDown()
        Dim Connection, WQL, SystemClass, System
 
        'Get connection To local wmi
        Connection = GetObject("winmgmts:root\cimv2")
 
        'Get Win32_OperatingSystem objects - only one object In the collection
        WQL = "Select Name From Win32_OperatingSystem"
        SystemClass = Connection.ExecQuery(WQL)
 
        'Get one system object
        'I think there is no way To get the object using URL?
        For Each System In SystemClass
            System.Win32ShutDown(0)
        Next
    End Sub

Shell (shutdown -a)