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
|How to use odbc in vb to connect to ms sql||14||62|
|VbScript to countdown to New Year's Day||6||65|
|Import Data from Multiple Text Files in Excel||12||61|
|HOW CAN I TRANSFER AN COLUMN DATA TO ROW FOR ANALYSIS||7||22|