www.cPanel.vn

Cách này áp dụng cho các máy tính chạy mô hình client/server (Active Directory)

Dim UserName

Dim UserDomain

UserDomain = InputBox("Enter the user's domain:")

UserName = InputBox("Enter the user's login name:")

Set User = GetObject("WinNT://" & UserDomain & "/"& UserName &"",user)



Dim NewPassword

NewPassword = InputBox("Enter new password")

Call User.SetPassword(NewPassword)



If err.number = 0 Then

Wscript.Echo "The password change was successful."

Else

Wscript.Echo "The password change failed!"

End if


Lưu nội dung trên thành một file đuôi .vbs. Sau đó ra ngoài DOS gõ:
cscript.exe filename.vbs
để chạy script. Lưu ý, bạn phải có đầy đủ quyền (permissions) cần thiết để thực hiện việc thay đổi password (thường là quyền Administrator).


Cách khác:
Dùng lệnh:
net user username password  (Chưa test bao giờ)