|
- @echo off
- setlocal enabledelayedexpansion
- ::针对公司电脑进行管理,大多数是受限用户(users)
- ::非域控环境下在多用户打开服务器共享文件时提示正打开的用户名的修改,只收集了WPS和MSOFFICE,AUTOCAD没有这个健值所以想到改电脑名称。
- ::先安装好软件,登陆好访问\\srv10服务器的共享文件夹的用户(后面要取这个用户名)。
- ping -n 1 127.0.0.1 >NUL
- chcp 437
- pushd "%~dp1"
- set newname=noname
- for /f "tokens=2 delims= " %%a in ('cmdkey /list:srv10^|find "User:"') do (set newname=%%a)
- if '%newname%==' set newname=noname
- ::取IP址址后两段放在电脑名后面
- for /f "tokens=15,16 delims=. " %%a in ('route print ^|findstr 0.0.0.0.*0.0.0.0') do set myip=%%a_%%b
- set newc=%newname%_%myip%
- echo %newc%
- ::start1
- ::修改OFFICE和WPS的用户信息,打开共享文件显示自己的用户名
- reg add "HKCU\Software\kingsoft\Office\6.0\Common\UserInfo" /f /v "UserName" /t REG_SZ /d "%newname%"
- reg add "HKCU\Software\kingsoft\PDF\common\UserInfo" /f /v "UserName" /t REG_SZ /d "%newname%"
- reg add "HKCU\Software\Microsoft\Office\Common\UserInfo" /f /v "UserName" /t REG_SZ /d "%newname%"
- ::生成要修改电脑名称的批处理,稍后以管理员身份执行,注意生成的路径。
- echo reg add "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ActiveComputerName" /f /v "ComputerName" /t REG_SZ /d "%newc%" > d:\soft\new_name.bat
- echo reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /f /v "Hostname" /t REG_SZ /d "%newc%" >> d:\soft\new_name.bat
- echo reg add "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters" /f /v "NV Hostname" /t REG_SZ /d "%newc%" >> d:\soft\new_name.bat
- ping -n 2 127.0.0.1 >NUL
- ::以管理员身份执行改电脑名称
- runas /noprofile /user:administrator d:\soft\new_name.bat
- Popd
- EXIT
复制代码
谢谢,麻烦大家了,作个标记吧 |
|