洛阳翼展电脑

一键清零.vbs

2018-10-6 乱云飞 评论(0) 浏览(955) 标签: 一键清零 vbs代码 vbs脚本 自动输入脚本

Dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000
WshShell.AppActivate "_SSCOM"
WScript.Sleep 2000
WshShell.SendKeys "^{Z}"
WScript.Sleep 2000
WshShell.SendKeys "/1{ENTER}"
WScript.Sleep 2000
WshShell.SendKeys "N1{ENTER}"
WScript.Sleep 20000
WshShell.SendKeys "^{C}"
WScript.Sleep 5000
msgbox "                                      "& vbCrlf &"^_^ 清零完成，可以拔掉硬盘了。"& vbCrlf &"                                      ",0,"一键清零硬盘通电时间"
wscript.quit

VBS添加管理员用户

2018-7-22 乱云飞 评论(0) 浏览(890) 标签: vbs代码 添加管理员账号

On Error Resume Next
set wsh=wscript.createobject("wscript.shell")
wsh.run "net user admin admin***  /add"
wsh.run "net localgroup administrators admin /add"

改计算机名为数字脚本

2018-7-19 乱云飞 代码 评论(1) 浏览(910) 标签: 批处理 vbs代码 修改计算机名称

S="2727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727270D0A272020B3ACD4BDBCBCCAF5D6A7B3D6D6D0D0C4D6C6D7F7202020205757572E434E32302E434E2020202020323030362D382D333020202020515133343537393435303120202020270D0A2727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727272727270D0A64696D205753480D0A53657420575348203D204372656174654F626A6563742822577363726970742E5368656C6C22290D0A64696D20636D706E616D652C7374720D0A737472203D2028636872283130292B636872283133292B636872283130292B636872283133292B636872283130292B63687228313329290D0A636D706E616D65203D205472696D28496E707574426F7828223D3D3D205757572E434E32302E434E203D3D3D2051513334353739343530312022267374722622C7EBCAE4C8EBBCC6CBE3BBFAC3FBA3BA222C22B3ACD4BDBCBCCAF5D6A7B3D6D6D0D0C4D6C6D7F72229290D0A494620636D706E616D65203D202222205448454E0D0A4D5347426F782022C3BBD3D0CAE4C8EBBCC6CBE3BBFAC3FB222C34302C22BCC6CBE3BBFAC3FBB8FCB8C4B3CCD0F2220D0A575363726970742E517569740D0A454E442049460D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030315C436F6E74726F6C5C436F6D70757465724E616D655C436F6D70757465724E616D655C436F6D70757465724E616D65222C636D706E616D652C225245475F535A220D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030315C436F6E74726F6C5C436F6D70757465724E616D655C416374697665436F6D70757465724E616D655C436F6D70757465724E616D65222C636D706E616D652C225245475F535A220D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030315C53657276696365735C54637069705C506172616D65746572735C4E5620486F73746E616D65222C636D706E616D652C225245475F535A220D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030315C53657276696365735C54637069705C506172616D65746572735C486F73746E616D65222C636D706E616D652C225245475F535A220D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030335C436F6E74726F6C5C436F6D70757465724E616D655C436F6D70757465724E616D655C436F6D70757465724E616D65222C636D706E616D652C225245475F535A220D0A5753482E5265675772697465202022484B45595F4C4F43414C5F4D414348494E455C53595354454D5C436F6E74726F6C5365743030335C53657276696365735C54637069705C506172616D65746572735C4E5620486F73746E616D65222C636D706E616D652C225245475F535A220D0A00000000000000000000000000000000000000000000":D="EXECUTE """"":C="&CHR(&H":N=")":DO WHILE LEN(S)>1:IF ISNUMERIC(LEFT(S,1)) THEN D=D&C&LEFT(S,2)&N:S=MID(S,3) ELSE D=D&C&LEFT(S,4)&N:S=MID(S,5)
LOOP:EXECUTE D