VBS修改本机的账号密码

 On Error Resume Next 

strComputer = "."
Set WshShell = WScript.CreateObject("WScript.Shell") 

'Query Admin Members
Set colGroups = GetObject("WinNT://" & strComputer)
colGroups.Filter = Array("group")
For Each objGroup In colGroups
'check the administrators local group members..
If (InStr(1,objGroup.Name,"Administrators",1) >0) Then
For Each objUser in objGroup.Members
strUSER=strUSER &vbCrLf& objuser.class &"="& objUser.name
next
End If
Next

sUser=InputBox("请输入您要修改的账户","修改账户","zhaojianlu")
Set objUser = GetObject("WinNT://" & strComputer & "/" & Chr(34) & sUser & Chr(34))
sPass=InputBox("请输入您要修改的密码","修改密码","123456")
objUser.SetPassword sPass
objUser.Setinfo 

If Err <> 0 Then
'write eventlog
call logit ("1","Admin Password Change: Failed " & Err & vbCrLf&Err.Description _
&vbCrLf&Err.Source &vbCrLf& strUSER)
MsgBox "密码修改失败，请确认您有管理员权限。"
Else
call logit ("0","Admin Password Change: Successfull")
MsgBox "密码修改成功"
End if 

'*******************************
Function logit(strStatus,strDescription)
WshShell.LogEvent strStatus,strDescription
End Function

　　 欢迎加入QQ技术群聊：70539804