Solved

VBscript Logon Error

Posted on 2008-10-27
5
872 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

Windows Server 2016: All you need to know

Learn about Hyper-V features that increase functionality and usability of Microsoft Windows Server 2016. Also, throughout this eBook, you’ll find some basic PowerShell examples that will help you leverage the scripts in your environments!

Join & Write a Comment

This article describes some very basic things about SQL Server filegroups.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
This tutorial will walk an individual through the process of transferring the five major, necessary Active Directory Roles, commonly referred to as the FSMO roles to another domain controller. Log onto the new domain controller with a user account t…
This tutorial will walk an individual through the process of configuring their Windows Server 2012 domain controller to synchronize its time with a trusted, external resource. Use Google, Bing, or other preferred search engine to locate trusted NTP …

707 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

Need Help in Real-Time?

Connect with top rated Experts

12 Experts available now in Live!

Get 1:1 Help Now