大家好，
現在有這么個情況
公司內部有一個檔案服務器，檔案服務器開設了一個網路共享盤，每個用戶都有其中一個或多個網路映射盤。
但員工并未加域，當時給員工做映射的時候都是以IP為路徑的，如(192.168.1.23),現在公司意識到，更換服務器IP的話，原有地址就沒有作用了，需要更換IP為機器域名，這樣以后更換IP，也不用在換地址。
求助：
1：如何使用批處理更換當前員工所有共享盤路徑。
2：如何使用批處理自動創建員工原有共享盤為域名方式。
3：在某一員工只有一個，或多個共享盤時，更換的時候要自動識別。
uj5u.com熱心網友回復：
給你個參考：
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
uj5u.com熱心網友回復：
做一個批處理檔案a.cmdNET 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 就可以了。
uj5u.com熱心網友回復：
將來公司又會意識到, 只要建個域, 無論員工在哪臺電腦上都可以用自己的用戶名登錄, 并且什么共享設定列印機設定等東西都沒有區別.
說穿了, 你們公司的IT經理只有網吧水平
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/110925.html
標籤：VB基礎類