Программное удаление пользователя OCS

Я ищу программное удаление учетных записей пользователей из OCS 2007 R2.

Я бы предпочел решение vbscript, поскольку оно станет частью более крупного сценария деинициализации, используемого для удаления различных связанных с пользователем вещей из приложений.

Нашел приведенный ниже код в документации 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