Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- On Error Resume Next
- Dim strUser,strName,strTitle,strMail,strPhone,strFax
- Dim strCompany,strLocation,strAddress,strCity,strState
- Dim strZip,strWeb,strInfo,ADObject
- 'Active Directory Info Object
- Set ADObject = CreateObject("ADSystemInfo")
- strUser = ADObject.UserName
- 'Active Directory Connection
- Set objUser = GetObject("LDAP://" & strUser)
- 'Pull Active Directory Info for this User
- strName = objUser.FullName
- strTitle = objUser.Title
- strMail = objUser.Mail
- strPhone = "123-456-7890"
- strFax = "123-456-7890"
- strCompany = "Company Name Inc"
- strLocation = objuser.physicalDeliveryOfficeName
- strAddress = "123 Street st"
- strCity = "Anytown"
- strState = "CA"
- strZip = "90210"
- strWeb = "www.ourwebsite.com"
- strInfo = objuser.info
- strpobox = "PO BOX 123"
- Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile
- Dim plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath
- Set objFSO = CreateObject("Scripting.FileSystemObject")
- Set objWsh = CreateObject("WScript.Shell")
- appDataPath = objWsh.ExpandEnvironmentStrings("%APPDATA%")
- pathToCopyTo = appDataPath & "\Microsoft\Signatures\"
- 'Create Plain Text Signature
- plainTextFilePath = pathToCopyTo & "Default.txt"
- Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
- plainTextFile.WriteLine(strName)
- plainTextFile.WriteLine(strTitle)
- plainTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip)
- plainTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax)
- plainTextFile.WriteLine("")
- plainTextFile.WriteLine("Company Name Inc")
- plainTextFile.WriteLine("Company Slogan")
- plainTextFile.WriteLine("Company Slogan line two")
- plainTextFile.WriteLine("Please consider the environment before printing this email.")
- plainTextFile.Close
- 'Create Rich Text Signature
- richTextFilePath = pathToCopyTo & "Default.rtf"
- Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
- richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0Century Gothic;}}")
- richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par")
- richTextFile.WriteLine(strName & "\par")
- richTextFile.WriteLine(strTitle & "\par")
- richTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip &"\par")
- richTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax & "\par")
- richTextFile.WriteLine("\par")
- richTextFile.WriteLine("Company Name Inc")
- richTextFile.WriteLine("Company Slogan""\par")
- richTextFile.WriteLine("Company Slogan line two""\par")
- richTextFile.WriteLine("Please consider the environment before printing this.")
- richTextFile.WriteLine("\par")
- richTextFile.Close
- 'Create HTML Signature
- htmlFilePath = pathToCopyTo & "Default.htm"
- Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
- htmlfile.WriteLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0Transitional//EN""""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">")
- htmlfile.WriteLine("<html xmlns=""http://www.w3.org/1999/xhtml"" >")
- htmlfile.WriteLine("<body>")
- htmlfile.WriteLine("<div style=""font-size:12pt;font-weight:bold;font-family:Century Gothic;"">" & strName & "</div>")
- htmlfile.WriteLine("<div style=""font-size:10pt;font-weight:bold;font-family:Century Gothic;"">" & strTitle & "</div>")
- htmlfile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;"">" & strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip & "</div>")
- htmlfile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;""> T: " & strPhone & " | " & "F: " & strFax & "</div>")
- htmlfile.WriteLine("<br>")
- htmlfile.WriteLine(" <div style=""font-size:22.0pt;color:#00B050;text-decoration:none;font-family:Century Gothic;"">Company Name Inc</div>")
- htmlFile.WriteLine("<div style==""font-size:10.0pt;color:black;""> Company Slogan </div>")
- htmlFile.WriteLine("<div style==""font-size:10.0pt;color:black;""> Company Slogan line two </div>")
- htmlFile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;color:#008C00"">Please consider the environment before printing this. </div")
- htmlfile.WriteLine("</div>")
- htmlfile.WriteLine("</body>")
- htmlfile.Write("</html>")
- htmlFile.Close
- 'Create Plain Reply Text Signature
- plainTextFilePath = pathToCopyTo & "Reply.txt"
- Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
- plainTextFile.WriteLine(strName)
- plainTextFile.WriteLine(strTitle)
- plainTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip)
- plainTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax)
- plainTextFile.WriteLine("")
- plainTextFile.WriteLine("Company Name Inc")
- plainTextFile.WriteLine("Company Slogan")
- plainTextFile.WriteLine("Company Slogan line two")
- plainTextFile.WriteLine("Please consider the environment before printing this email.")
- plainTextFile.Close
- 'Create reply Rich Text Signature
- richTextFilePath = pathToCopyTo & "Reply.rtf"
- Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
- richTextFile.WriteLine("{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0Century Gothic;}}")
- richTextFile.WriteLine("\viewkind4\uc1\pard\f0\fs20 \par")
- richTextFile.WriteLine(strName & "\par")
- richTextFile.WriteLine(strTitle & "\par")
- richTextFile.WriteLine(strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip &"\par")
- richTextFile.WriteLine("T: " & strPhone & " | " & "F: " & strFax & "\par")
- richTextFile.WriteLine("\par")
- richTextFile.WriteLine("Company Name Inc")
- richTextFile.WriteLine("Company Slogan""\par")
- richTextFile.WriteLine("Company Slogan line two""\par")
- richTextFile.WriteLine("Please consider the environment before printing this.")
- richTextFile.WriteLine("\par")
- richTextFile.Close
- 'Create HTML Relpy Signature
- htmlFilePath = pathToCopyTo & "Reply.htm"
- Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
- htmlfile.WriteLine("<!DOCTYPE html PUBLIC ""-//W3C//DTD XHTML 1.0Transitional//EN""""http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"">")
- htmlfile.WriteLine("<html xmlns=""http://www.w3.org/1999/xhtml"" >")
- htmlfile.WriteLine("<body>")
- htmlfile.WriteLine("<div style=""font-size:12pt;font-weight:bold;font-family:Century Gothic;"">" & strName & "</div>")
- htmlfile.WriteLine("<div style=""font-size:10pt;font-weight:bold;font-family:Century Gothic;"">" & strTitle & "</div>")
- htmlfile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;"">" & strAddress &" "& strpobox &" "& strCity & ", " & strState & " " & strZip & "</div>")
- htmlfile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;""> T: " & strPhone & " | " & "F: " & strFax & "</div>")
- htmlfile.WriteLine("<br>")
- htmlfile.WriteLine("<div style=""font-size:22.0pt;color:#00B050;text-decoration:none;font-family:Century Gothic;"">Company Name Inc</div>")
- htmlFile.WriteLine("<div style==""font-size:10.0pt;color:black;""> Company Slogan </div>")
- htmlFile.WriteLine("<div style==""font-size:10.0pt;color:black;""> Company Slogan line two </div>")
- htmlFile.WriteLine("<div style=""font-size:9.0pt;font-family:Century Gothic;color:#008C00"">Please consider the environment before printing this. </div")
- htmlfile.WriteLine("</div>")
- htmlfile.WriteLine("</body>")
- htmlfile.Write("</html>")
- htmlFile.Close
- Set objFSO = Nothing
- Set objWsh = Nothing
- 'Connect to Registry
- Dim objShell, RegKey
- Set objShell = CreateObject("WScript.Shell")
- 'Disable Change of Signature for the User
- Set objOutlook = CreateObject("Outlook.Application")
- strOutlookVersion = Left(objOutlook.Version, 2)
- objOutlook.Quit
- Set objOutlook = Nothing
- If Right(strOutlookVersion, 1) <> "." Then
- strOutlookVersion = strOutlookVersion & ".0"
- Else
- strOutlookVersion = strOutlookVersion & "0"
- End If
- objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Common\MailSettings\NewSignature" , "Default"
- objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Common\MailSettings\ReplySignature" , "Reply"
- objShell.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Office\" & strOutlookVersion & "\Outlook\Options\Mail\EnableLogging" , "0", "REG_DWORD"
- Set objShell = Nothing
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement