word running in vbscript scheduled task cannot find macro

I have a vbscript job running as a scheduled task on a server.  It is creating  a word object, opening a file and then running/trying to run a macro.  If I am logged on to the server, it all works fine but if I am not running a session on the server, the scheduled job does not find the necessary macro.  Where should I put this macro so that it will be found by the job?
I have created a template containing just my macro and tried putting it in many places. I have tried the AttachedTemplate action to invoke the template.
Some code is attached.

'##########  
'sample code
set FSO = CreateObject("Scripting.FileSystemObject")
 
' build todays date
 
dteday=day(date)
dteMonth=month(date)
dteyear=year(date)
Rdate=dteyear & right(cstr(dtemonth + 100),2) & right(cstr(dteday + 100),2) 
 
' make date part of file name for the week old file 
 
odate=date()-7
oyear=year(odate)
omonth=month(odate)
oday=day(odate)
OLDdt=oyear & right(cstr(omonth + 100),2) & right(cstr(oday + 100),2)
 
Dim loopCount, objExcel, workbook
dim fileN, fileAdd, fileHead
Set objExcel = CreateObject("Excel.Application")
 
'Open our XLS file
 
Set workbook = objExcel.Workbooks.Open("C:\Sigpath\sigpath.xls")
'We want to skip the header row, and then the blank row below
loopCount = 2 ' ignore row 1 headings
 
' now loop though files, convert document with word and then send using email addresses provided
 
Do while not isempty(objExcel.Cells(loopCount, 1).Value)
 
fileN=objexcel.cells(loopcount,1).Value
fileAdd=objexcel.cells(loopcount,2).Value
fileHead=objexcel.cells(loopcount,3).Value
'wscript.echo fileN & fileAdd & FileHead
 
FileToday=fileN & "_" & Rdate & ".txt"
FileOld="C:\SigPathdone\" & fileN & "_" & OLDdt & ".doc"
FileOut=fileN & "_" & Rdate & ".doc"
 
' now delete current output file if it exists 
If (FSO.FileExists(fileOut)) then
    set myfile= FSO.getfile(fileOut)
    myfile.delete()
End If
 
' edit the file
dim objWord,objdoc
 
set objWord = CreateObject("Word.Application")
objword.Visible = True
set objdoc = objWord.Documents.Open ("C:\sigpath\" & fileToday, wdReadOnly)
objword.Activedocument.attachedTemplate = "C:\sigpath.dot"
 objword.run "sigpath"
objdoc.SaveAs("C:\sigpathdone\" & fileOut)
objdoc.close (wdOriginalFormat)
objWord.quit
Set objWord = Nothing
'wscript.echo "File done ", filetoday,"To ",fileAdd
'**************************  send the email
result=SendMail(fileOut,fileAdd,fileHead)
 
' now delete old file from last week
If (FSO.FileExists(fileOld)) then
    set myfile= FSO.getfile(fileOld)
    myfile.delete()
End If
 
loopCount = loopCount + 1
Loop
 
objExcel.Workbooks.Close
set objExcel = nothing
 
 
Wscript.Echo "Run Complete"
wscript.quit
  
''*********************
Function SendMail(sigfile,sigto,sigsub)
 
   ' this part works fine so omitted
 
end function

Select allOpen in new window