Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для Butunin Klim

Ветеран


Сообщения: 1482
Благодарности: 117

Профиль | Отправить PM | Цитировать


net use p: /delete /yes
net use m: /delete /yes
net use n: /delete /yes
net use g: /delete /yes
net use k: /delete /yes
\\srv1\netlogon\sleep.exe 2

net use O: \\srv1\departments\200-Administrative
\\srv1\netlogon\sleep.exe 2
net use w: \\srv1\workgroup
\\srv1\netlogon\sleep.exe 2
net use k: \\srv05\consultant$
\\srv1\netlogon\sleep.exe 2
net use g: \\srv05\garant.srv$
\\srv1\netlogon\sleep.exe 2
net use p: \\10.0.1.10\personal\%username%
\\srv1\netlogon\sleep.exe 2
net use y: \\srv1\yours\%username%
\\srv1\netlogon\sleep.exe 2
net use t: \\srv1\temporary
\\srv1\netlogon\sleep.exe 2
net use i: \\srv1\information
\\srv1\netlogon\sleep.exe 2
net use n: \\srv05\garantclient$
\\srv1\netlogon\sleep.exe 2
net use x: \\srv04\Database
\\srv1\netlogon\sleep.exe 2
net use m: \\srv06\F1_TurboClient$
\\srv1\netlogon\sleep.exe 4


call \\srv1\NETLOGON\start_department.vbs

Это другой фаил для департамента - это ou
=-----------------start_department.vbs---------------
sDrive="K:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Consultant"

sDrive="G:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Garant"

sDrive="N:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "GarantF1"

sDrive="T:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Temporary"

sDrive="I:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Information"

sDrive="w:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Workgroup"

sDrive="P:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Personal"

sDrive="Y:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Yours"

sDrive="O:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Department"


sDrive="x:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "Database"

sDrive="M:\"
Set oShell = CreateObject("shell.Application")
oShell.NameSpace(sDrive).Self.name = "GarantF1Turbo"


-------
Сообщение помогло? В знак благодарности НАЖМИТЕ ПОЛЕЗНОЕ СООБЩЕНИЕ

Мы зрим не то, что есть вокруг,
А то, что можем видеть зримо.
А то, что зреть не достижимо
Нам не узреть во век веков.

Мой веб-магазин товары Amway http://butunina.ru


Отправлено: 13:14, 18-08-2006 | #10