Сервер Ubuntu 12.04 LTS на 2012 Hyper-V

Найденный ниже код в документации MSDN здесь; это служит Вашим целям?

    Public Function DeleteInstance(UserURI)


        ' Connect to WMI server

        Set wmiServer = CreateObject("WbemScripting.SWbemLocator").ConnectServer()

        'Do error checking here

        Query = "SELECT * FROM MSFT_SIPESUserSetting where PrimaryURI = '" & UserURI & "'"

        Set LCUserEnum = wmiServer.ExecQuery(Query)

        For each LCUser in LCUserEnum           
            Err.Clear
            LCUser.Delete_

            'Do error checking here
        Next

        DeleteInstance = true

End Function