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.
strComputer = "." 'wscript.echo strComputer 'strComputer = InputBox("Enter the Machine Name you want to modify") On Error Resume Next Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colNetCards = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") 'change arrDNSServers to reflect values for your environment For Each objNetCard in colNetCards arrDNSServers = Array("0.0.0.1","0.0.0.2","0.0.0.3") objNetCard.SetDNSServerSearchOrder(arrDNSServers) Next If Err.Number <> 0 Then 'wscript.echo err.number 'If err.number = 462 then 'strStatus = "Error-COULD NOT CONNECT," &strComputer 'ElseIf err.number = 451 then 'strStatus = "Error-ACCESS DENIED," &strComputer 'Else strStatus = "Error," & strComputer 'End If Else strStatus = "Success," & strComputer End If w.writeline strStatus Err.Clear On Error Goto 0
|VB Script/Batch: create/remove folders based on a config sheet.||7||49|
|Powershell Script to read AD attribute, then send email based on value of attribute||9||83|
|why do i get this error of invalid procedure or argument in this VBA?||6||31|
|Use GPO script to report finding a certain file||16||15|