Подключение диска осуществляется с помощью команды use:

; элементами массива $usergroup_name[] являются группы, членами которых является текущий пользователь

for $t=0 to ubound($usergroup_name)

if instr($usergroup_name[$t],$group_b)<>0

; критерием персонализации является членство

; в перечисленных группах PersonalGroup1…3

if instr(ucase($group_b),ucase("PersonalGroup1"))<>0 or instr(ucase($group_b),ucase("PersonalGroup2"))<>0 or instr(ucase($group_b),ucase("PersonalGroup3"))<>0

    if instr($cn,@userid)<>0

use $ds_s+":" $uncname

? " !!!!" + $ds_s+":" $uncname

                 if @error=5 ; ошибка доступа к ресурсу

           $error_code="1"                  

           $error_message=$error_message+"Не удалось подключить диск "+$ds_s+" к ресурсу "+$cn+chr(13)                  

                 EndIf

    endif

else

use $ds_s+":" $uncname

? " !!!!" + $ds_s+":" $uncname

                 if @error=5 ; ошибка доступа к ресурсу

           $error_code="1"                  

           $error_message=$error_message+"Не удалось подключить диск "+$ds_s+" к ресурсу "+$cn+chr(13)                  

                 EndIf

endif

endif

next

Корректировка описаний дисков в папке «Мой компьютер»

Механизм переименования сетевых дисков в папке «Мой компьютер» лучше всего запускать после завершения процесса подключения самих сетевых дисков. У читателя может возникнуть закономерный вопрос: «Зачем это вообще надо?». Существует несколько причин. Приведем некоторые из них: представьте, что у вас длинный сетевой путь – буквы диска не видно. Согласитесь, что это неудобно. Во вторых, в некоторых ситуациях пользователь не должен знать, где находится ресурс. В третьих, пусть пользователь читает не UNC-пути к дискам, а нормальные их названия: «Файлы моего подразделения» или «Мои проекты». Ему сразу становится ясно, для чего предназначен диск. Поверьте, не все пользователи соответствуют термину «опытный пользователь». Это связано с тем, что на подключение диска требуется время, которое зависит от местоположения рабочей станции, загруженности сервера и других факторов. Точно его рассчитать не представляется возможным, поэтому для ускорения работы скрипта лучше разделить блоки подключения дисков и смены описания с помощью функции-задержки. Действие функции основано на вычислении промежутка времени с помощью нового макроса @Ticks, который возвращает количество миллисекунд с момента загрузки компьютера, определяется разность времени – при достижении указанного интервала во времени, задержки, осуществляется выход из цикла:

$delay_size=3

$Q = @Ticks + $delay_size*1000        ; x – количество секунд  задержки

Do

Until @Ticks >= $Q

Механизм смены описания в Windows 2000 и Windows XP разный. Характеристики всех типов дисков (сетевых, локальных и съемных) в Windows 2000 хранятся в ветви реестра HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerMountPoints в Windows 2000, для Windows XP – в HKEY_CURRENT_USERSoftwareMicrosoftWindowsCurrentVersionExplorerMountPoints2.

Рассмотрим каждый механизм подключения сетевых дисков отдельно. Начнем с Windows XP, т.к. там он наиболее понятен и прост.