
Re-enabling an account using NetUserSetInfo
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!]