Переменные среды - скрыть путь 'домашней папки' пользователя

amel27 · Отправлено: **14:46, 15-06-2011** | #2

Цитата morozov_s_v:

в названии присоединенного сетевого диска по умолчанию виден путь к домашней папке пользователя »

переименовать?
CMD/BAT - [решено] Скрипт - подключить сетевой диск и назначить ему имя.

morozov_s_v · Отправлено: **15:49, 15-06-2011** | #3

Цитата amel27:

переименовать?
CMD/BAT - [решено] Скрипт - подключить сетевой диск и назначить ему имя. »

Тык а через переменные среды разве нельзя ?
Ведь мне надо чтобы для каждого пользователя своя отдельная сетевая папка создавалась, а тут(CMD/BAT - [решено] Скрипт - подключить сетевой диск и назначить ему имя.) как я понял такого нет.

cameron · Конфигурация компьютера

делайте это через Group Policy Preferences, тогда скроете всё что хотите, если я правильно поняла идею.

iMirRor · Отправлено: **17:06, 15-06-2011** | #5

У меня в скрипте на VB прописано так:

Код:

const HKEY_CURRENT_USER = &H80000001
Set WSHNetwork = WScript.CreateObject("WScript.Network")
...
Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
On Error resume next
user = lcase(wshnetwork.username) 
...
WshNetwork.RemoveNetworkDrive "Q:","true","true"
WshNetwork.MapNetworkDrive "Q:","\\trmsrv\Personals$\Dep\"+user,"false"
objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user
objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user, "_LabelFromReg", "Персональный диск"
...
WScript.Quit

В данном случае скрипт, выполняющий при входе в домен ассоциирует диск Q с предварительно созданной папкой (\\trmsrv\Personals$\Dep\vasya_p для пользователя "vasya_p") и присваивает название ей: "Персональный диск".

morozov_s_v · Отправлено: **16:35, 16-06-2011** | #6

Цитата iMirRor:

У меня в скрипте на VB прописано так:
Код:
const HKEY_CURRENT_USER = &H80000001
Set WSHNetwork = WScript.CreateObject("WScript.Network")
...
Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
On Error resume next
user = lcase(wshnetwork.username)
...
WshNetwork.RemoveNetworkDrive "Q:","true","true"
WshNetwork.MapNetworkDrive "Q:","\\trmsrv\Personals$\Dep\"+user,"false"
objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user
objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user, "_LabelFromReg", "Персональный диск"
...
WScript.Quit
В данном случае скрипт, выполняющий при входе в домен ассоциирует диск Q с предварительно созданной папкой (\\trmsrv\Personals$\Dep\vasya_p для пользователя "vasya_p") и присваивает название ей: "Персональный диск". »

Испытал скриптик он работает, но все так и остается - те. виден полный путь в названии прикрепленного диска.

А можете, если не сложно пояснить вкратце строки скрипта

)

iMirRor · Отправлено: **18:28, 16-06-2011** | #7

Код:

const HKEY_CURRENT_USER = &H80000001

Здесь просто константа для ветки, где все эти настройки прописываются - оставляете как есть.

Код:

Set WSHNetwork = WScript.CreateObject("WScript.Network")

Объявляется переменная для работы с сетевыми ресурсами - оставляете как есть.

Код:

Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")

Объявляется переменная для работы с реестром - оставляете как есть.

Код:

On Error resume next

Если ошибка, не прерывать работу скрипта - оставляете как есть.

Код:

user = lcase(wshnetwork.username)

в переменной user - имя пользователя компьютера (в данном случае в нижнем регистре) - оставляете как есть

Код:

WshNetwork.RemoveNetworkDrive "Q:","true","true"

Отсоединяется диск Q, если он был подключен - оставляете как есть.

Код:

WshNetwork.MapNetworkDrive "Q:","\\trmsrv\Personals$\Dep\"+user,"false"

присоединяете Q к сетевому компьютеру (в данном случае на сервере trmsrv есть расшаренная папка Personals$ (знак доллара делает папку скрытой, когда расшариваете папку, добавьте к ее названию $ без пробела и ее не будет видно в проводнике), в ней подпапка Dep и в ней папки с именами всех пользователей (их логины). В Вашем случае нужно вместо "\\trmsrv\Personals$\Dep\" подставить свой путь, но внутри должны еще быть папки пользователей.

Код:

objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user

Здесь создается ветка реестра c названием того пути, что был прописан строкой ранее. В вашем случае ##trmsrv#Personals$#Dep# заменяете на свой путь, как видите, здесь символ # заменяет \

Код:

objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##trmsrv#Personals$#Dep#"+user, "_LabelFromReg", "Персональный диск"

здесь создается параметр _LabelFromReg в созданой ранее ветке и ему присваивается название диска (здесь - "Персональный диск"). В вашем случае так же ##trmsrv#Personals$#Dep# меняете на свой путь. И если точно замените, то диск будет называться как напишите. В 2000 это не действует, а в XP и выше - работает

Код:

WScript.Quit

Это конец скрипта.

morozov_s_v · Отправлено: **14:33, 17-06-2011** | #8

Цитата iMirRor:

iMirRor iMirRor вне форума »

Я изменил скрипт под себя :
-----------------------------------------------------------------------
const HKEY_CURRENT_USER = &H80000001

Set WSHNetwork = WScript.CreateObject("WScript.Network")

Set objReg = GetObject ("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
On Error resume next
user = lcase(wshnetwork.username)

WshNetwork.RemoveNetworkDrive "O:","true","true"
WshNetwork.MapNetworkDrive "O:","\\server2\test$\"+user, "false"
objReg.CreateKey HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##server2#test$#"+user
objReg.SetStringValue HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\##server2#test$#"+user, "LabelFromReg", "Персональный диск"

WScript.Quit
-----------------------------------------------------------------------
но все равно пишет полный путь : petrov на "server2\test$" (O)

iMirRor · Отправлено: **21:07, 17-06-2011** | #9

На клиентской машине переименуйте имя диска вручную.
Зайдите в реестр по этому пути "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\MountPoints2\" и посмотрите, есть ли ваше имя диска и сравните параметры. Может конечное имя расшаренной подпапки и значение user у вас разные? Попробуйте вывести на экран имя user, поместив команду

Код:

user = lcase(wshnetwork.username)
Wscript.echo user

в скрипт и сравнить с именем папки.

Iska · Отправлено: **05:19, 18-06-2011** | #10

morozov_s_v, попробуйте в части именования использовать Проводник:
vbscript: подключение сетевого ресурса и назначение ему описания
[решено] Скрипт - подключить сетевой диск и назначить ему имя.
(хотя у меня нет уверенности, отработает ли сие в logon-скрипте).