VBscript Logon Error

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

Select allOpen in new window