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