How do I re-enable a disabled account?  Here is my code for disabling the
account:

lngServer = VarPtr(bytServer(0))    ' Save pointer to the Unicode byte array
lngUser = VarPtr(bytUser(0))        ' Save pointer to the Unicode byte array
lngInfoLevel = 1008
typThisUser.usri1008_flags = UF_SCRIPT Or UF_ACCOUNTDISABLE
lngBufPtr = VarPtr(typThisUser)
lngReturn = NetUserSetInfo(lngServer, lngUser, lngInfoLevel, lngBufPtr,
lngParamErr)

[My bit arithmetic is very rusty!]