I therefore thought I had completely lost my emails and address book, but when I did a search on my hard drive with the program called 'everything', I found some data files in 'C:\Users\phil\AppData\Local\Microsoft\Windows Live Mail' folder. Recently, I uninstalled Windows Essentials, not realizing it contained Windows Live Mail. Uninstall () strOutput = stroutput & vbCrLf & objsoftware. ExecQuery ( "Select * from Win32_Product Where Name = " & Chr ( 34 ) & arrSoftwareList ( 0 ) & Chr ( 34 ) ) For Each objSoftware in colSoftware objSoftware. Readline arrSoftwareList = Split ( strNextLine, "," ) Set colSoftware = objWMIService. OpenTextFile ( "C:\Windows_Live_Components.txt", ForReading ) Set objWMIService = GetObject ( "winmgmts:" & "!\\" & strComputer & "\root\cimv2" ) StrOutput = "Uninstalled the following Software:- " Do Until objTextFile.
'************************************************************************************* ' UninstallWindowsLive.vbs ' This program looks for the text/software listed under C:\Windows_Live_Components.txt ' and uninstalls one by one ' A Sample Windows_Live_Components.txt contain the following software ' Windows Live Essentials ' Windows Live Call ' Windows Live Mail ' Windows Live Messenger ' Windows Live Movie Maker ' Windows Live Photo Gallery ' Windows Live Writer ' Windows Live Sign-in Assistant ' Windows Live Sync ' Windows Live Upload Tool ' Windows Live Communications Platform ' Windows Live Toolbar ' ' NOTE :- Please make sure that your text file does not contain any blank lines '************************************************************************************* Const ForReading = 1 strComputer = InputBox ( "Enter the Computer Name:- " ) Set objFSO = CreateObject ( "Scripting.FileSystemObject" ) Set objTextFile = objFSO.
0 kommentar(er)
