Daily Archives: 2006/07/21

[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: 技術分享 | 發表留言

凱米颱風接近中


哇~ 6月底開始每週一個颱風…
又要進入待命狀態,好累。
凱米颱風跟上個碧利斯颱風路徑接近,不知道到台灣後,會從哪邊掃過。監測畫面如附圖。
Categories: 決策支援系統 | 發表留言

Vista 5472 安裝好快


Vista 5472 安裝起來好快,本來預期可能要 30 分鐘或是跟 53xx 類似要 40 分鐘以上,沒想到不到 20 分鐘就裝完了,切回來畫面已經在等待帳號新增了。
 
工作管理員部份功能變比較雜,記憶體使用顏色改變。從 WinNT4/2k/XP/2003 一值沿用的顏色居然改變了,我也有點不適應,不過新選的顏色比較不搶眼,長期監看比較不會有心理負擔。 
Categories: 測試版 | 發表留言

在WordPress.com寫網誌.

%d 位部落客按了讚: