Hi Andy,

I'm using a similar style script for our outlook sigs. In our environment it contains some features requested by the marketing department and required by company policy like adding a marketing banner, disclaimer text, etc...
We had some issues at first with Word taking some time to close and the script started the next line before Word had actually fully shutdown so I placed a short sleep for half a second just after $objWord.Quit to allow Word to close. After the sleep I call the EnumProccess UDF to see if Word is still running and kill it if it is.

Below is and example of what you could do. I did not test the code so run some tests first.
 Code:

;Set outlook email signature
;

? " "
? "SET EMAIL SIGNATURE"
? " "
$appData = ExpandEnviromentVars(%appdata%)
Del $appData + "\Microsoft\Signatures\AD Signature.*" /c /f

$objSysInfo = CreateObject("ADSystemInfo")
$strUser = $objSysInfo.UserName
$objUser = GetObject("LDAP://" + $strUser)
$strName = $objUser.FullName
$strTitle = $objUser.Title
$strDepartment = $objUser.Department
$strCompany = $objUser.Company
$strPhone = $objUser.telephoneNumber
$strMail = $objUser.mail
$strMobile = $objUser.mobile
$strFax = $objUser.facsimileTelephoneNumber
$strPost = $objUser.postalCode
$strStreet = $objUser.streetAddress
$strStreet = REPLACE($strStreet, Chr(10), " ")
$strStreet = REPLACE($strStreet, Chr(11), " ")
$strStreet = REPLACE($strStreet, Chr(12), " ")
$strStreet = REPLACE($strStreet, Chr(13), " ")
$strCity = $objUser.l
$strOffice = $objUser.physicalDeliveryOfficeName
$strWebsite = $objUser.wWWHomePage
$strAddress = $strStreet + " " + $strCity + " " + $strPost


;Start creating long sig
$objWord = CreateObject("Word.Application")
$objDoc = $objWord.Documents.Add()
$objSelection = $objWord.Selection
$objEmailOptions = $objWord.EmailOptions
$objSignatureObject = $objEmailOptions.EmailSignature
$objSignatureEntries = $objSignatureObject.EmailSignatureEntries
$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "9"
$objSelection.Font.Bold = "1"
$objSelection.Font.Color = "6710886"
If InGroup("ITPeople")
	$objSelection.TypeText($strName)
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText($strTitle)
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText("Put whatever text you want here")
Else
	$objSelection.TypeText($strName)
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText($strTitle)
	$objSelection.Font.Size = "8"
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText($strCompany)
	$objSelection.TypeText(Chr(11))
	$objSelection.Font.Bold = "0"
	$objSelection.TypeText($strAddress)
	$objSelection.TypeText(Chr(11))
	If $strPhone <> ""
		$objSelection.TypeText("T: " + $strPhone)
		$objSelection.TypeText(Chr(11))
	EndIf
	If $strMobile <> ""
		$objSelection.TypeText("M: " + $strmobile)
		$objSelection.TypeText(Chr(11))
	EndIf
	If $strWebsite <> ""
		$objSelection.TypeText("W: " + $strWebsite)
	EndIf
EndIf

$objSelection = $objDoc.Range()

$objSignature = $objSignatureEntries.Add("New message sig", $objSelection)
$objSignatureObject.NewMessageSignature = "New message sig"
$objDoc.Saved = 1
$objWord.Quit


;Start creating short sig.
$objWord = CreateObject("Word.Application")
$objDoc = $objWord.Documents.Add()
$objSelection = $objWord.Selection
$objEmailOptions = $objWord.EmailOptions
$objSignatureObject = $objEmailOptions.EmailSignature
$objSignatureEntries = $objSignatureObject.EmailSignatureEntries
$objSelection.Font.Name = "Arial"
$objSelection.Font.Size = "9"
$objSelection.Font.Bold = "1"
$objSelection.Font.Color = "6710886"
$objSelection.TypeText($strName)
$objSelection.TypeText(Chr(11))
$objSelection.TypeText($strTitle)
If InGroup("ITpeople")
	$objSelection.TypeText(Chr(11))
	$objSelection.TypeText("Put whatever text you want here")
EndIf
$objSignature = $objSignatureEntries.Add("Reply message sig", $objSelection)
$objSignatureObject.ReplyMessageSignature = "Reply message sig"
$objDoc.Saved = 1
$objWord.Quit
_________________________
Mart

- Chuck Norris once sold ebay to ebay on ebay.