asked on
VBScript to enumerate folders and delete a file if it exists
I am installing Symantec Endpoint Protection 11, and doing so there is a problem with the outlook add-in. Symantec recommends deleting C:\Documents and Settings\%username%\Local Settings\Application Data\Microsoft\Outlook\ext
I'm weak in scripting so I'm hoping someone out there can help with a script to do the following:
1. Close outlook
2. Enumerate all the "username" folders.
3. Delete any extend.dat files that exist.
4. Install the setup.exe
Or if there is a better way to do this, that'd be great too.
I'm weak in scripting so I'm hoping someone out there can help with a script to do the following:
1. Close outlook
2. Enumerate all the "username" folders.
3. Delete any extend.dat files that exist.
4. Install the setup.exe
Or if there is a better way to do this, that'd be great too.
VB ScriptInstallation
Last Comment
prashanthd
ASKER CERTIFIED SOLUTION
Log in or sign up to see answer
Become an EE member today7-DAY FREE TRIAL
Members can start a 7-Day Free trial then enjoy unlimited access to the platform
or
Learn why we charge membership fees
We get it - no one likes a content blocker. Take one extra minute and find out why we block content.
Not exactly the question you had in mind?
Sign up for an EE membership and get your own personalized solution. With an EE membership, you can ask unlimited troubleshooting, research, or opinion questions.
ask a question
Please try the following..
Error handling included for file deletion and installation included
On Error Resume Next
' Instantiate the various objects
On Error Resume Next
' Instantiate the various objects
strComputer = "."
MyApp = """C:\MyApplication\Setup.
Set objWMIService = GetObject("winmgmts:{imper
Set oWSH = CreateObject("WScript.Shel
Set oFSO = CreateObject("Scripting.Fi
'Terminate outlook
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
' Get the Allusers profile folder path first and from this determine profiles parent folder
'
sAllUsersProfile = oWSH.ExpandEnvironmentStri
Set oAllUsersFolder = oFSO.GetFolder(sAllUsersPr
sProfilesRoot = oAllUsersFOlder.ParentFold
' Now enumerate all existing user profile folders
Set oFolder = oFSO.GetFolder(sProfilesRo
Set colFSOSubfolders = oFolder.Subfolders
' Now go through each existing user profile folder looking for the designated folder to delete
For Each objSubfolder In colFSOSubfolders
filepath=objSubFolder.Path
'WScript.Echo filepath
If oFSO.FileExists(filepath) Then
Err.Clear
oFSO.DeleteFile(filepath)
If Err.Number<>0 Then
WScript.Echo "Cannot delete file - "& filepath &" Err Number:"& Err.Number & " Err Description: " & Err.Description
End If
End If
Next
'Install Application
Set oShell = CreateObject("WScript.Shel
i = 0
i = oShell.Run(MyApp, 1 ,True)
If i=0 Then
WScript.Echo "Application successfully installed"
Else
WScript.Echo "Application installation error, please check"
End If
Set oShell = Nothing
Error handling included for file deletion and installation included
On Error Resume Next
' Instantiate the various objects
On Error Resume Next
' Instantiate the various objects
strComputer = "."
MyApp = """C:\MyApplication\Setup.
Set objWMIService = GetObject("winmgmts:{imper
Set oWSH = CreateObject("WScript.Shel
Set oFSO = CreateObject("Scripting.Fi
'Terminate outlook
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'outlook.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
' Get the Allusers profile folder path first and from this determine profiles parent folder
'
sAllUsersProfile = oWSH.ExpandEnvironmentStri
Set oAllUsersFolder = oFSO.GetFolder(sAllUsersPr
sProfilesRoot = oAllUsersFOlder.ParentFold
' Now enumerate all existing user profile folders
Set oFolder = oFSO.GetFolder(sProfilesRo
Set colFSOSubfolders = oFolder.Subfolders
' Now go through each existing user profile folder looking for the designated folder to delete
For Each objSubfolder In colFSOSubfolders
filepath=objSubFolder.Path
'WScript.Echo filepath
If oFSO.FileExists(filepath) Then
Err.Clear
oFSO.DeleteFile(filepath)
If Err.Number<>0 Then
WScript.Echo "Cannot delete file - "& filepath &" Err Number:"& Err.Number & " Err Description: " & Err.Description
End If
End If
Next
'Install Application
Set oShell = CreateObject("WScript.Shel
i = 0
i = oShell.Run(MyApp, 1 ,True)
If i=0 Then
WScript.Echo "Application successfully installed"
Else
WScript.Echo "Application installation error, please check"
End If
Set oShell = Nothing
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes
Thanks in advance