http://www.iphelion.com/Product/SignatureCreator.aspx

Thanks
Andy

Thanks!

Looks just like what I’m looking for. However, I get this error:
Line: 24
Char: 1
Error: Path not found
Code: 800A004C
Source: Microsoft VBScript runtime error.

Any idea what causes this? I’m using a Windows7 client so I guessed the appdatapath could be wrong, but I get the same error on a Windows 2008 server.

best regards
xiglet

please tell me about process for this script. I copied all codes and save into the stagging server but when I tried with same script then Its prompt “Run time error: Path not found” and same has been done into the XP machine with out member server machine “C:\WINDOWS\system32>cscript.exe //nologo sign.vbs
C:\WINDOWS\system32\sign.vbs(7, 1) (null): The specified domain either does not
exist or could not be contacted.”

Could you provide me steps to run this scripts. I just have little knowledge for script.

I really don’t know to how to run or where I need to keep this script and again how to run?

Could u help me?

Many Thanks ,
Simon D

this script works great on both rich text and plain, but i cant seem to get it working on html. I have done exaclty what you have.

could i have some advice?

Many thanks

First of all, I would like to thank the author for this script. It’s very good. In combination with some registry manipulation it’s quite powerful.

for me, there is only one question left. Since our firm’s signature is based on HTML, I would like to set Outlook’s Mail Format to HTML by default. Any idea where the proper registry entry looks can be found?

permission denied: ‘createobject’ code 800A0046

Spent most of the day figuring this one out, still no clue…
Anyone want to share thoughts on this on? Thanx in advance!!

The script looks like this:

Set objUser = CreateObject(“WScript.Network”)
userName = objUser.UserName
domainName = objUser.UserDomain

FUNCTION GetUserDN(BYVAL UN, BYVAL DN)
Set ObjTrans = CreateObject(“NameTranslate”)
objTrans.init 1, DN
objTrans.set 3, DN & “\” & UN
strUserDN = objTrans.Get(1)
GetUserDN = strUserDN
END FUNCTION

Set objLDAPUser = GetObject(“LDAP://” & GetUserDN(userName,domainName))

‘Prepare to create some files
Dim objFSO, objWsh, appDataPath, pathToCopyTo, plainTextFile, plainTextFilePath, richTextFile, richTextFilePath, htmlFile, htmlFilePath
Set objFSO = CreateObject(“Scripting.FileSystemObject”)
Set objWsh = CreateObject(“WScript.Shell”)
appDataPath = objWsh.ExpandEnvironmentStrings(“%APPDATA%”)
pathToCopyTo = appDataPath & “\Microsoft\Signatures\”

‘Create the plain text signature
plainTextFilePath = pathToCopyTo & “Default.txt”
Set plainTextFile = objFSO.CreateTextFile(plainTextFilePath, TRUE)
plainTextFile.WriteLine(objLDAPUser.DisplayName)
plainTextFile.WriteLine(objLDAPUser.title)
plainTextFile.WriteLine(“”)
plainTextFile.WriteLine(objLDAPUser.company)
plainTextFile.WriteLine(“”)
plainTextFile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber)
plainTextFile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber)
plainTextFile.WriteLine(“mob: ” & objLDAPUser.mobile)
plainTextFile.WriteLine(“”)
plainTextFile.Write(objLDAPUser.wWWHomePage)
plainTextFile.WriteLine(“”)
plainTextFile.Close

‘Create the Rich Text signature
richTextFilePath = pathToCopyTo & “Default.rtf”
Set richTextFile = objFSO.CreateTextFile(richTextFilePath, TRUE)
richTextFile.WriteLine(“{\rtf1\ansi\ansicpg1252\deff0\deflang2057{\fonttbl{\f0\fswiss\fcharset0 Arial;}}”)
richTextFile.WriteLine(“\viewkind4\uc1\pard\f0\fs20 \par”)
richTextFile.WriteLine(objLDAPUser.DisplayName & “\par”)
richTextFile.WriteLine(objLDAPUser.title & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(objLDAPUser.company & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber & “\par”)
richTextFile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber & “\par”)
richTextFile.WriteLine(“mob: ” & objLDAPUser.mobile & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.WriteLine(objLDAPUser.wWWHomePage & “\par”)
richTextFile.WriteLine(“\par”)
richTextFile.Write(“}”)
richTextFile.Close

‘Create the HTML signature
htmlFilePath = pathToCopyTo & “Default.htm”
Set htmlFile = objFSO.CreateTextFile(htmlFilePath, TRUE)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“” & objLDAPUser.DisplayName & “”)
htmlfile.WriteLine(“” & objLDAPUser.title & “”)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“tel: ” & objLDAPUser.telephoneNumber & “”)
htmlfile.WriteLine(“fax: ” & objLDAPUser.facsimileTelephoneNumber & “”)
htmlfile.WriteLine(“mob: ” & objLDAPUser.mobile & “”)
htmlfile.WriteLine(“” & objLDAPUser.wWWHomePage & ““)
htmlfile.WriteLine(“”)
htmlfile.WriteLine(“”)
htmlfile.Write(“”)

But if anyone knows how to do it by OWA it would be perfect!