Function UnLockAllUsers(ByVal strServer)
strUsers = ""
Set oServer = GetObject("WinNT://" & strServer)
For Each usr In oServer
If LCase(usr.Class) = "user" Then
If usr.IsAccountLocked Then
strUsers = strUsers & usr.Name & ";"
End If
End If
Next
If Len(strUsers) > 0 Then
strUsers = Left(strUsers, Len(strUsers) – 1)
UnLockAllUsers = Split(strUser, ";")
End If
End Function
本機用 arrUsers = UnLockAllUsers("yourServer")
網域用 arrUsers = UnLockAllUsers("yourDomain/yourServer")
若無人被鎖,傳回 Empty ,若有人被鎖,傳回被解鎖的使用者陣列。
網域用 arrUsers = UnLockAllUsers("yourDomain/yourServer")
若無人被鎖,傳回 Empty ,若有人被鎖,傳回被解鎖的使用者陣列。