如何使用批处理更改网络映射盘的网络路径

[q664243973]

大家好，

现在有这么个情况
公司内部有一个文件服务器，文件服务器开设了一个网络共享盘，每个用户都有其中一个或多个网络映射盘。
但员工并未加域，当时给员工做映射的时候都是以IP为路径的，如(192.168.1.23),现在公司意识到，更换服务器IP的话，原有地址就没有作用了，需要更换IP为机器域名，这样以后更换IP，也不用在换地址。
求助：
1：如何使用批处理更换当前员工所有共享盘路径。
2：如何使用批处理自动创建员工原有共享盘为域名方式。
3：在某一员工只有一个，或多个共享盘时，更换的时候要自动识别。

[Tiger_Zhao]

做一个批处理文件a.cmd

NET USE > b.txt
c.exe

写个程序 c.exe 读取 b.txt 文件、输出 d.cmd 文件。
从 txt 文件中逐个解析出盘符和网络路径，如果属性要替换的路径，向 cmd 文件写入下面两行

NET USE 盘符 /DELETE
NET USE 盘符 替换后的路径

最后程序用 shell 语句调用 d.cmd 批处理。

只要复制 a.cmd 和 c.exe 到当前员工有读写权限的目录，执行 a.cmd 就可以了。

[Carlven2012]

给你个参考：

Set objNetwork = WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
	objNetwork.RemoveNetworkDrive colDrives.Item(i), true, true
Next
Set objNetwork = Nothing
 
dim netdrive
set netdrive = CreateObject("wscript.network")
netdrive.MapNetworkDrive "x:","\\ADDC\scool$\manager"
netdrive.MapNetworkDrive "y:","\\ADDC\scool$\project"
netdrive.MapNetworkDrive "z:","\\ADDC\scool$\public"
set netdrive=nothing
 
 dim netrename
set netrename = CreateObject("Shell.Application")
netrename.NameSpace("x:").Self.Name = "Manager"
netrename.NameSpace("y:").Self.Name = "Project"
netrename.NameSpace("z:").Self.Name = "Public"
set netrename=nothing
 
 dim netprinter
Set netprinter = CreateObject("WScript.Network")
netprinter.AddWindowsPrinterConnection "\\pdc\receptionist"
netprinter.AddWindowsPrinterConnection "\\pdc\ajpaul"
netprinter.AddWindowsPrinterConnection "\\pdc\accounting"
netprinter.AddWindowsPrinterConnection "\\pdc\upstairs"
netprinter.AddWindowsPrinterConnection "\\pdc\logistics"
netprinter.AddwindowsPrinterConnection "\\pdc\canonps"
set netprinter=nothing

[熊孩子开学喽]

引用

现在公司意识到，更换服务器IP的话，原有地址就没有作用了，需要更换IP为机器域名，这样以后更换IP，也不用在换地址。

将来公司又会意识到, 只要建个域, 无论员工在哪台电脑上都可以用自己的用户名登录, 并且什么共享设置打印机设置等东西都没有区别. 说穿了, 你们公司的IT经理只有网吧水平