Doh. Had an extra quote in the line below... Fixed now I think.
Set User = GetObject("WinNT://" & UserDomain & "/" & Username & ",user")
> 2. Disable the user's NT account.
>
> VB:
> Dim User as IADsUser
> Dim UserName as String
> Dim UserDomain as String
> UserDomin = "Your_NT_Domain"
> UserName = "User_To_Be_Axed"
> Set User = GetObject("WinNT://" & UserDomain & "/" &
> "Username & ",user")
>
> Dim NewValue as Boolean
> NewValue = True
> User.AccountDisabled = NewValue
> User.SetInfo
_________________________________________________________________
List posting FAQ: http://www.swinc.com/resource/exch_faq.htm
Archives: http://www.swynk.com/sitesearch/search.asp
To unsubscribe: mailto:[EMAIL PROTECTED]
Exchange List admin: [EMAIL PROTECTED]
