Board logo

标题: [文件操作] 批处理替换hosts文件命令执行了,但是个别电脑会出现替换不成功,望大佬看一下 [打印本页]

作者: asd674744769    时间: 2023-9-1 09:05     标题: 批处理替换hosts文件命令执行了,但是个别电脑会出现替换不成功,望大佬看一下

  1. @echo off
  2. chcp 65001
  3. echo replace hosts
  4. copy /y hosts C:\Windows\System32\drivers\etc\
  5. copy /y fcc.xml C:\Siemens\HG_TC12_Client_Pro\tccs
  6. echo 文件替换完成,重新登录
  7. pause
  8. exit
  9. pause
复制代码
手动替换的话 提示《你需要提供管理员权限才能复制到此文件夹》,用了管理员运行也是一样结果,替换不成功
作者: hfxiang    时间: 2023-9-1 09:48

回复 1# asd674744769

试试
  1. @fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close)&&exit
  2. @echo off
  3. chcp 65001
  4. echo replace hosts
  5. copy /y hosts C:\Windows\System32\drivers\etc\
  6. copy /y fcc.xml C:\Siemens\HG_TC12_Client_Pro\tccs
  7. echo 文件替换完成,重新登录
  8. pause
复制代码

作者: asd674744769    时间: 2023-9-1 11:33

回复 2# hfxiang


    好的 谢谢
作者: 77七    时间: 2023-9-1 12:47

  1. @fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close)&&exit
复制代码

这个会切换目录吧,需要 cd /d "%~dp0" 切换回来
作者: hfxiang    时间: 2023-9-1 14:28

回复 4# 77七

是的,这个俺疏忽了
作者: asd674744769    时间: 2023-9-1 18:23

回复 2# hfxiang


    不行 我看这个没动 要解决那个允许问题才行
作者: 77七    时间: 2023-9-1 18:53

  1. @fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*",,"runas",1)(window.close)&&exit
  2. @echo off
  3. chcp 65001
  4. rem 批处理保存为utf-8编码格式
  5. echo replace hosts
  6. pushd "C:\Windows\System32\drivers\etc\"
  7. copy /y "%~dp0hosts" .
  8. popd
  9. pushd "C:\Siemens\HG_TC12_Client_Pro\"
  10. copy /y "%~dp0fcc.xml" "tccs"
  11. popd
  12. echo 文件替换完成,重新登录
  13. pause
  14. exit
复制代码

作者: 77七    时间: 2023-9-1 19:01

C:\Siemens\HG_TC12_Client_Pro\tccs
不知道这是文件还是文件夹,如果不对,自行修改7楼代码
作者: asd674744769    时间: 2023-9-4 18:10

回复 8# 77七


    文件
作者: 77七    时间: 2023-9-4 18:36

本帖最后由 77七 于 2023-9-4 19:44 编辑

回复 9# asd674744769


   文件不需要修改了,反馈下结果
作者: Batcher    时间: 2023-9-4 19:16

回复 1# asd674744769


请参考Q-04把bat文件保存为ANSI编码:
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA
  1. @fltmc >nul || mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~f0","%*",,"runas",1)(window.close) && exit /b
  2. @echo off
  3. cd /d "%~dp0"
  4. copy /y hosts C:\Windows\System32\drivers\etc\
  5. copy /y fcc.xml C:\Siemens\HG_TC12_Client_Pro\tccs
  6. echo 文件替换完成,重新登录
  7. pause
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2