greate script, works like a charm, but I had issues implementing it in a mixed client/terminal server enviroment. the script kept on failing for our terminal server users due to the fact that the function IsOutlookRunning always returned “true” since other outlook instances were running on the TS within other users session context. So I modified the funktion “IsOutlookRunning” which now compares the Process owner of outlook.exe with the logon user and gives back true only if the condition is true. Before, of course, the logon user must be defined:

############### get Logonuser################
Set oShell = CreateObject(“Wscript.Shell”)
strLogonUser = oShell.ExpandEnvironmentStrings(“%USERNAME%”)

#############################################

Function IsOutlookRunning()

strComputer = “.”
strQuery = “Select * from Win32_Process ” & _
“Where Name = ‘outlook.exe’”
Set objWMIService = GetObject(“winmgmts:” _
& “{impersonationLevel=impersonate}!\\” _
& strComputer & “\root\cimv2″)

Set colProcesses = objWMIService.ExecQuery(strQuery)

For Each objProcess In colProcesses
procusername = objProcess.GetOwner(strNameOfUser)
proc = objProcess.Name

If UCase(objProcess.Name) = “OUTLOOK.EXE” and (strLogonUser) = (strNameOfUser) Then
IsOutlookRunning = True
Else
IsOutlookRunning = False
End If
Next
End Function

############################################

This modification works fine on both XP/Windows 7 and TerminalServer 2008 R2

hope that helps you out.

regards

Chris

On Error Resume Next
Set objSysInfo = CreateObject(“ADSystemInfo”)
strUser = objSysInfo.UserName
Set objUser = GetObject(“LDAP://” & strUser)
strTitle = objUser.Title
strName = objUser.givenName & ” ” & objUser.sn
strDesc = objUser.description
strDepartment = objUser.Department
strCompany = objUser.Company

if objUser.telephoneNumber=”" Then
strPhone = “T: +44 (0)1670 39 3811″

Else
strPhone = “T: +44 ” & objUser.telephoneNumber
End If

if objUser.mobile=”" Then

Else
strMob = ” M: +44 ” & objUser.mobile
End If

if objUser.facsimileTelephoneNumber=”" Then

If objUser.physicaldeliveryofficename=”Lynemouth Smelter” Then
strFax = “F: +44 (0)1670 39 3956″
ElseIf objUser.physicaldeliveryofficename=”Lynemouth Power Station” Then
strFax = “F: +44 (0)1670 39 3970″
End If

Else
strFax = ” F: +44 ” & objUser.facsimileTelephoneNumber
End If

strTelecom = strPhone & ” ” & strMob & ” ” & strFax
strAddress = objUser.streetAddress & “, ” & objUser.l & “, ” & objUser.st & “, ” & objUser.postalCode & “,”
strEmail = objUser.mail
strWeb = “company web address”
Set objWord = CreateObject(“Word.Application”)
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObject.EmailSignatureEntries

objWord.UserName = objUser.givenName & ” ” & objUser.SN
objWord.UserInitials = Left(objUser.givenName, 1) & Left(objUser.SN, 1)

objSelection.Font.Name = “Georgia”
objSelection.Font.Size = “12″
objSelection.TypeText strName &”,”
objSelection.TypeText Chr(11)
objSelection.TypeText strTitle &”, Alcan Aluminium UK Limited”
objSelection.TypeText Chr(11)
objSelection.TypeText Chr(11)
objSelection.Font.Color = “000,000,255″
objSelection.TypeText strCompany
objSelection.TypeText Chr(11)
objSelection.Font.Name = “Arial”
objSelection.Font.Size = “10″
objSelection.Font.Color = “000,000,000″
objSelection.TypeText strAddress &” England”
objSelection.TypeText Chr(11)
objSelection.TypeText Chr(11)
objSelection.TypeText strTelecom
objSelection.TypeText Chr(11)
objSelection.TypeText strEmail & “, ”
objSelection.Hyperlinks.Add objSelection.Range, strWeb, “”, “”, strWeb
objSelection.TypeText Chr(11)
objSelection.TypeText Chr(11)
objSelection.TypeText “Company registered Office”

Set objSelection = objDoc.Range()

objSignatureEntries.Add “RTA “& strName, objSelection
objSignatureObject.NewMessageSignature = “RTA ” & strName
objSignatureObject.ReplyMessageSignature = “RTA ” & strName

objDoc.Saved = True
objWord.Quit
WScript.Echo “The Footer ‘RTA “& strName &”‘ was created. Please create a new email and verify that your details are correct”
wscript.quit

absolutely gutted;

worth looking for a HTML2RTF vb function; write the HTML file, write a RTF file and then TXT file for all of the signatures..
not everyone communicates in HTML

slightly gutted I had to do this; but good to know i’m not the only one.

The script works great when all users are in the users OU in AD. I have users in a bunch of different ou’s and if I move people around the script does not work for those people. How can I get it to query all of AD no matter the OU?