ローカルadminの一括パスワード変更方法について

こんな感じですかね。

すべての端末の電源が入っているとは限らないので、ログを取れるようにしてあります。

失敗しているものだけ再度リストにして流す必要があります。

また、パスワードを直接記述している以上、このスクリプトを見られることは深刻な脆弱性に繋がるのを理解して使ってください。

'【書換必須】コンピュータを列挙したファイルパス。ユーザーごとに改行。
strListPath = "C:\Documents and Settings\Administrator\デスクトップ\List.txt"
'【書換必須】結果を出力するログファイルパス。
stLogPath = "C:\Documents and Settings\Administrator\デスクトップ\Log.txt"
'【書換必須】指定したい管理者パスワード
strPWD  = "czBnkbe+47i"

Set fso = CreateObject( "Scripting.FileSystemObject" )
Set ts = fso.OpenTextFile( strListPath, 1 )
    lines = Split( ts.ReadAll, vbCrLf )
    ts.Close

set tsLog = fso.CreateTextFile(strLogPath,True)

On Error Resume Next
For i = 0 to Ubound(lines) - 1
    strComputer = lines(i)
    Set objUser = GetObject("WinNT://" & strComputer & "/Administrator, user")
    objUser.SetPassword strPWD
    objUser.SetInfo

    tsLog.WriteLine(strComputer & "," & Err.Number & ":" & Err.Description)
Next

tsLog.Close

Msgbox "Finish!"

疑問などありましたら、下記サイトで質問してくださっても結構です。

http://www31.atwiki.jp/memo77/