On Error Resume Next 

Set objSysInfo = CreateObject("ADSystemInfo") 
Set objNetwork = CreateObject("WScript.Network")
Set objUser = GetObject("LDAP://" & objSysInfo.UserName) 

objUser.Put "extensionAttribute2", objNetwork.ComputerName
objUser.SetInfo