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

回覆這篇寫的：
http://forums.microsoft.com/MSDN-CHT/ShowPost.aspx?PostID=567187&SiteID=14

---

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 ，若有人被鎖，傳回被解鎖的使用者陣列。

廣告

凱米颱風接近中

哇~ 6月底開始每週一個颱風…

又要進入待命狀態，好累。

凱米颱風跟上個碧利斯颱風路徑接近，不知道到台灣後，會從哪邊掃過。監測畫面如附圖。

Vista 5472 安裝好快

Vista 5472 安裝起來好快，本來預期可能要 30 分鐘或是跟 53xx 類似要 40 分鐘以上，沒想到不到 20 分鐘就裝完了，切回來畫面已經在等待帳號新增了。

 

工作管理員部份功能變比較雜，記憶體使用顏色改變。從 WinNT4/2k/XP/2003 一值沿用的顏色居然改變了，我也有點不適應，不過新選的顏色比較不搶眼，長期監看比較不會有心理負擔。