ADSI script to change the full name property of an account.

Sub ChangeAccountFullName(strFullName)
	On Error Resume Next
	Set oUser = GetObject(strDomain & "/" & strUser)
	oUser.FullName = strFullName
	oUser.SetInfo
	Set oUser = Nothing
	If Err <> 0 Then
		strServerError = "Full name change failed!"
	End If
End Sub