人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

ローカルadminの一括パスワード変更方法について
Server側からバッチやスクリプトを使いパスワードを一括変更したいと思っています。
環境は
WindowsServer2003(AD環境)
クライアントOSはXP PRO
クライアント台数は200台前後

スクリプト等(WSH)で、外部テキスト(TXT)からホスト名を読み込み抽出し対象ホスト
に設定したいと思っております。

400ptずつ配分しますので、ソース付で回答願います。

●質問者: anim130M
●カテゴリ:ビジネス・経営 コンピュータ
✍キーワード:AD OS txt WSH XP
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● memo77
●500ポイント ベストアンサー

こんな感じですかね。

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

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

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

'【書換必須】コンピュータを列挙したファイルパス。ユーザーごとに改行。
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/

◎質問者からの返答

成功はしてるのですが、結果表示の「Log.txt」には、

Err.Number:424

Err.Description:オブジェクトがありません。

っとすべてのホストに表示されてしまいます。


2 ● memo77
●10ポイント

コメント欄が空いていないので回答で。

エラーのクリアがコードから抜けてました。Nextの前の行に

 Err.Clear

と入れてください。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ