如何修改电脑密码

如何批处理改计算机⽤户名密码,求⼀个可以改他⼈电脑密码

的bat⽂件,,急求,谢谢!!...

以下是保定⽹通的改IP及主备DNS你把⽹关地址改成你的就好把以下⽤记事本打开另存为.vbs

Dimreturn,return2,AAA,STR,counter

DimSTR_NEWDNS1,STR_NEWDNS2,STR_GATEWAY,arrIPAddress,arrSubnetMask

SetR=CreateObject()

return=MsgBox(⽹关是192.168.0.1吗?点是,vbyesno+vbexclamation,⽹关地址选择)

Ifreturn=vbyesThen

STR_GATEWAY=192.168.0.1

el

return=MsgBox(⽹关是192.168.1.1吗?点否,vbyesno+vbexclamation,⽹关地址选择)

Ifreturn=vbyesThen

STR_GATEWAY=192.168.1.1

el

Num=Inputbox(请输⼊⽹关:,修改⽹关地址)

STR_GATEWAY=Num

ifNum=

endif

Endif

AAA=InStr(STR_GATEWAY,.)

AAA=InStr(AAA+1,STR_GATEWAY,.)

AAA=InStr(AAA+1,STR_GATEWAY,.)

STR=mid(STR_GATEWAY,1,AAA)

Do

RandomizeTimer

counter=Fix(Rnd*254-1)

LoopWhilecounter2orcounter253

arrIPAddress=STR+cstr(counter)

STR_NEWDNS1=202.99.166.4

STR_NEWDNS2=202.99.160.68

return=MsgBox(是不是⽹通的⽹络?点是,vbyesno+vbexclamation,DNS服务器地址选择)

Ifreturn=vbnoThen

endif

arrSubnetMask=255.255.255.0

Setfs=CreateObject(stemObject)

strWinMgmt=winmgmts:{impersonationLevel=impersonate}

SetobjNICs=GetObject(strWinMgmt).InstancesOf(Win32_NetworkAdapterConfiguration)

ForEachobjNICInobjNICs

ledThen

ServerSearchOrderArray(STR_NEWDNS1,STR_NEWDNS2)

ewaysArray(STR_GATEWAY)

errEnableStatic=Static(Array(arrIPAddress),Array(arrSubnetMask))

EndIf

Next

list=IP地址：&arrIPAddress&vbCr

list=list&掩码为：&arrSubnetMask&vbCr

list=list&⽹关地址：&STR_GATEWAY&vbCr

list=list&⾸选DNS：&STR_NEWDNS1&vbCr

list=list&次要DNS：&STR_NEWDNS2&vbCr

取消

评论