VBS – Disable Account

cette fonction permet de désactiver un compte sur les OS entre 2000 à 2012-W10 en VBS

Function DisableUser (username)
Const ADS_UF_ACCOUNTDISABLE = &H0002
Dim objUser , flag , lngFlag
Set objUser = GetObject(“WinNT://”& strComputer &”/”&username)
flag = objUser.Get(“UserFlags”)
lngFlag = ADS_UF_ACCOUNTDISABLE
objUser.Put “userFlags”, lngFlag
objUser.SetInfo

End Function

* Attention , WordPress change les guillemets dans le code

2015-09-30 09_18_03-disableAccount _ - VbsEdit