ワークグループ共有でユーザパスワード変更について

質問

windows2003サーバーをファイルサーバとして利用しています。
クライアントはXPhomeになります。
ネットワークがドメインではなくワークグループなのでローカルアカウントを作っています。

管理者がパスワードを入力するのではなくユーザー自身にパスワードを変更して貰いたいと思っています。
telnetでnet userコマンドを使えば出来るとは思うのですがユーザーが出来るか怪しいので。
ユーザーのPCから出来てできるだけ簡単な方法を探しています。なにかいい方法がありますでしょうか。
よろしくお願いします。

回答No.1

icmp

WSH(VBS)でサクッと作ってみましたが、どうでしょう。
下記のスクリプトをメモ帳などに貼り付けて「ChangePW.vbs」という
名前ででも保存して実行してみて下さい。
Win2000同士では動作しましたが、2003、XPHomeの環境はないので
そちらでは試せていません。

あと、このスクリプトを使う場合、サーバ側、ローカル側ともアカウントに
管理者権限が必要と思われますが、細かな確認していません。

'------------
Const MIN_LENGTH = 4

strServerName = "ServerX"
strMessage = "パスワードを入力して下さい。"

' パスワード入力
Do Until Not strPassword = "" '入力されるまで繰り返す
strPassword = InputBox(strMessage)
If Len(strPassword) <= MIN_LENGTH Then
WScript.echo "4文字以上のパスワードを入力して下さい。"
strPassword = ""
End If
Loop

' ローカルコンピュータ名とローカルアカウント名取得
Set oWshNetwork = CreateObject("WScript.Network")
strComputerName = oWshNetwork.ComputerName
strUserName = oWshNetwork.UserName

' ローカルアカウントのパスワード変更
strADSIPath = "WinNT://" & strComputerName & "/" & strUserName
Set oUser = GetObject(strADSIPath)
oUser.Setpassword strPassword
oUser.SetInfo

' サーバアカウントのパスワード変更
'strADSIPath = "WinNT://" & strServerName & "/" & strUserName
Set oUser = GetObject(strADSIPath)
oUser.Setpassword strPassword
oUser.SetInfo

WScript.Echo "完了"

Set oWshNetwork = Nothing: Set oUser = Nothing

お礼

ありがとうございます。
試してみます。