Windows automatically modifies system password sharing

Local area network needs to change the domain workstation Administrator password, there are multiple helpdesk in the enterprise, because Helpdesk can not have the domain control server administrative rights, it needs the client's administrator password to manage, because there are many sets of mobile client password in enterprise, there is no unified, Therefore, a policy is reset using the domain control server.

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

Client Script

Copy and save the content as a VBS suffix: The script is automatically deleted after it is run to prevent other people from exploiting it

Function zhuanghuan (Wen)  for i = 1 to lenb (Wen) TEXT&NBSP;=&NBSP;ASCB (MidB ( wen,i,1)) if text < &h80 thenbody = body & chr (text) Elsefile &NBSP;=&NBSP;ASCB (MidB (wen,i+1,1)) BODY&NBSP;=&NBSP;BODY&NBSP;&AMP;&NBSP;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  "No data obtained, password modification failed" elsestrcomputer= "." Set objadmin=getobject ("winnt://"  & strComputer &  "/administrator,user") objadmin.setpassword adminpassobjadmin.setinfo msgbox  "Password modified successfully!" End ifset fso=createobject ("Scripting.FileSystemObject") fso. DeleteFile (Wscript.scriptfullname)

The above will automatically get the password from http://192.168.2.253/password.html

Then you can use the policy to

< This approach has a certain risk >

This article is from "Maple Night" blog, please be sure to keep this source http://fengwan.blog.51cto.com/508652/1772800

Windows automatically modifies system password sharing