Windows自動修改系統密碼分享

標籤：windows

區域網路內需要批量更改域工作站的管理員密碼，企業記憶體在多個HelpDesk，因為HelpDesk不能有域控伺服器系統管理權限，因此需要用戶端的管理員密碼進行管理，因為企業內人員的流動用戶端密碼存在多套，沒有統一，因此使用域控伺服器下發策略的方式進行重設。

650) this.width=650;" src="http://s1.51cto.com/wyfs02/M00/80/03/wKioL1c0bWai0-JhAAAJpca402c480.png" title="96.png" alt="wKioL1c0bWai0-JhAAAJpca402c480.png" />

用戶端指令碼

將一下內容複寫並儲存為vbs尾碼:指令碼運行完之後會自動進行刪除，防止被其他人員利用

Function zhuanghuan(wen) For i = 1 To LenB(wen)text = AscB(MidB(wen,i,1))If text < &H80 Thenbody = body & Chr(text)Elsefile = AscB(MidB(wen,i+1,1))body = body & Chr(CLng(text) * &H100 + CInt(file))i = i + 1End IfNextzhuanghuan = bodyEnd Functiondim url,adminpassurl="http://192.168.2.253/password.html"set xml=createobject("MSXML2.XMLHTTP")xml.open "get",url,falsexml.sendadminpass=zhuanghuan(xml.responsebody)if adminpass="" thenmsgbox "未擷取資料,密碼修改失敗"elsestrComputer="."Set objAdmin=GetObject("WinNT://" & strComputer & "/administrator,user")objAdmin.SetPassword adminpassobjAdmin.SetInfo Msgbox "密碼修改成功!"end ifSet fso=CreateObject("Scripting.Filesystemobject")fso.DeleteFile(WScript.ScriptFullName)

以上會自動從http://192.168.2.253/password.html擷取密碼

然後利用策略進行下發即可

<此方式具有一定的風險>

本文出自 “楓林晚” 部落格，請務必保留此出處http://fengwan.blog.51cto.com/508652/1772800

Windows自動修改系統密碼分享