批处理实现固定IP地址 系统自动登录 登录后锁定计算机

:oder
color 1d
cls
rem 菜单项
echo ╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
echo. ┋ 西西很久没做东西了，做一个小东西分享给大家 ┋
echo. ╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝
echo ╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
echo ┋ 纯属偶然 ┋
echo ┋ ┋
echo ┋ ┋
echo ┋ MY Space http://hi.baidu.com/xixilikexixi ┋
echo ┋ ┋
echo ┋ a.用户自动登录 b.系统登录后自动锁定 ┋
echo ┋ ┋
echo ┋ c.系统更换IP设置 d.退出 ┋
echo ┋ ┋
echo ┋ ┋
echo ╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝

set c=
set /p c=选择并回车：
if /I "%c%"=="a" goto auto
if /I "%c%"=="b" goto lock
if /I "%c%"=="c" goto setip
if /I "%c%"=="d" goto exit

:auto
cls
set user=
set /p user=请输入用户名：
set pass=
set /p pass=请输入密码：

if exist auto.reg del auto.reg
echo Windows Registry Editor Version 5.00 >auto.reg
echo. >>auto.reg
echo [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon] >>auto.reg
echo "DefaultUserName"="%user%" >>auto.reg
echo "AutoAdminLogon"="1" >>auto.reg
echo "Defaultpassword"="%pass%" >>auto.reg

regedit /s auto.reg
del /f /q auto.reg
echo 用户自动登陆设置完成……
ping -n 5 127.1>nul
goto oder

:lock
if exist lock.bat del lock.bat
if exist run.vbs del run.vbs

echo @echo off >lock.bat
echo rundll32 user32.dll LockWorkStation >>lock.bat
echo exit >>lock.bat

echo DIM objShell >run.vbs
echo set objShell=wscript.createObject("wscript.shell") >>run.vbs
echo iReturn=objShell.Run("lock.bat",0, TRUE) >>run.vbs

copy lock.bat %windir%\system32\ /y
copy run.vbs %windir%\system32\ /y
reg add HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v 西西的系统锁定 /d %windir%\system32\run.vbs /f
del /f /q lock.bat
del /f /q run.vbs
echo 系统登录后自动锁定设置完成……
ping -n 5 127.1>nul
goto oder

:setip
:oderip
cls
rem 菜单项
echo ╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
echo. ┋ 西西很久没做东西了，做一个小东西分享给大家 ┋
echo. ╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝
echo ╔┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╗
echo ┋ 纯属偶然 ┋
echo ┋ ┋
echo ┋ ┋
echo ┋ MY Space http://hi.baidu.com/xixilikexixi ┋
echo ┋ ┋
echo ┋ a.录入IP配置 b.加载IP配置 ┋
echo ┋ ┋
echo ┋ c.删除所有IP配置 d.返回 ┋
echo ┋ ┋
echo ┋ ┋
echo ╚┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉┉╝

set c=
set /p c=选择并回车：
if /I "%c%"=="a" goto lr
if /I "%c%"=="b" goto jz
if /I "%c%"=="c" goto delset
if /I "%c%"=="d" goto oder

:jz
cls
if exist xixi.txt del xixi.txt
if exist 1.txt del 1.txt
find "配置" %windir%\xixi.ini >xixi.txt
FOR /F "eol=; tokens=2 delims=:" %%i in (xixi.txt) do (
echo %%i>>1.txt
)
del /f /q xixi.txt
if exist 1.txt (goto jz1) ELSE echo 目前没有已有配置!请尝试录入。 & ping -n 5 127.1>nul & goto oderip

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!