Change the description associate with a Windows account using ADSI.

'accepts a string for the description.

Sub ChangeAccountDescription(strDescription)
	On Error Resume Next
	Set oUser = GetObject(strDomain & "/" & strUser)
	oUser.Description = strDescription
	oUser.SetInfo
	Set oUser = Nothing
	If Err <> 0 Then
		strServerError = "Description change failed!"
	End If
End Sub