Still celebrating National IT Professionals Day with 3 months of free Premium Membership. Use Code ITDAY17

x
?
Solved

VBscript Logon Error

Posted on 2008-10-27
5
Medium Priority
?
889 Views
Last Modified: 2013-12-24
I've been using the attached logon script to provide information in AD for each user.  The script runs properly for some, but errors upon logon for others.  Here's the error:

Line: 5
Char: 1
Error: 0x80005000
Code:80005000
Source:null

Is this a problem with permissions within Active Directory for the users that are having the script fail?  If so, what would be the fix?

Thanks
''POPULATES AD WITH USER LOGON INFO IN DESCRIPTION FIELD
 
Set objSysInfo = CreateObject("ADSystemInfo")
 
Set objUser = GetObject("LDAP://" & objSysInfo.UserName)
Set objComputer = GetObject("LDAP://" & objSysInfo.ComputerName)
 
strMessage = objUser.CN & " authenticated on " & objComputer.CN & " " & Now & ".  MAC addresses: " & MACAddresses(".")
 
objUser.Description = strMessage
objUser.SetInfo
 
objComputer.Description = strMessage
objComputer.SetInfo
 
function MACAddresses(strComputer)
	dim objWMI, colItems, objItem
	dim strMac
	strMac=""  
	Set objWMI = GetObject("winmgmts:\\" & strComputer &  "\root\CIMV2")  
	Set colItems = objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE",,48)
	For Each objItem in colItems
		if objItem.MACAddress<>"" then strMac=strMac & objItem.MACAddress & vbCrLf
	Next  
	MACAddresses = strMac
end function

Open in new window

0
Comment
Question by:CommCatz
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 3
5 Comments
 
LVL 7

Expert Comment

by:Mikealcl
ID: 22815893
Normal users do  not have access to update active directory by default if that is what you are trying to do.

You would have to delegate that permission to update those fields.

http://www.windowsecurity.com/articles/Implementing-Active-Directory-Delegation-Administration.html


0
 

Author Comment

by:CommCatz
ID: 22816008
I have already delegated write permission to both the computer and user object's description field.  I must be missing another delegation permission.
0
 
LVL 30

Expert Comment

by:LauraEHunterMVP
ID: 22818555
Does the update fail for users who are or who have ever been members of a protected group such as Domain Admins, Account Operators, or Server Operators?  If so, this behavior is by design; the following links describe the issue and some potential workarounds:

http://msmvps.com/blogs/ulfbsimonweidner/archive/2005/05/29/49659.aspx
http://support.microsoft.com/kb/817433
0
 

Author Comment

by:CommCatz
ID: 22818901
The script fails for primarily users that are just members of the domain users group with no other elevated permission history.  It seems to run fine for domain admins and users who have full control to particular OUs within AD.
0
 

Accepted Solution

by:
CommCatz earned 0 total points
ID: 22831226
Anyone else?  This is getting really frustrating, I don't understand why it errors for some and not others.
0

Featured Post

Survive A High-Traffic Event with Percona

Your application or website rely on your database to deliver information about products and services to your customers. You can’t afford to have your database lose performance, lose availability or become unresponsive – even for just a few minutes.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article shows how to get a list of available printers for display in a drop-down list, and then to use the selected printer to print an Access report or a Word document filled with Access data, using different syntax as needed for working with …
Active Directory can easily get cluttered with unused service, user and computer accounts. In this article, I will show you the way I like to implement ADCleanup..
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…
In this video, Percona Solution Engineer Rick Golba discuss how (and why) you implement high availability in a database environment. To discuss how Percona Consulting can help with your design and architecture needs for your database and infrastr…

705 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question