如何批处理改计算机用户名密码,求一个可以改他人电脑密码的bat文件,,急求,谢谢!!...

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

Dim return,return2,AAA,STR,counter

Dim STR_NEWDNS1,STR_NEWDNS2,STR_GATEWAY,arrIPAddress,arrSubnetMask

Set R = CreateObject(WScript.Shell)

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

If return=vbyes Then

STR_GATEWAY = 192.168.0.1

else

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

If return=vbyes Then

STR_GATEWAY = 192.168.1.1

else

Num=Inputbox (请输入网关:,修改网关地址)

STR_GATEWAY = Num

if Num= then wscript.quit

end if

End if

AAA=InStr(STR_GATEWAY,.)

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

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

STR=mid(STR_GATEWAY,1,AAA)

Do

Randomize Timer

counter = Fix(Rnd * 254 - 1)

Loop While counter2 or counter253

arrIPAddress = STR+cstr(counter)

STR_NEWDNS1 = 202.99.166.4

STR_NEWDNS2 = 202.99.160.68

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

If return=vbno Then

end if

arrSubnetMask = 255.255.255.0

Set fs=CreateObject(Scripting.FileSystemObject)

strWinMgmt=winmgmts:{impersonationLevel=impersonate}

Set objNICs = GetObject( strWinMgmt ).InstancesOf(Win32_NetworkAdapterConfiguration)

For Each objNIC In objNICs

If objNIC.IPEnabled Then

objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)

objNIC.SetGateways Array(STR_GATEWAY)

errEnableStatic=objNIC.EnableStatic(Array(arrIPAddress), Array(arrSubnetMask))

End If

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

取消

评论