SetFilter Method

Search domains in DomainCollection object.

long SetFilter([in] BSTR Filter)

Parameters

Filter

Match condition, wildcard (* ?) can be used in this parameter.

Return Value

Return value is zero if this method succeeds; otherwise return value is non-zero.

Remarks

Only "system" account has the permission to search domain with DomainCollection object.

Usage Example

Dim server, user, password, requestAddr
server = "localhost"
user = "system"
password = "mypassword"
requestAddr = "192.168.0.1"

Dim oSvr
Set oSvr = CreateObject("EmailArchitectObjects.ServerRoot")
r = oSvr.Connect( server, user, password, 0, requestAddr )
If r <> 0 Then
  WScript.Echo( "connect server failed!" )
  WScript.Quit
End If

Dim oDomains, oDomain
Set oDomains = oSvr.DomainCollection

'search all domains which match "adminsystem.*".
oDomains.SetFilter "adminsystem.*"
Dim i, nCount
For i = 0 To nCount-1
  Set oDomain = oDomains.Items(CLng(i))
  WScript.Echo( oDomain.Name )
Next