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.
Dim wShell 'As WshShell Dim fso 'As FileSystemObject Dim f 'As File Dim sLogName 'As String Dim sPatchFolder 'As String Dim sPatchCmd 'As String Const kTempFolder = 2 On Error Resume Next sPatchFolder = Replace(Wscript.ScriptFullName, Wscript.ScriptName, "") Set fso = CreateObject("Scripting.FileSystemObject") Set wShell = CreateObject("WScript.Shell") For Each f In fso.GetFolder(sPatchFolder).Files If UCase(Right(f.Name, 4)) = ".EXE" Then sLogName = fso.GetSpecialFolder(kTempFolder) & "\" & Left(f.Name, Len(f.Name) - 3) & "log" sPatchCmd = f.Path & " /quiet /norestart /log:" & sLogName wShell.Run sPatchCmd, 0, True End If Next
|adding "ungroup sheets" to existing vbs code||5||31|
|Combine like values in a graph excel 2016||7||34|
|need formula to count the number of letters in the 2nd word of excel value||3||39|
|BATCH to EXE Converter||2||37|