Outlook 2000: How do I add 2008-2012 US holidays via Group Policy?

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
strComputer = WshNetwork.ComputerName
strFilePath = "\\server\share"
strFileName = "Outlook.txt"
strDestination = "c:\Program Files\Microsoft Office\Office\1033\"
 
objFSO.CopyFile strFilePath & "\" & strFileName, strDestination
 
WScript.Quit

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
strComputer = WshNetwork.ComputerName
strFilePath = "\\server\share"
strFileName = "Outlook.txt"
strDestination = "c:\Program Files\Microsoft Office\Office\1033\"
strDriveLetter = "Z:"
 
bEnableLogging = True
bIncludeDateStamp = True
bPrependDateStampInLogFileName = False
sLogFileLocation = "C:\"
sLogFileName = strComputer & ".log"
sOverWriteORAppend = "append"
vLogMaximumLines = 0
vLogMaximumSize = 0
 
Sub LogToFile(Message)
'LogToFile.vbs 10-18-07
'This script is provided under the Creative Commons license located
'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not
'be used for commercial purposes with out the expressed written consent
'of NateRice.com
 
    If bEnableLogging = False Then Exit Sub
 
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 8
 
    If sLogFileLocation = "relative" Then
        Set WshShell = CreateObject("Wscript.Shell")
        sLogFileLocation = WshShell.CurrentDirectory & "\"
        Set WshShell = Nothing
    End If
   
    If bPrependDateStampInLogFileName Then
        sNow = Replace(Replace(Now(),"/","-"),":",".")
        sLogFileName = sNow & " - " & sLogFileName
        bPrependDateStampInLogFileName = False       
    End If
   
    sLogFile = sLogFileLocation & sLogFileName
   
    If sOverWriteORAppend = "overwrite" Then
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
        sOverWriteORAppend = "append"
    Else
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForAppending, True)
    End If
 
    If bIncludeDateStamp Then
        Message = Now & "   " & Message
    End If
 
    oLogFile.WriteLine(Message)
    oLogFile.Close
   
    If vLogMaximumLines > 0 Then
      Set oReadLogFile = objFSO.OpenTextFile(sLogFile, ForReading, True)   
      sFileContents = oReadLogFile.ReadAll
      aFileContents = Split(sFileContents, vbCRLF)
      If Ubound(aFileContents) > vLogMaximumLines Then
        sFileContents = Replace(sFileContents, aFileContents(0) & _
        vbCRLF, "", 1, Len(aFileContents(0) & vbCRLF))
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
        oLogFile.Write(sFileContents)
        oLogFile.Close
      End If
      oReadLogFile.Close
    End If
    
    If vLogMaximumSize > 0 Then
      Set oReadLogFile = objFSO.OpenTextFile(sLogFile, ForReading, True)  
      sFileContents = oReadLogFile.ReadAll
      oReadLogFile.Close
      sFileContents = RightB(sFileContents, (vLogMaximumSize*2))
      Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
      oLogFile.Write(sFileContents)
      oLogFIle.Close
    End If
    
    objFSO = Null
End Sub
 
'copy outlook.txt to local path
objFSO.CopyFile strFilePath & "\" & strFileName, strDestination
 
'write to log file
LogToFile(strComputer & " - Outlook 2008-2012 Holidays Updated")
 
'check if mapped drive exists
Set AllDrives = WshNetwork.EnumNetworkDrives() 
 
AlreadyConnected = False 
For i = 0 To AllDrives.Count - 1 Step 2 
  If AllDrives.Item(i) = strDriveLetter Then AlreadyConnected = True 
Next 
 
If AlreadyConnected = False then 
  WShNetwork.MapNetworkDrive strDriveLetter, strFilePath
Else 
  WShNetwork.RemoveNetworkDrive strDriveLetter 
End if
 
'copy log to results log share
objFSO.CopyFile "C:\" & strComputer & ".log", "Z:\Results\" 
 
'clean up
objFSO.DeleteFile "C:\" & strComputer & ".log", True
WShNetwork.RemoveNetworkDrive strDriveLetter 
 
WScript.Quit

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:

Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = CreateObject("Wscript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
strComputer = WshNetwork.ComputerName
strFilePath = "//server/share"
strFileName = "Outlook.txt"
strDestination = "c:\Program Files\Microsoft Office\Office\1033\"
strDriveLetter = "Z:"
 
bEnableLogging = True
bIncludeDateStamp = True
bPrependDateStampInLogFileName = False
sLogFileLocation = "C:\"
sLogFileName = strComputer & ".log"
sOverWriteORAppend = "append"
vLogMaximumLines = 0
vLogMaximumSize = 0
 
Sub LogToFile(Message)
'LogToFile.vbs 10-18-07
'This script is provided under the Creative Commons license located
'at http://creativecommons.org/licenses/by-nc/2.5/ . It may not
'be used for commercial purposes with out the expressed written consent
'of NateRice.com
 
    If bEnableLogging = False Then Exit Sub
 
    Const ForReading = 1
    Const ForWriting = 2
    Const ForAppending = 8
 
    If sLogFileLocation = "relative" Then
        Set WshShell = CreateObject("Wscript.Shell")
        sLogFileLocation = WshShell.CurrentDirectory & "\"
        Set WshShell = Nothing
    End If
   
    If bPrependDateStampInLogFileName Then
        sNow = Replace(Replace(Now(),"/","-"),":",".")
        sLogFileName = sNow & " - " & sLogFileName
        bPrependDateStampInLogFileName = False       
    End If
   
    sLogFile = sLogFileLocation & sLogFileName
   
    If sOverWriteORAppend = "overwrite" Then
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
        sOverWriteORAppend = "append"
    Else
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForAppending, True)
    End If
 
    If bIncludeDateStamp Then
        Message = Now & "   " & Message
    End If
 
    oLogFile.WriteLine(Message)
    oLogFile.Close
   
    If vLogMaximumLines > 0 Then
      Set oReadLogFile = objFSO.OpenTextFile(sLogFile, ForReading, True)   
      sFileContents = oReadLogFile.ReadAll
      aFileContents = Split(sFileContents, vbCRLF)
      If Ubound(aFileContents) > vLogMaximumLines Then
        sFileContents = Replace(sFileContents, aFileContents(0) & _
        vbCRLF, "", 1, Len(aFileContents(0) & vbCRLF))
        Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
        oLogFile.Write(sFileContents)
        oLogFile.Close
      End If
      oReadLogFile.Close
    End If
    
    If vLogMaximumSize > 0 Then
      Set oReadLogFile = objFSO.OpenTextFile(sLogFile, ForReading, True)  
      sFileContents = oReadLogFile.ReadAll
      oReadLogFile.Close
      sFileContents = RightB(sFileContents, (vLogMaximumSize*2))
      Set oLogFile = objFSO.OpenTextFile(sLogFile, ForWriting, True)
      oLogFile.Write(sFileContents)
      oLogFIle.Close
    End If
    
    'objFSO = Null
End Sub
 
'copy outlook.txt to local path
objFSO.CopyFile strFilePath & "/" & strFileName, strDestination
 
'write to log file
LogToFile(strComputer & " - Outlook 2008-2012 Holidays Updated")
 
'copy log to results log share
objFSO.CopyFile "C:\" & strComputer & ".log", strFilePath & "/" & "Results/", True
 
'clean up
objFSO.DeleteFile "C:\" & strComputer & ".log", True
 
 
WScript.Quit

                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101: