电脑问题在线咨询

局域网共享一键修复 bat 打印机、局域网共享一键修复OKShare

电脑维修咨询时间:5年前阅读:

优秀程序,办公室必备,维护人员必备,告别局域网共享繁琐设置!本程序专为快速解决局域网共享失败而制作,采用批处理编写,绿色开源,无需安装,安全无毒。

对于PC之间共享访问失败、无法访问PC共享的打印机、安卓设备访问PC共享失败等问题都可进行修复,兼容XP及之后Windows系统。

局域网共享一键修复 bat 打印机、局域网共享一键修复OKShare  第1张

【更新说明】

2018.5.8

新增:自动添加Win10的“SMB1.0/CIFS文件共享支持”组件。

新增:自动修复Win10部分版本由于组策略默认设置造成无法匿名访问共享的问题。

修正:部分代码造成系统版本判断错误(感谢“leon”反馈)。

改进:部分菜单和提示说明。

【使用说明】(首次使用必看)

本程序无需安装,在共享有问题的系统中运行(如不能判断原因,建议双方系统都运行);

必须鼠标右键点击本程序,选“以管理员身份运行”,否则修复无效;

运行中遇到360、腾讯管家等弹出安全警告时,选择“允许”或“放行”,否则修复无效;

修复完成后必须重启系统,否则修复无效;

本程序不仅可以自动完成共享和权限设置,也支持手动设置,具体方法见下;

方法:打开本程序,输入“4”(共享和权限设置),按回车,打开系统的“共享文件夹”管理器,右键“共享”,可新建共享;右键右侧共享文件夹可停止共享;

右键右侧共享文件夹,选择属性”,可设置文件夹的“*共享权限”和“*安全”(权限)。*注释:文件夹的“共享权限”和“安全”(权限)是两个概念,都会影响共享。

文件名:局域网共享一键修复18.5.8.zip

MD5:6b8adf8bf3c411b6f92001ce73c5e075

百度网盘下载

链接: https://pan.baidu.com/s/1BK4l6E30bvuHudy5_Gl9sA 密码: fux4

免下载方方式,可直接复制代码,新建bat运行!

@echo off
color 2f
mode con cols=50 lines=30
title  OKShare  【制作:wnsdt】
ver | findstr "6.">nul && set bulid=nt6 && goto sc_yhbl
ver | findstr "10.">nul && set bulid=nt10 && goto sc_yhbl
set bulid=nt5
:sc_yhbl
reg query "HKCUEnvironment" /v temp >nul 2>nul||set "usertemp=%USERPROFILE%" && goto sc_top
set usertemp=%temp%
:sc_top
cls
del /q %temp%info.txt>nul 2>nul
:sc_menu
echo.&echo.&echo.
echo             局域网共享一键修复 18.5.8
echo.
echo    --------------------------------------------
echo.&echo.&echo.
echo               1、查看网络信息
echo.
echo               2、简单共享(无密码)
echo.
echo               3、密码共享
echo.
echo               4、共享和权限管理
echo.&echo.&echo.&echo.&echo.
set select=
set str1=1234
set /p select= 输入数字,按回车:
if not defined select goto sc_wrong
echo %select%|findstr "[%str1%]">nul||goto sc_wrong
if %select%==1 (goto sc_info)
if %select%==2 (goto sc_zd)
if %select%==3 (goto sc_sd)
if %select%==4 (goto sc_gl) 
if %select%==5 (goto sc_help) 
if %select%==6 (goto sc_print) 
if %select%==7 (goto sc_update) 
:sc_wrong
mshta vbscript:msgbox("只能输入1-4的数字",64,"提示")(window.close) 
goto sc_top
:sc_info
cls
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                  正在处理信息....
if %bulid%==nt5 (goto sc_nt5) else (goto sc_nt6)
:sc_nt5
(echo.
echo.)>>%usertemp%info.txt
ping www.baidu.com -n 1 >nul || echo              互联网状态:       [ 离线 ]>>%usertemp%info.txt && goto sc_ver_nt5
echo              互联网状态:       [ 在线 ]>>%usertemp%info.txt
:sc_ver_nt5
(echo ----------------------------------------------------------
echo.)>>%usertemp%info.txt
for /f "skip=1 tokens=2-4 delims=, " %%a in ('wmic os get caption') do (
if exist %windir%SysWOW64 echo         系统版本:       %%a %%b %%c  64位>>%usertemp%info.txt & goto sc_ver_nt5_next
echo         系统版本:       %%a %%b %%c  32位>>%usertemp%info.txt
)
:sc_ver_nt5_next
(echo.
echo         计算机名:            %COMPUTERNAME%
echo.)>>%usertemp%info.txt
for /f "tokens=2 delims= " %%a in ('net config workstation^|findstr /c:"工作站域"') do echo         工作组:              %%a>>%usertemp%info.txt & goto sc_info_nt5
:sc_info_nt5
(echo.
echo         当前用户:            %USERNAME%
echo.)>>%usertemp%info.txt
for /f "delims=" %%a in ('date /t') do echo         本机日期:            %%a>>%usertemp%info.txt
echo.>>%usertemp%info.txt
for /f "delims=" %%a in ('time /t') do echo         本机时间:            %%a>>%usertemp%info.txt
echo ---------------------------------------------------------->>%usertemp%info.txt
goto sc_info_more
:sc_nt6
(echo.
echo.)>>%usertemp%info.txt
ping www.baidu.com -n 1 >nul || echo          互联网状态:       [ 离线 ]>>%usertemp%info.txt && goto sc_ver_nt6
echo          互联网状态:       [ 在线 ]>>%usertemp%info.txt
:sc_ver_nt6
(echo --------------------------------------------------
echo.)>>%usertemp%info.txt
for /f "skip=1 tokens=2-5 delims=?, " %%a in ('wmic os get caption') do (
if exist %windir%SysWOW64 echo    系统版本:      %%a %%b %%c %%d 64位>>%usertemp%info.txt & goto sc_ver_nt6_next
echo    系统版本:       %%a %%b %%c %%d 32位>>%usertemp%info.txt
)
:sc_ver_nt6_next
(echo.
echo    计算机名:            %COMPUTERNAME%
echo.)>>%usertemp%info.txt
for /f "tokens=2 delims= " %%a in ('net config workstation^|findstr /c:"工作站域"') do echo    工作组:              %%a>>%usertemp%info.txt
(echo.
echo    当前用户:            %USERNAME%
echo.)>>%usertemp%info.txt
for /f "delims=" %%a in ('date /t') do echo    本机日期:            %%a>>%usertemp%info.txt
echo.>>%usertemp%info.txt
for /f "delims=" %%a in ('time /t') do echo    本机时间:            %%a>>%usertemp%info.txt
echo -------------------------------------------------->>%usertemp%info.txt
:sc_info_more
if %bulid%==nt5 ipconfig /all|findstr /v /c:"Windows IP Configuration"|findstr /v /c:"Host Name"|findstr /v /c:"Primary Dns Suffix"|findstr /v /c:"Node Type"|findstr /v /c:"IP Routing Enabled"|findstr /v /c:"WINS Proxy Enabled">>%usertemp%info.txt && goto sc_info_next
ipconfig /all|findstr /v /c:"Windows IP 配置"|findstr /v /c:"主机名"|findstr /v /c:"主 DNS 后缀"|findstr /v /c:"节点类型"|findstr /v /c:"IP 路由已启用"|findstr /v /c:"WINS 代理已启用">>%usertemp%info.txt
:sc_info_next
start /w notepad %temp%info.txt
del /q %temp%info.txt>nul 2>nul
goto sc_top
:sc_zd
call :sc_qxfix
cls
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                    开始修复......
net user guest /active:yes>nul 2>nul
net user guest "">nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v forceguest /t REG_DWORD /d 0x1 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v LimitBlankPasswordUse /t REG_DWORD /d 0x0 /f>nul 2>nul
goto sc_main
:sc_sd
call :sc_qxfix
cls
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                    开始修复......
net user guest /active:no>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v forceguest /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaMSV1_0" /v NtlmMinClientSec /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaMSV1_0" /v NtlmMinServerSec /t REG_DWORD /d 0x0 /f>nul 2>nul
goto sc_main
:sc_main
sc config LanmanWorkstation start= auto>nul 2>nul
sc config LanmanServer start= auto>nul 2>nul
sc config Winmgmt start= auto>nul 2>nul
sc config RpcSs start= auto>nul 2>nul
sc config Netman start= auto>nul 2>nul
sc config RasMan start= demand>nul 2>nul
sc config SSDPSRV start= auto>nul 2>nul
sc config BFE start= auto>nul 2>nul
sc config ALG start= demand>nul 2>nul
sc config SharedAccess start= auto>nul 2>nul
net start SharedAccess /y>nul 2>nul
sc config Browser start= auto>nul 2>nul
net start Browser /y>nul 2>nul
sc config Dnscache start= auto>nul 2>nul
net start Dnscache /y>nul 2>nul
sc config Dhcp start= auto>nul 2>nul
net start Dhcp /y>nul 2>nul
sc config lmhosts start= auto>nul 2>nul
net start lmhosts /y>nul 2>nul
sc config Spooler start= auto>nul 2>nul
net start Spooler /y>nul 2>nul
sc config upnphost start= demand>nul 2>nul
net start upnphost /y>nul 2>nul
reg query "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesNetlogon" /v Start|findstr "0x4">nul 2>nul && sc config Netlogon start= demand>nul 2>nul
reg add "HKLMSYSTEMCurrentControlSetservicesNetBTParameters" /v TransportBindName /t REG_SZ /d Device /f>nul 2>nul
reg delete "HKLMSYSTEMCurrentControlSetservicesLanmanServerParameters" /v SMB1 /F>nul 2>nul
reg delete "HKLMSYSTEMCurrentControlSetservicesLanmanServerParameters" /v SMB2 /F>nul 2>nul
reg delete "HKLMSYSTEMCurrentControlSetservicesNetBTParameters" /v SMBDeviceEnabled /F>nul 2>nul
sc config netbt start= system>nul 2>nul
net start netbt>nul 2>nul
if %bulid%==nt5 (goto sc_sernt5) else (goto sc_sernt6)
:sc_sernt5
sc config PlugPlay start= auto>nul 2>nul
sc config TapiSrv start= auto>nul 2>nul
sc config Nla start= auto>nul 2>nul
net start Nla /y>nul 2>nul
netsh firewall set opmode mode=disable>nul 2>nul
goto sc_main2_etc
:sc_sernt6
sc config DcomLaunch start= auto>nul 2>nul
sc config RpcEptMapper start= auto>nul 2>nul
sc config SamSs start= auto>nul 2>nul
sc config nsi start= auto>nul 2>nul
sc config SstpSvc start= demand>nul 2>nul
sc config MpsSvc start= auto>nul 2>nul
net start MpsSvc /y>nul 2>nul
sc config NlaSvc start= auto>nul 2>nul
sc config netprofm start= auto>nul 2>nul
sc config fdPHost start= auto>nul 2>nul
net start fdPHost /y>nul 2>nul
sc config FDResPub start= auto>nul 2>nul
net start FDResPub /y>nul 2>nul
sc config HomeGroupListener start= auto>nul 2>nul
sc config WMPNetworkSvc start= auto>nul 2>nul
net start WMPNetworkSvc /y>nul 2>nul
sc config HomeGroupProvider start= auto>nul 2>nul
net start HomeGroupProvider /y>nul 2>nul
netsh advfirewall set allprofiles state off>nul 2>nul
:sc_main2_etc
(echo [Unicode]
echo Unicode=yes
echo [Version]
echo signature="$CHICAGO$"
echo Revision=1
echo [Privilege Rights]
echo sedenynetworklogonright = 
echo senetworklogonright = Everyone,Administrators,Users,Power Users,Backup Operators,guest)>>%usertemp%zcl.inf
secedit /configure /db %usertemp%zcl.sdb /cfg %usertemp%zcl.inf /log %usertemp%zcl.log /quiet
del /q %usertemp%zcl.*>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsaMSV1_0" /v LmCompatibilityLevel /t REG_DWORD /d 0x1 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v restrictanonymous /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v restrictanonymoussam /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v everyoneincludesanonymous /t REG_DWORD /d 0x1 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v NoLmHash /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesLanmanServerParameters" /v AutoShareServer /t REG_DWORD /d 0x1 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesLanmanServerParameters" /v AutoShareWks /t REG_DWORD /d 0x1 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesLanmanServerParameters" /v restrictnullsessaccess /t REG_DWORD /d 0x0 /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesBrowserParameters" /v MaintainServerList /t REG_SZ /d Auto /f>nul 2>nul
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesBrowserParameters" /v IsDomainMaster /t REG_SZ /d FALSE /f>nul 2>nul
for /f "delims=" %%a in ('reg query "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesNetBTParametersInterfaces" /s /e /f "0x2"^|findstr "Tcpip_"') do reg add "%%a" /v NetbiosOptions /t REG_DWORD /d 0x0 /f>nul 2>nul
reg query "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesNetBTParameters" /v EnableLMHOSTS|findstr "0x0">nul 2>nul && reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetservicesNetBTParameters" /v EnableLMHOSTS /t REG_DWORD /d 0x1 /f>nul 2>nul
reg delete "HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorerRemoteComputerNameSpace{D6277990-4C6A-11CF-8D87-00AA0060F5BF}" /f>nul 2>nul
net use * /del /y>nul 2>nul
net config server /hidden:no>nul 2>nul
net share ipc$>nul 2>nul
if %bulid%==nt10 powershell -NonInteractive "Enable-WindowsOptionalFeature -Online -FeatureName SMB1Protocol">nul 2>nul && reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetServicesLanmanWorkstationParameters" /v AllowInsecureGuestAuth /t REG_DWORD /d 0x1 /f>nul 2>nul
goto sc_tip
:sc_gl
cls
reg query "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v forceguest|findstr "0x1">nul 2>nul||goto classic
reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v forceguest /t REG_DWORD /d 0x0 /f>nul 2>nul
set jlb=y
:classic
echo.&echo.&echo.&echo.
echo          功能:管理本机共享,修改共享权限
echo   ----------------------------------------------
echo.&echo.&echo.&echo.&echo.
echo                    【使用说明】
echo.&echo.
echo        点左侧“共享”可查看本机所有共享;
echo.
echo        右键点左侧“共享”可“新建共享”;
echo.
echo        右键点右侧共享可“停止共享”(能多选);
echo.
echo        右键点右侧共享选“属性”可修改权限;
echo.&echo.&echo.&echo.&echo.&echo.&echo.
fsmgmt.msc
if %jlb%==y reg add "HKEY_LOCAL_MACHINESYSTEMCurrentControlSetControlLsa" /v forceguest /t REG_DWORD /d 0x1 /f>nul 2>nul
goto sc_top
:sc_tip
cls
echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo                    修复已完成!!!
mshta vbscript:msgbox("请手动重启计算机",64,"提示")(window.close) 
exit
:sc_help
cls
start "%ProgramFiles%Internet Exploreriexplore.exe" "https://www.ldgov.com"
goto sc_top
:sc_print
cls
start "%ProgramFiles%Internet Exploreriexplore.exe" "https://www.ldgov.com"
goto sc_top
:sc_update
cls
start "%ProgramFiles%Internet Exploreriexplore.exe" "https://www.ldgov.com"
goto sc_top
goto :eof
:sc_qxfix
cls
echo.&echo.&echo.
echo                     【使用说明】
echo    --------------------------------------------
echo.
echo          复制共享文件夹的地址栏路径到下方
echo.
echo           如果只共享打印机,按回车键跳过
echo.&echo.&echo.&echo.&echo.&echo.&echo.
echo 粘贴路径,按回车:
echo.&echo.
set /p lj=
for %%a in ("%lj%") do set name=%%~na
net share "%name%"="%lj%">nul 2>nul
if %bulid%==nt5 cacls "%lj%" /t /e /p everyone:f >nul 2>nul && goto :eof
icacls "%lj%" /grant everyone:(oi)(ci)f>nul 2>nul
goto :eof


我来回答

关注我们

qrcode

扫一扫二维码关注我们的微信公众号