Am moștenit domeniu a avut o mulțime de lucruri utile care nu sunt necesare și mici. Nu este făcută în opinia mea PSU - l avtopodpis în Outlook de la utilizatorii de domeniu.
On Error Reluare următor
Set objSysInfo = CreateObject ( «ADSystemInfo»)
strUser = objSysInfo.UserName
Set objUser = GetObject ( «LDAP: //» strUser)
strZpov = «Cu stimă,“
strDev = «________________________________________________________________________»
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.mobile
strEmail = objuser.mail
strotdel = objUser.extensionAttribute3
strLogo = «\\ calea imaginii în rețea \ logo-office-1.jpg»
Set objWord = CreateObject ( «Word.Application»)
Set objDoc = objWord.Documents.Add ()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
Set objRange = objDoc.Range ()
Set objTable = objDoc.Tables (1)
objTable.Rows (1); selectați
objSelection.Cells.Merge
objTable.Cell (2, 1); selectați
objTable.Cell (2, 1) .Width = 70
objSelection.TypeText CHR (11)
objTable.Cell (2, 1) .Text = objSelection.InlineShapes.AddPicture (strLogo)
objTable.Cell (2, 2); selectați
objTable.Cell (2, 2) .Width = 400
objselection.font.color = RGB (11, 32, 77)
objSelection.TypeText CHR (11)
'#'
objSelection.ParagraphFormat.Space1
objselection.font.color = RGB (11, 32, 77)
objSelection.Font.Name = «Arial Narrow»
objSelection.Font.Size = «11»
objSelection.TypeText strZpov
objSelection.TypeText CHR (11)
objSelection.TypeText strName
objSelection.TypeText CHR (11)
objSelection.TypeText strTitle
objSelection.TypeText CHR (11)
în cazul în care (strDepartment<>»») Apoi objSelection.TypeText strDepartment
în cazul în care (strDepartment<>»») Apoi objSelection.TypeText CHR (11)
în cazul în care (strotdel<>»») Apoi objSelection.TypeText strotdel
în cazul în care (strotdel<>»») Apoi objSelection.TypeText CHR (11)
objSelection.TypeText strCompany
objSelection.TypeText CHR (11)
objSelection.TypeText «Tel. " strPhone
în cazul în care (strintPhone<>»») Apoi objSelection.TypeText CHR (11) „Mob. " strintPhone
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 255)
objSelection.Hyperlinks.Add objSelection.range, «mailto:» strEmail. strEmail
objSelection.TypeText CHR (11)
objSelection.Hyperlinks.Add objSelection.Range, strWeb, «», «», strWeb
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 0)
objSelection.TypeText strPostIndex strgorod strstreet
'#'
Set objSelection = objDoc.Range ()
objSignatureEntries.Add «AD Semnătura», objSelection
objSignatureObject.NewMessageSignature = «AD Semnătura»
objSignatureObject.ReplyMessageSignature = «AD Semnătura»
objDoc.Saved = Adevărat
objDoc.Close
objWord.Quit
Să examinăm ceea ce este responsabil pentru ceea ce în acest scenariu.
On Error Reluare următor
Set objSysInfo = CreateObject ( «ADSystemInfo»)
strUser = objSysInfo.UserName
Set objUser = GetObject ( «LDAP: //» strUser)
strZpov = «Cu stimă,“
strDev = «____________________________________________________________________»
strPostIndex = ObjUser.postalCode
strName = objUser.FullName
strTitle = objUser.Title
strDepartment = objUser.Department
strCompany = objUser.Company
strPhone = objUser.telephoneNumber
strweb = objuser.wWWHomePage
strstreet = objuser.streetAddress
strfax = objuser.facsimileTelephoneNumber
strIntPhone = objuser.mobile
strEmail = objuser.mail
strotdel = objUser.extensionAttribute3
strLogo = «\\ calea imaginii în rețea \ logo-office-1.jpg»
Set objWord = CreateObject ( «Word.Application»)
Set objDoc = objWord.Documents.Add ()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries
Set objRange = objDoc.Range ()
Set objTable = objDoc.Tables (1)
Unitatea, creând un tabel în care două coloane și un rând. culoarea textului și dimensiunea:
objTable.Cell (2, 1); selectați
objTable.Cell (2, 1) .Width = 70
objSelection.TypeText CHR (11)
objTable.Cell (2, 1) .Text = objSelection.InlineShapes.AddPicture (strLogo)
objTable.Cell (2, 2); selectați
objTable.Cell (2, 2) .Width = 400
objselection.font.color = RGB (11, 32, 77)
objSelection.TypeText CHR (11)
Unitatea care afișează informații de potrivire bloc:
objSelection.ParagraphFormat.Space1
objselection.font.color = RGB (11, 32, 77)
objSelection.Font.Name = «Arial Narrow»
objSelection.Font.Size = «11»
objSelection.TypeText strZpov
objSelection.TypeText CHR (11)
objSelection.TypeText strName
objSelection.TypeText CHR (11)
objSelection.TypeText strTitle
objSelection.TypeText CHR (11)
în cazul în care (strDepartment<>»») Apoi objSelection.TypeText strDepartment
în cazul în care (strDepartment<>»») Apoi objSelection.TypeText CHR (11)
în cazul în care (strotdel<>»») Apoi objSelection.TypeText strotdel
în cazul în care (strotdel<>»») Apoi objSelection.TypeText CHR (11)
objSelection.TypeText strCompany
objSelection.TypeText CHR (11)
objSelection.TypeText «Tel. " strPhone
în cazul în care (strintPhone<>»») Apoi objSelection.TypeText CHR (11) „Mob. " strintPhone
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 255)
objSelection.Hyperlinks.Add objSelection.range, «mailto:» strEmail. strEmail
objSelection.TypeText CHR (11)
objSelection.Hyperlinks.Add objSelection.Range, strWeb, «», «», strWeb
objSelection.TypeText CHR (11)
objselection.font.color = RGB (0, 0, 0)
objSelection.TypeText strPostIndex strgorod strstreet
Block, cu condiția de a apela semnătura atunci când semnătura această ieșire:
Set objSelection = objDoc.Range ()
objSignatureEntries.Add «AD Semnătura», objSelection
objSignatureObject.NewMessageSignature = «AD Semnătura»
objSignatureObject.ReplyMessageSignature = «AD Semnătura»
objDoc.Saved = Adevărat
objDoc.Close
objWord.Quit
Script-ul este gata, salvați-l ca: imya_fayla.VBS. stânga pentru a le face 5 bucăți. Numit în mod diferit în fiecare schimba logo-ul - o „imagine“ a biroului.
În continuare, vom crea o nouă politică de grup pentru fiecare scenariu și a pus acest script în autostart la conectare. Obținem 5 politici de grup, fiecare pentru un birou separat cu propriul său mod de a modelului (logo-ul).
El a creat un script, puteți verifica pe computer, lansând-o înainte de a începe Outlook.
Dacă ați atins poziția dorită, culorile de font și logo-ul, fac politicile de grup.
și deja politici de grup proprii de birouri, o definim noi pentru grupurile noastre.
Creați grupuri de atribute, există încă o piatră. Dacă vom crea un grup, și este nostru dinamic, adică, salariatul poate fi transferat de la un birou la altul? Am făcut două grupuri. Un grup outl-kontora1 acestui grup este legat de politică de grup.
Al doilea grup, podpis-office 1 în ea, am adăuga atribut utilizatori „cameră“, în fiecare dimineață, la referința obișnuită. Ce fac de locuri de muncă în fiecare dimineață, și pentru ce? Șterge creat un grup de utilizatori: podpiskontora1, podpis kontora2, podpis kontora3, podpis kontora4, podpis kontora5. Crearea unui grup de utilizatori: podpiskontora1, podpis kontora2, podpis kontora3, podpis kontora4, podpis kontora5. Adăugarea acestor grupuri de utilizatori atribut „cameră“, respectiv, dacă atributul este 1, gruparea podpiskontora1 etc. Adăugarea grupului podpiskontora1 outl-kontora1 grupă grupă podpiskontora2 outl-kontora2 etc.
Care este rezultatul: grupurile nu trebuie să atribuie în permanență politicile de grup, utilizatorii sunt actualizate în mod constant în grupuri atunci când schimbă camere, funcționează în mod automat.
Pentru a crea Avtopodpis în Outlook la utilizatorii de domeniu au nevoie de a adăuga o activitate ferestre. Deoarece echipa în locurile noastre de muncă la server, acestea trebuie să fie codificate în doc.
pentru a șterge grupuri de lucru:
DSRM «cn = podpis kontora1, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -noprompt
DSRM «cn = podpis kontora2, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -noprompt
DSRM «cn = podpis kontora3, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -noprompt
DSRM «cn = podpis kontora4, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală« -noprompt
DSRM »cn = podpis kontora5, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală« -noprompt
crearea unor grupuri de lucru:
Grup dsadd «cn = podpis kontora1, OU = podpis mail, OU = utilizatori, dc = Domen, DC = locală»
Grup dsadd «cn = podpis kontora2, OU = podpis mail, OU = utilizatori, dc = Domen, DC = locală»
Grup dsadd «cn = podpis kontora3, OU = podpis mail, OU = utilizatori, dc = Domen, DC = locală»
Grup dsadd «cn = podpis kontora4, OU = podpis mail, OU = utilizatori, dc = Domen, DC = locală»
Grup dsadd «cn = podpis kontora5, OU = podpis mail, OU = utilizatori, dc = Domen, DC = locală»
adăugarea de utilizatori la sarcina pe atributele de „cameră“
dsquery * -Filter «(physicalDeliveryOfficeName = 1)» | Grup de dsmod «cn = podpis kontora1, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -chmbr
dsquery * -Filter «(physicalDeliveryOfficeName = 2)» | Grup de dsmod «cn = podpis kontora2, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -addmbr
dsquery * -Filter «(physicalDeliveryOfficeName = 3)» | Grup de dsmod «cn = podpis kontora3, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -addmbr
dsquery * -Filter «(physicalDeliveryOfficeName = 4)» | Grup de dsmod «cn = podpis kontora4, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -addmbr
dsquery * -Filter «(physicalDeliveryOfficeName = 5)» | Grup de dsmod «cn = podpis kontora5, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală» -addmbr
Ie. toți utilizatorii de domeniu cu atributul „camera“ 1, va fi adăugat în podpis grup kontora1.
Rămâne să adăugați grupul de la grup.
Grup de dsmod «cn = outl-kontora1, podpis OU = e-mail, OU = utilizatori, dc = domen, dc = locale» -addmbr «cn = podpis kontora1, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală "
Grup de dsmod «cn = outl-kontora2, podpis OU = e-mail, OU = utilizatori, dc = domen, dc = locale» -addmbr «cn = podpis kontora2, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală "
Grup de dsmod «cn = outl-kontora4, podpis OU = e-mail, OU = utilizatori, dc = domen, dc = locale» -addmbr «cn = podpis kontora3, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală "
Grup de dsmod «cn = outl-kontora5, podpis OU = e-mail, OU = utilizatori, dc = domen, dc = locale» -addmbr «cn = podpis kontora4, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală "
Grup de dsmod «cn = outl-kontora6, podpis OU = e-mail, OU = utilizatori, dc = domen, dc = locale» -addmbr «cn = podpis kontora5, OU = podpis mail, OU = utilizatori, dc = Domen, dc = locală
Pentru a efectua această sarcină pentru a adăuga la Outlook Avtopodpis domeniu utilizatori au luat:
„Camera“ atribut. selectate pe baza utilizatorilor săi la grupurile adecvate, pentru a crea un script care se adaugă o semnătură cu diferite logo-uri, le atribuie politici de grup individuale, politicile de grup se atribuite grupului, iar politicile de grup de grup în cele din urmă legat și grupuri de utilizatori ne-sortate.
Made în așa fel în Outlook Avtopodpis utilizatorii de domeniu funcționează bine pe toate versiunile de Outlook.
- utilizatori de sincronizare WordPress c Active Directory
- Adăugați o fotografie utilizator Active Directory
- Asistent la distanță domeniu Windows
- Calculator desemnări condensatori SMD
