Hi, All!

See the following script (rather short...):
-------------------------------------------
Dim $prnGroupsOU
Dim $prnGroup

$prnGroupsOU = GetObject("LDAP://dc01-dom/OU=Printer groups,DC=mydom.ru")

If @Error <>0
? "Error!" @Error
Endif

for each $prnGroup in $prnGroupsOU
? $prnGroup.Name
if( $prnGroup.Class = "group")
If ( ingroup($prnGroup.Get("Name")) <> "0")
? "In Group!"
? "Setting printer" $prnGroup.Get("Description")
Endif

endif
next

Dim $ans
Get $ans
-------------------------------------------
On W2K machine this works fine and i see the output:

CN=prn-hp5000-ivc308
In Group!
Setting printer \\fs01-dom\hp5000-ivc308
CN=prn-hp5si-ivc
In Group!
Setting printer \\fs01-dom\hp5000-ivc308

On w98 machine I see:

Error!-2147221014

What am i doing wrong ???
Just in case, kxrpc service is started OK on DC01-DOM.

Or, W98 does NOT suport GetObject("LDAP") ???

Thanks ALL in advance!!!!

Sincerely,
Mike