捐血一袋救人一命

江蘇拙政園

江蘇 拙政園

全家福

日本 和歌山城

賞楓之旅

千燈 夕照

水鄉千燈

蘆洲 微風運河

破曉時分

2012年1月31日 星期二

定時自動進行 VMware Snapshot 管理

首先,要瞭解 vcbSnapshot 指令的功能

該指令可以用來建立 Snapshot 或是 刪除 Snapshot

2012年1月6日 星期五

找出網域中密碼從未過期的帳號

功能:檢核系統設定,確保每個帳號均遵循密碼定時重設的政策

image

請將檔案存成 .vbs

On Error Resume Next

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000

objCommand.CommandText = "<LDAP://dc=company,dc=com,dc=tw>;" & "(&(objectCategory=User)(userAccountControl:1.2.840.113556.1.4.803:=65536));" & "Name;Subtree"
Set objRecordSet = objCommand.Execute

NeverExpirePassword = "密碼從未過期的帳號清單:" + CHR(13) + CHR(13)

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
    NeverExpirePassword = NeverExpirePassword + objRecordSet.Fields("Name").Value + CHR(13)
    objRecordSet.MoveNext
Loop

Wscript.Echo NeverExpirePassword

管理網域帳號在本機的權限群組

功能:遠端維護→將使用者的帳號,加入/移出某電腦的本機的群組

image