From: Bryan on
Set objSysInfo = CreateObject("ADSystemInfo")
sTmp = objSysInfo.ComputerName
If err <> 0 Then
wsh.echo err.description
End If

This script echos a "Permission Denied" on some machines. I have been unable
to determine the cause or a fix. I have re-registered the activeds.dll. Not
sure what
else to try. Anyone have any ideas?
From: Richard Mueller [MVP] on
Bryan wrote:

> Set objSysInfo = CreateObject("ADSystemInfo")
> sTmp = objSysInfo.ComputerName
> If err <> 0 Then
> wsh.echo err.description
> End If
>
> This script echos a "Permission Denied" on some machines. I have been
> unable
> to determine the cause or a fix. I have re-registered the activeds.dll.
> Not
> sure what
> else to try. Anyone have any ideas?

I think the only time I've seen that code fail is when the user is not
authenticated to the domain (or the client is older than Windows 2000).
Could the user be logged into the local computer?

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--


From: Bryan on


"Richard Mueller [MVP]" wrote:

> Bryan wrote:
>
> > Set objSysInfo = CreateObject("ADSystemInfo")
> > sTmp = objSysInfo.ComputerName
> > If err <> 0 Then
> > wsh.echo err.description
> > End If
> >
> > This script echos a "Permission Denied" on some machines. I have been
> > unable
> > to determine the cause or a fix. I have re-registered the activeds.dll.
> > Not
> > sure what
> > else to try. Anyone have any ideas?
>
> I think the only time I've seen that code fail is when the user is not
> authenticated to the domain (or the client is older than Windows 2000).
> Could the user be logged into the local computer?
>
> --
> Richard Mueller
> MVP Directory Services
> Hilltop Lab - http://www.rlmueller.net
> --
>
>
>

Not possible, all clients are XP SP2 and this code is called from user logon
scripts. We have had a significant failure rate with the ADSystemInfo object,
in the neighborbood of 10%.

I have tried to identify files that are needed for ADSystemInfo object to
work but haven't found anything outside of the ActiveDs.dll, in an attempt to
re-install or repair mis-matched files or registry.

Could it be rights? What rights would I need to examine? (File System, AD,
etc)

Thanks in advance for help you can provide.

Bryan
From: Richard Mueller [MVP] on

"Bryan" <Bryan(a)discussions.microsoft.com> wrote in message
news:0E6E64AA-2E84-4186-BBB6-F9F5E0D1F730(a)microsoft.com...
>
>
> "Richard Mueller [MVP]" wrote:
>
>> Bryan wrote:
>>
>> > Set objSysInfo = CreateObject("ADSystemInfo")
>> > sTmp = objSysInfo.ComputerName
>> > If err <> 0 Then
>> > wsh.echo err.description
>> > End If
>> >
>> > This script echos a "Permission Denied" on some machines. I have been
>> > unable
>> > to determine the cause or a fix. I have re-registered the activeds.dll.
>> > Not
>> > sure what
>> > else to try. Anyone have any ideas?
>>
>> I think the only time I've seen that code fail is when the user is not
>> authenticated to the domain (or the client is older than Windows 2000).
>> Could the user be logged into the local computer?
>>
>> --
>> Richard Mueller
>> MVP Directory Services
>> Hilltop Lab - http://www.rlmueller.net
>> --
>>
>>
>>
>
> Not possible, all clients are XP SP2 and this code is called from user
> logon
> scripts. We have had a significant failure rate with the ADSystemInfo
> object,
> in the neighborbood of 10%.
>
> I have tried to identify files that are needed for ADSystemInfo object to
> work but haven't found anything outside of the ActiveDs.dll, in an attempt
> to
> re-install or repair mis-matched files or registry.
>
> Could it be rights? What rights would I need to examine? (File System, AD,
> etc)
>
> Thanks in advance for help you can provide.
>
> Bryan

When I use the ADSystemInfo object in a VB 6 program, I must include a
reference to activeds.tlb, the Active DS Type Library.

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--