Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

ADSystemInfo and ComputerName

206 views
Skip to first unread message

Bryan

unread,
Sep 21, 2009, 1:50:02 PM9/21/09
to
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?

Richard Mueller [MVP]

unread,
Sep 21, 2009, 2:47:53 PM9/21/09
to
Bryan wrote:

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
--


Bryan

unread,
Sep 22, 2009, 6:31:01 AM9/22/09
to

"Richard Mueller [MVP]" wrote:

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

Richard Mueller [MVP]

unread,
Sep 22, 2009, 8:57:25 PM9/22/09
to

"Bryan" <Br...@discussions.microsoft.com> wrote in message
news:0E6E64AA-2E84-4186...@microsoft.com...

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

0 new messages