[VBScript] 大量解除 WinNT/2k/XP/2003 鎖定帳號


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 ,若有人被鎖,傳回被解鎖的使用者陣列。
廣告
Categories: 技術分享 | 發表留言

文章分頁導航

發表迴響

在下方填入你的資料或按右方圖示以社群網站登入:

WordPress.com Logo

您的留言將使用 WordPress.com 帳號。 登出 / 變更 )

Twitter picture

您的留言將使用 Twitter 帳號。 登出 / 變更 )

Facebook照片

您的留言將使用 Facebook 帳號。 登出 / 變更 )

Google+ photo

您的留言將使用 Google+ 帳號。 登出 / 變更 )

連結到 %s

在WordPress.com寫網誌.

%d 位部落客按了讚: