Go Premium for a chance to win a PS4. Enter to Win

x
?
Solved

VBscript Logon Error

Posted on 2008-10-27
5
Medium Priority
?
896 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
  • 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

What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

Question has a verified solution.

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

In this article, I’ll look at how you can use a backup to start a secondary instance for MongoDB.
Creating a Cordova application which allow user to save to/load from his Dropbox account the application database.
In this video, Percona Director of Solution Engineering Jon Tobin discusses the function and features of Percona Server for MongoDB. How Percona can help Percona can help you determine if Percona Server for MongoDB is the right solution for …
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…

824 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