企業檔案伺服器需隱藏無權限使用者看不見的共享資料夾,防止資訊洩露。Win7/Server 2008 R2 可透過官方 Access-based Enumeration (ABE) 功能實現;或部署第三方「大勢至共享資料夾管理軟體」達成更細粒度權限控制 (唯讀、防複製、防另存、防列印)。
利用 NTFS 權限過濾共享資料夾可見性:使用者僅能看到具備至少「讀取」權限的資料夾/檔案,無權限者在總管中完全不顯示。
regsvr32 abeui.dll 註冊 UI 擴展。admin (僅特定群組讀取) 與 user (Everyone 讀取) → 設定 NTFS 安全性權限移除繼承、移除 Users 群組。admin 資料夾自動隱藏,僅顯示 user。
On error resume next
strRemotePath = "\\192.168.1.1\file"
strNewName = "磁碟名稱"
Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
Set objShell = CreateObject("Shell.Application")
strDriveLetter = colDrives.Item(i)
strName = objShell.NameSpace(strDriveLetter).Self.Name
strName = Left(strName, Len(strName)-5)
If strName = strNewName Then WScript.Quit
strDriveLetter = Chr(Asc(Left(colDrives.Item(i),1))-1) & ":"
Next
If strDriveLetter = "" Then strDriveLetter = "Z:"
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNewName
Win7 音訊服務未執行導致無聲音?啟動 Windows Audio 服務或更新聲卡驅動雙管齊下
Win7 Word 開啟提示「範本損壞」:刪除 Normal.dot 範本檔即可修復
Windows 8 移除「這台電腦」下的視訊、圖片、文件、下載等資料夾:登錄檔刪除命名空間
Windows RT 重磅更新確認:下月加入開始功能表(早期預覽版風格)、修改鎖定畫面適配平板
Windows 10 預覽版 10154 新增三款桌布下載:海灘奔跑美女 (4K)、攀岩、銀河
Windows 7 優化工作列預覽速度:登錄調整縮圖顯示延遲時間
Win10 Insider Preview 升級 Build 10547 完整流程:快速通道設定 > 檢查更新 > 自動下載安裝 > 重開機配置