Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.
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.
Set WshShell = WScript.CreateObject("WScript.Shell") Dim fso, MyFile Set fso = CreateObject("Scripting.FileSystemObject") Const ForReading = 1, ForWriting = 2 'Open the exported registry file Set MyFile = fso.OpenTextFile("c:\temp\uninstall.tmp", ForReading) Do While MyFile.AtEndOfStream <> True ReadLineTextFile = MyFile.ReadLine Uninstall = ReadLineTextFile CLSID = Mid(Uninstall, 73, 38) On Error Resume Next 'DisplayName DisplayName=WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\CLSID\DisplayName") 'Publisher Publisher=WshShell.RegRead ("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\CLSID\Publisher") 'Search for presence of Java and Sun in DisplayName and Publisher search1 = Instr(1, DisplayName, "Java", 1) search2 = Instr(1, Publisher, "Sun", 1) 'Execute removal if there is a match Uninstaller="MsiExec.exe /X"+CLSID+"/QN" if search1>0 And search2>0 Then Return = WshShell.Run(Uninstaller, 1, TRUE) Loop
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Opening an Excel file on sharepoint updating its links and then saving and closing it||7||76|
|AD Tool/Script Populate Security Groups Automatically||8||68|
|INSERT value into first row in 75 workbooks||8||38|
|How to change the class of VBA so that instead of IE it uses Google Chrome?||3||24|
Join the community of 500,000 technology professionals and ask your questions.