on error resume next
DIM forWriting, Overwrite, objShell

Set objShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")


objShell.Run "cmd /c echo.>c:\windows\temp\OfficeCode.txt",0, True

ErrorLevel = objShell.Run ("setup.exe",2,True)

forWriting = 2
Overwrite = True

Set objErrorCode = objFSO.OpenTextFile("c:\windows\temp\OfficeCode.txt", 2, True)
objErrorCode.WriteLine ErrorLevel
objErrorCode.Close
WScript.Quit

@echo on
:: **************************************************************************
:: SCRIPT LANGUAGE: Shell
:: SCRIPT NAME:
:: PURPOSE: T
:: Also launches splash screen to interact with end-user
:: CREATION DATE: 08/24/2010
:: LAST MODIFIED:
:: DIRECTIONS: Send to client workstation
:: AUTHOR: Eddie Jackson
:: EMAIL: MrNetTek2000@yahoo.com
:: **************************************************************************

::INITIAL FILTERS
::TEST IF OFFICE2007 ALREADY EXISTS
if exist "%ProgramFiles%\Microsoft Office\Office12\WINWORD.EXE" goto END

::VERIFY OFFICE APPLICATIONS ARE NOT CURRENTLY OPEN
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq OUTLOOK.EXE" | find /i "OUTLOOK.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq WINWORD.EXE" | find /i "WINWORD.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq EXCEL.EXE" | find /i "EXCEL.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq POWERPNT.EXE" | find /i "POWERPNT.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq ONENOTE.EXE" | find /i "ONENOTE.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq MSACCESS.EXE" | find /i "MSACCESS.EXE" && (goto KILL1)
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI
"IMAGENAME eq INFOPATH.EXE" | find /i "INFOPATH.EXE" && (goto KILL1)
|| goto MAIN
goto MAIN

:KILL1
::POP UP MESSAGE IF OFFICE APPS ARE OPEN
echo Dim WSH, response > %temp%\kill.vbs
echo Set WSH = WScript.CreateObject("WScript.Shell") >> %temp%\kill.vbs
echo response = WSH.Popup ("Setup has detected open Microsoft Office applications.
Please close all Microsoft applications and start deploy again. ", 0, "Open Application
 Detection", 0) >> %temp%\kill.vbs
wscript.exe %temp%\kill.vbs
echo Dim WSH, response > %temp%\kill2.vbs
echo Set WSH = WScript.CreateObject("WScript.Shell") >> %temp%\kill2.vbs
echo response = WSH.Popup ("If you continue receiving this error, please restart
your machine. ", 0, "Open Application Detection", 0) >> %temp%\kill2.vbs
wscript.exe %temp%\kill2.vbs
exit /b 1

:MAIN
::BEGIN OFFICE 2007 INSTALLATION USING CUSTOM MSP FILES IN
HE UPDATES FOLDER

::SET MSG FILE
echo Preparing Microsoft Office 2007 deployment...>"%temp%\msg.txt"
if exist %temp%\yes.txt del /q "%temp%\yes.txt"

::SET COUNTER TO 51%
set COUNTER=51

::TEMPORARILY TURNS OFF AUTOMATIC UPDATES
net stop wuauserv

::LAUNCH SPLASH SCREEN
start "" splash.exe

:WAIT1
::WAIT FOR YES/NO SELECTION FROM SPLASH SCREEN
if exist %temp%\yes.txt goto NEXT
ping -n 2 127.0.0.1>nul
goto WAIT1

:NEXT
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\
Enterprise.WW\setup.xml" goto INSTALL
::IF YES IS SELECTED, LAUNCH SETUP
echo Downloading Microsoft Office 2007 files from server...>"%temp%\msg.txt"
start "" Office_2007_by_EJ.exe

:WAIT2
::WAITING FOR OFFICE2007 FILES TO BE DOWNLOADED
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\
Office_2007_by_EJ.exe" goto EXTRACT
start /low /b /wait ping -n 10 127.0.0.1>nul
goto WAIT2

:EXTRACT
echo Extracting Microsoft Office 2007 files(1%%)...>"%temp%\msg.txt"
goto EXT1

:EXT1
echo Extracting Microsoft Office 2007 files(5%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Excel.en-us" goto EXT2
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT1

:EXT2
echo Extracting Microsoft Office 2007 files(11%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Groove.en-us" (
goto EXT3
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT2


:EXT3
echo Extracting Microsoft Office 2007 files(17%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\InfoPath.en-us" (

goto EXT4
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT3


:EXT4
echo Extracting Microsoft Office 2007 files(22%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Office Admin Templates" (

goto EXT5
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT4


:EXT5
echo Extracting Microsoft Office 2007 files(30%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Office.en-us" (
goto EXT6
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT5


:EXT6
echo Extracting Microsoft Office 2007 files(34%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Office64.en-us" (
goto EXT7
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT6


:EXT7
echo Extracting Microsoft Office 2007 files(38%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\
OneNote.en-us" (
goto EXT8
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT7


:EXT8
echo Extracting Microsoft Office 2007 files(45%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Outlook.en-us" (
goto EXT9
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT8


:EXT9
echo Extracting Microsoft Office 2007 files(52%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\PowerPoint.en-us" (
goto EXT10
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT9


:EXT10
echo Extracting Microsoft Office 2007 files(56%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\Proofing.en-us" (
goto EXT11
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT10

:EXT11
echo Extracting Microsoft Office 2007 files(64%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\Publisher.en-us" (
goto EXT12
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT11

:EXT12
echo Extracting Microsoft Office 2007 files(67%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\Rosebud.en-us" (
goto EXT13
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT12

:EXT13
echo Extracting Microsoft Office 2007 files(70%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Updates" (
goto EXT14
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT13

:EXT14
echo Extracting Microsoft Office 2007 files(75%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Word.en-us" (
goto EXT15
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT14

:EXT15
echo Extracting Microsoft Office 2007 files(81%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Access.en-us" (
goto EXT16
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT15

:EXT16
echo Extracting Microsoft Office 2007 files(85%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\autorun.inf" (
goto EXT17
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT16

:EXT17
echo Extracting Microsoft Office 2007 files(89%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\setup.exe" (
goto EXT18
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT17

:EXT18
echo Extracting Microsoft Office 2007 files(93%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Admin" (
goto EXT19
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT18

:EXT19
echo Extracting Microsoft Office 2007 files(95%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\
Office2007EnterpriseSP2\Catalog" (
goto EXT20
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT19

:EXT20
echo Extracting Microsoft Office 2007 files(96%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\LANDesk\LDClient\sdmcache\APPS\Microsoft\Office2007EnterpriseSP2\
Enterprise.WW\setup.xml" (
goto INSTALL
)
start /low /b /wait ping -n 5 127.0.0.1>nul
goto EXT20

:INSTALL
echo Extracting Microsoft Office 2007 files(100%%)...>"%temp%\msg.txt"
start /low /b /wait ping -n 2 127.0.0.1>nul
start /min "" setup.vbs

::/adminfile updates\Office2007Enterprise4.msp

:INST1
echo Preparing Microsoft Office 2007 setup files...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\1033" goto INST2
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST1

:INST2
echo Installing Microsoft Office 2007(1%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\Library" goto INST3
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST2

:INST3
echo Installing Microsoft Office 2007(7%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\Queries" goto INST4
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST3

:INST4
echo Installing Microsoft Office 2007(11%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\SAMPLES" goto INST5
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST4

:INST5
echo Installing Microsoft Office 2007(13%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\ADDINS" goto INST6
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST5

:INST6
echo Installing Microsoft Office 2007(16%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\CONVERT" goto INST7
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST6

:INST7
echo Installing Microsoft Office 2007(18%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\FORMS" goto INST8
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST7

:INST8
echo Installing Microsoft Office 2007(21%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\INFFORMS" goto INST9
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST8

:INST9
echo Installing Microsoft Office 2007(22%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\3082" goto INST10
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST9

:INST10
echo Installing Microsoft Office 2007(23%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\1036" goto INST11
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST10

:INST11
echo Installing Microsoft Office 2007(24%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\Document Parts" goto INST12
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST11

:INST12
echo Installing Microsoft Office 2007(25%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\AccessWeb" goto INST13
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST12

:INST13
echo Installing Microsoft Office 2007(26%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\STARTUP" goto INST14
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST13

:INST14
echo Installing Microsoft Office 2007(27%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\XLSTART" goto INST15
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST14

:INST15
echo Installing Microsoft Office 2007(28%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\ACCWIZ" goto INST16
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST15

:INST16
echo Installing Microsoft Office 2007(29%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\OneNote" goto INST17
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST16

:INST17
echo Installing Microsoft Office 2007(30%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\BITMAPS" goto INST18
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST17

:INST18
echo Installing Microsoft Office 2007(31%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\MEDIA" goto INST19
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST18

:INST19
echo Installing Microsoft Office 2007(32%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\PUBBA" goto INST20
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST19

:INST20
echo Installing Microsoft Office 2007(33%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\PUBWIZ" goto INST21
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST20

:INST21
echo Installing Microsoft Office 2007(34%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\BORDERS" goto INST22
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST21

:INST22
echo Installing Microsoft Office 2007(36%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\PAGESIZE" goto INST23
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST22

:INST23
echo Installing Microsoft Office 2007(41%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\OutlookAutoDiscover" goto INST24
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST23

:INST24
echo Installing Microsoft Office 2007(47%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\Bibliography" goto INST25
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST24

:INST25
echo Installing Microsoft Office 2007(50%%)...>"%temp%\msg.txt"
if exist "%ProgramFiles%\Microsoft Office\Office12\InfoPathOM" goto INST26
start /low /b /wait ping -n 5 127.0.0.1>nul
goto INST25

:INST26
if %COUNTER% LSS 99 SET /A COUNTER=COUNTER+1
echo Installing Microsoft Office 2007(%COUNTER%%%)...>"%temp%\msg.txt"
start /low /b /wait ping -n 60 127.0.0.1>nul
start /b /wait /LOW c:\windows\system32\TASKLIST.exe /FI "IMAGENAME eq setup.exe"
 | find /i "setup.exe" && (goto INST26) || (goto POLICY)
goto INST26

:POLICY
::POLICY CHECKER
SET /A COUNTER=COUNTER+1
echo Installing Microsoft Office 2007(%COUNTER%%%)...>"%temp%\msg.txt"
if %COUNTER% LSS 99 (
ping -n 2 127.0.0.1>nul
goto POLICY
)
echo Installing Microsoft Office 2007(100%%)...>"%temp%\msg.txt"
start /low /b /wait ping -n 4 127.0.0.1>nul
echo Microsoft Office 2007 installed successfully! You can use Office 2007 now.>
"%temp%\msg.txt"
start /low /b /wait ping -n 7 127.0.0.1>nul
goto END

:END
::RESTORE RESOURCES
taskkill.exe /f /im wmplayer.exe
taskkill.exe /f /im wmplayer.exe
set COUNTER=
if exist %temp%\yes.txt del /q "%temp%\yes.txt"
if exist "%temp%\msg.txt" del /q "%temp%\msg.txt"
if exist "%temp%\kill.vbs" del /q "%temp%\kill.vbs"
if exist "%temp%\kill2.txt" del /q "%temp%\kill2.vbs"
taskkill.exe /f /im setup.exe
taskkill.exe /f /im mshta.exe
taskkill.exe /f /im mshta.exe
::HANDLE ERRORCODE
if not exist c:\windows\temp\OfficeCode.txt echo 0>c:\windows\temp\OfficeCode.txt
for /f "tokens=*" %%a in (c:\windows\temp\OfficeCode.txt) do set OfficeCode=%%a
::needs reboot
if %OfficeCode%==3010 exit /b 0
::user exited
if %OfficeCode%==1602 exit /b 0
exit /b %OfficeCode%
::exit /b 0

':: ************************************************************************
':: SCRIPT LANGUAGE: VBScript
':: SCRIPT NAME: UpdateCommand.vbs
':: PURPOSE: To be used to update Symantec Configuration
':: CREATION DATE: 08/30/2010
':: LAST MODIFIED:
':: DIRECTIONS: Send to client workstation
':: AUTHOR: Eddie Jackson
':: EMAIL: MrNetTek2000@yahoo.com
':: ***********************************************************************

on error resume next
Set objShell = CreateObject("WScript.Shell")
Err.Number = objShell.Run ("smc €“updateconfig", 0, True)
if Err.Number = 3010 then Err.Number = 0
if Err.Number = -1 then Err.Number = 0
if Err.Number = -2 then Err.Number = 0
if Err.Number = -5 then Err.Number = 0
if Err.Number = -6 then Err.Number = 0
WScript.Quit(Err.Number)


'smc -checkinstallation
''Checks whether the smc client service is installed.
'''Returns 0, -3


'smc -checkrunning
''' Checks whether the smc client service is running.
''''Returns 0, -4


'smc -dismissgui
'''Closes either the Symantec Endpoint Protection or Symantec Network Access
 Control client user interface, including the notification area icon.
'''The client still runs and protects the client computer.
'''Returns 0


'smc -exportlog
'''Exports the entire contents of a log to a .txt file.
'''To export a log, you use the following syntax:
'''smc -exportlog log_type 0 -1 output_file
'''where:
'''
'''log_type is:
'''
'''0 = System Log
'''
'''1 = Security Log
'''
'''2 = Traffic Log
'''
'''3 = Packet Log
'''
'''4 = Control Log
'''
'''For example, you might type the following syntax:
'''
'''smc -exportlog 2 0 -1 c:\temp\TrafficLog
'''
'''Where:
'''
'''0 is the beginning of the file
'''
'''-1 is the end of the file
'''
'''You can export only the Control log, Packet log, Security log, System log, and Traffic log.
'''
'''output_file is the path name and file name that you assign to the exported file.
'''
'''Returns 0, -2, -5


'smc -runhi
'''If Symantec Network Access Control is installed, runs a Host Integrity check.
'''Returns 0


'smc -showgui
'''Displays either the Symantec Endpoint Protection or the Symantec Network
Access Control client user interface.
'''Returns 0


'smc -updateconfig
'''Checks whether the configuration file on the management server is more recent than
the configuration file on the client. The configuration file includes all the settings on
the management server, such as policies, groups, log settings, security settings, and
 user interface settings.
'''If the client's configuration file is out of date, updateconfig downloads the most recent
configuration file and replaces the existing configuration file, which is serdef.dat.
'''Returns 0