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 objFSO=CreateObject("Scripting.FileSystemObject") outFile="c:\computersDHCP.txt" Set objFile = objFSO.CreateTextFile(outFile,True) Const ForReading = 1 Set objFSOR = CreateObject("Scripting.FileSystemObject") Set objTextFileR = objFSOR.OpenTextFile _ ("computers2.txt", ForReading) Do Until objTextFileR.AtEndOfStream strComputer = objTextFileR.Readline Set objWMIService = GetObject _ ("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_NetworkAdapterConfiguration Where IPEnabled = 'True'") For Each objItem in colItems If objItem.DHCPEnabled = TRUE Then objFile.Write strComputer & " DHCP enabled" & vbCrLf objFile.Close Else objFile.Write strComputer & " DHCP enabled" & vbCrLf End If objTextFile.Close Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.