|
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
| 
![[Frown]](images/icons/frown.gif){kind=icon}
![[Wink]](images/icons/wink.gif){kind=icon}
