maiocustomer.blogg.se

I have to walk her up and down the stairs due to her rickety bon. Well, mine mostly sleeps but they are there! This is Peanut. Let's see those pets that work right alongside you. If UserObj.physicalDeliveryOfficeName "" then CreateSigFile.WriteLine "" &UserObj.OfficeLocations & ""ĬreateSigFile.WriteLine "" & "Follow us on:" & ""ĬreateSigFile.WriteLine "" & "" Opens a new window & " " & "" & "" Opens a new window & ""ĭo you work from home or office? Doesn't matter. IntTimeDiff = DateDiff("n", datSigAlt, UserObj.whenChanged)ĬreateSigFile.WriteLine "Outlook Signature"ĬreateSigFile.WriteLine "" & "Kind regards" & ""ĬreateSigFile.WriteLine "" & UserObj.FirstName & " " & UserObj.LastName & ""ĬreateSigFile.WriteLine "" & UserObj.title & ""ĬreateSigFile.WriteLine "" & UserObj.Department & ""ĬreateSigFile.WriteLine "" & "Company Name" & ""ĬreateSigFile.WriteLine "" & UserObj.streetAddress & "" & " " &'Phonenmbr and email addressĬreateSigFile.WriteLine "" & UserObj.telephoneNumber & "" & " " & strDotChr & " " & "" & "" & UserObj.mail & ""ĬreateSigFile.WriteLine "" Opens a new window Set objFile = FileSysObj.GetFile(SigFile) If not FileSysObj.FolderExists(SigFolder) then SigFile = SigFolder & "XXXXXXXXXXXXXXXXXXXXXXX" & ".htm" SigFolder = StrAppData & "\Microsoft\Signatures\" StrAppData = WshShell.ExpandEnvironmentStrings("%APPDATA%") Set UserObj = GetObject("LDAP://" & objADSysInfo.UserName) Set objADSysInfo = CreateObject("ADSystemInfo") Set FileSysObj = CreateObject("Scripting.FileSystemObject") Set WshShell = WScript.CreateObject("WScript.Shell") They get the original signature back at log on. Another gpo runs a script that removes the content of the outlook signature folder at log off so all changes (or extra signatures) made by the user are removed. I've created different groups for the departments and made adjustments to the script accordingly. (the original is in dutch so check your foldernames.)