http://www.microsoft.com/windows2000/library/howitworks/activedirectory/adsilinks.asp

http://www.microsoft.com

rtk.htm interopt.htm ad.htm winnt.htm dev.htm ../default.htm router.gif (3874 bytes)

Communicating with the Novell Netware Server

 

Requirements

 

Connecting to a NetWare Server

If you have not yet done so, use the net use command to log on to the NetWare Server.

For example:

net use \\nwserver /U:mydom\jsmith

IADsOpenObject::OpenDSObject is not supported in the current release of the NWCOMPAT provider, so you will need to use the GetObject function.

adsPathName = "NWCOMPAT://" & serverName
Set cont = GetObject(adsPathName)

 

Enumerating a Container

For Each obj In cont
    Debug.Print obj.Name & " (" & obj.Class & ")"
Next

 

Object Creation

adsPath = "NWCOMPAT://" & serverName
Set cont = GetObject(adsPath)
Set usr = cont.Create("user", "alicew")
usr.SetInfo

 

Attribute Retrieval and Modification

objPath = "alicew,user"
adsPath = "NWCOMPAT://" & serverName & "/" & objPath
Set usr = GetObject(adsPath)
usr.FullName = "Alice I. Wonderland"
usr.SetInfo

Debug.Print usr.FullName

 

Searching

Searching is not supported in NWCOMPAT. You can, however, use the IADsContainer::put_Filter method to limit the type of object classes to be included in the enumeration.

adsPath = "NWCOMPAT://" & serverName
Set con = GetObject(adsPath)
con.Filter = Array("user", "group")         'Show user and group

For Each acct In con
    Debug.Print acct.Name & " (" & acct.Class & ")"
Next

Source code can be found in \samples\interopt\netware.