[Butunin Klim]

угу туда можешь в конец этого скиптра вставить строчку

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

и там же твой скрипт

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"



Можешь без этот слипа
это просто программка в которой пауза в 1сек