Код VBS скрипта:
Код: Выделить всё
Option Explicit
Dim WSHShell, WSHNetwork, user, domain, adspath, adsobj, prop, computer
set wshNetwork = WScript.CreateObject( "WScript.Network")
set wshShell = WScript.CreateObject("WScript.Shell")
do while WSHNetwork.username = ""
WScript.Sleep 250
loop
user = wshNetwork.username
domain = wshNetwork.userdomain
adspath = "WinNT://" & domain & "/" & user
Set adsobj = GetObject(adspath)
WSHNetwork.MapNetWorkDrive "X:", "\\ldap\exchange"
WSHNetwork.MapNetWorkDrive "L:", "\\ldap\low"
WSHNetwork.MapNetWorkDrive "Q:", "\\172.16.1.100\fax"
MSgBox "Общий ресурс для приема факсов Q:\"
WSHNetwork.MapNetWorkDrive "M:", "\\ldap\media"
'MSgBox "Медиа ресурс - диск M:\"
for each prop in adsobj.groups
select case prop.name
case "asup"
WSHNetwork.MapNetWorkDrive "P:", "\\ldap\asup"
'MSgBox "Общий ресурс для отдела АСУП диск P:\"
WSHNetwork.MapNetWorkDrive "T:", "\\ldap\ta_archive"
'MSgBox "Общий ресурс для отдела АСУП диск T:\"
WSHNetwork.MapNetWorkDrive "K:", "\\ldap\distr"
'MSgBox "Общий ресурс для отдела АСУП диск K:\"
case "proizvod-metodich"
WSHNetwork.MapNetWorkDrive "P:", "\\ldap\proizvod-metodich"
'MSgBox "Общий ресурс для производственно-методического отдела диск P:\"
case "kadastr"
WSHNetwork.MapNetWorkDrive "P:", "\\ldap\kadastr"
WSHNetwork.MapNetWorkDrive "T:", "\\ldap\proizvod-metodich\TECHINCS"
'MSgBox "Общий ресурс для кадастрового отдела диск P:\"
'case "admins"
'WSHNetwork.MapNetWorkDrive "M:", "\\ldap\adm"
end select
next
Код: Выделить всё
#======================= Global Settings =====================================
[global]
workgroup = obl-bti
netbios name = ldap
server string = Samba Server
security = user
max protocol = SMB2
load printers = no
printcap name = /dev/null
printing = none
disable spoolss = yes
# guest account = nobody
log file = /var/log/samba/log.%m
max log size = 500
encrypt passwords = yes
admin users = admin
passdb backend = ldapsam:ldap://10.239.1.101/
ldap suffix = dc=obl-bti,dc=ru
ldap user suffix = ou=users
ldap group suffix = ou=groups
ldap machine suffix = ou=computers
ldap admin dn = "cn=root,dc=obl-bti,dc=ru"
ldap delete dn = no
ldap ssl = off
winbind enum users = yes
winbind enum groups = yes
# socket options = SO_RCVBUF=8192 SO_SNDBUF=8192 TCP_NODELAY
socket options=SO_RCVBUF=131072 SO_SNDBUF=131072 TCP_NODELAY
min receivefile size=16384
use sendfile=true
aio read size = 16384
aio write size = 16384
aio write behind = true
dns proxy = no
local master = yes
os level = 64
domain master = yes
preferred master = yes
domain logons = yes
logon path =
logon home =
wins support = yes
dns proxy = no
display charset = koi8-r
unix charset = koi8-r
dos charset = cp866
add machine script = /usr/local/sbin/ldapaddmachine '%u' computers
add user script = /usr/local/sbin/ldapadduser '%u' people
add group script = /usr/local/sbin/ldapaddgroup '%g'
add user to group script = /usr/local/sbin/ldapaddusertogroup '%u' '%g'
delete user script = /usr/local/sbin/ldapdeleteuser '%u'
delete group script = /usr/local/sbin/ldapdeletegroup '%g'
delete user from group script = /usr/local/sbin/ldapdeleteuserfromgroup '%u' '%g'
set primary group script = /usr/local/sbin/ldapsetprimarygroup '%u' '%g'
rename user script = /usr/local/sbin/ldaprenameuser '%uold' '%unew'
#============================ Share Definitions ==============================
[netlogon]
inherit permissions = yes
map acl inherit = yes
locking = no
read only = no
comment = Network Logon Service
path = /usr/samba_share/netlogon/
guest ok = yes
writable = yes
write list = @admins, @wheel
admin users = @OBL-BTI\admins, OBL-BTI\d.kozlov
share modes = no
browseable = no
inherit owner = yes
inherit acls = yes
[exchange]
inherit permissions = yes
map acl inherit = yes
locking = no
read only = no
comment = Общая папка обмена
# path = /usr/samba_share/exchange
path = "/usr/samba_share/ta_arhive/Disk X"
create mode = 777
directory mode = 777
public = yes
writeable = yes
write list = @people, @admins, @wheel
admin users = @OBL-BTI\admins, OBL-BTI\d.kozlov
read list = @people, @admins, @wheel
[media]
comment = Медиа файлы
path = /usr/samba_share/media
create mode = 777
directory mode = 777
browseable = no
public = yes
writeable = yes
write list = @asup, @admins, @wheel
read list = @people, @admins, @wheel
[distr]
comment = distr
path = /usr/samba_share/distr
create mode = 777
directory mode = 777
browseable = no
public = yes
writeable = yes
write list = @admins, @wheel
read list = @people, @admins, @wheel
[low]
comment = low
path = /usr/samba_share/law
create mode = 777
directory mode = 777
browseable = no
public = yes
writeable = yes
write list = @people, @admins, @wheel
read list = @people, @admins, @wheel
[adm]
comment = Административный отдел
path = /usr/samba_share/unit/ADM
create mode = 777
directory mode = 777
public = yes
browseable = no
writeable = yes
write list = @econom, @kadastr, @asup, @admins, @wheel
read list = @econom, @kadastr, @asup, @admins, @wheel
[asup]
comment = Отдел АСУП
path = /usr/samba_share/unit/asup
create mode = 777
directory mode = 777
public = yes
browseable = no
writeable = yes
write list = @asup, @admins, @wheel
read list = @asup, @admins, @wheel
[proizvod-metodich]
comment = Производственно-методический отдел
path = /usr/samba_share/unit/proizvod-metodich
create mode = 777
directory mode = 777
public = yes
browseable = no
writeable = yes
write list = @kadastr, @proizvod-metodich, @admins, @wheel
read list = @kadastr, @proizvod-metodich, @admins, @wheel
[kadastr]
comment = Землеустроительный отдел
path = /usr/samba_share/unit/kadastr
create mode = 777
directory mode = 777
public = yes
browseable = no
writeable = yes
write list = @kadastr, @admins, @wheel
read list = @kadastr, @admins, @wheel
[ta_archive]
comment = ТА
path = /usr/samba_share/ta_arhive
create mode = 777
directory mode = 777
guest ok = Yes
public = yes
browseable = yes
writeable = yes
write list = @asup, @admins, @wheel
read list = @asup, @admins, @wheel
Set adsobj = GetObject(adspath)
