Scans your site and returns information about your SSL implementation and certificate. Helpful for debugging and validating your SSL configuration.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
COURSE of the MONTH
10 days, 3 hours left to enrollBecome a Premium Member and unlock a new, free course in leading technologies each month.
Solved
VBScript to enumerate folders and delete a file if it exists
Posted on 2011-03-09
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.
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3 Comments
Hi BRPsysadmin
Hopefully the VBScript below will help with your request. All you need to do is alter the setup.exe path (sPathToSetup) to the UNC or local path where you will install from.
Jawa29
Hopefully the VBScript below will help with your request. All you need to do is alter the setup.exe path (sPathToSetup) to the UNC or local path where you will install from.
Jawa29
' Set the WMIService Object and retrieve all Processes called outlook.exe
Set oWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colProcessList = oWMIService.ExecQuery("Select * from Win32_Process Where Name = 'Outlook.exe'")
' Terminate all processes called outlook.exe
For Each oProcess in colProcessList
oProcess.Terminate()
Next
'Set the Documents and Settings directory and the path to the setup.exe file
sSourceDir = "C:\Documents and Settings"
sPathToSetup = "setup.exe /S"
If Right(sSourceDir,1) <> "\" Then
sSourceDir = sSourceDir & "\"
End If
' Set the Folder object to the source directory
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder(sSourceDir)
Set colSubfolders = oFolder.Subfolders
' Enumerate through the subdirectories and look for the extend.dat file, delete if found
For Each oSubfolder in colSubfolders
If oFSO.FileExists(sSourceDir & oSubfolder.Name & "\Local Settings\Application Data\Microsoft\Outlook\extend.dat") Then
oFSO.DeleteFile sSourceDir & oSubfolder.Name & "\Local Settings\Application Data\Microsoft\Outlook\extend.dat",True
End if
Next
' Run the setup command
Set oShell = WScript.CreateObject("WScript.Shell")
oShell.Run sPathToSetup,,True
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
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
This article is the result of a quest to better understand Task Scheduler 2.0 and all the newer objects available in vbscript in this version over the limited options we had scripting in Task Scheduler 1.0. As I started my journey of knowledge I f…
Create a Windows 10 custom Image with custom task bar and custom start menu using XML for deployment.
Michael from AdRem Software explains how to view the most utilized and worst performing nodes in your network, by accessing the Top Charts view in NetCrunch network monitor (https://www.adremsoft.com/). Top Charts is a view in which you can set seve…
If you’ve ever visited a web page and noticed a cool font that you really liked the look of, but couldn’t figure out which font it was so that you could use it for your own work, then this video is for you!
In this Micro Tutorial, you'll learn yo…
- Microsoft Applications
- Windows 10
- Windows OS
- Fonts Typography
- Windows 7, Microsoft Word
Suggested Courses
Course of the Month10 days, 3 hours left to enroll
762 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.