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.
Const ComputersList = "C:\sysadmin\CopyFilesPcList.txt" Const SourceFile = "C:\sysadmin\Isolations.url" Const TargetFolder = "C:sysadmin\" Const ReportFile = "C:\sysadmin\CopyFilesLog.txt" Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFile : Set objFile = objFSO.CreateTextFile (ReportFile) arrComputers = Split(objFSO.OpenTextFile(ComputersList).ReadAll, vbNewLine) For Each PC in arrComputers objFile.WriteLine "Attempting copy to " & PC On Error Resume Next objFSO.CopyFile SourceFile, "\\" & PC & "\" & Replace(TargetFolder, ":\","$\") If Err.Number <> 0 Then objFile.WriteLine vbTab & "Failed to copy to " & PC" Else objFile.WriteLine vbTab & "File successfully copied to " & PC End If On Error Goto 0 Next objFile.Close
|SCCM firewall status and security group members||4||56|
|Need VB Script to scan through XML file and export content to csv file||9||38|
|Server 2012 management.||5||34|
|randomize data from excell cell||15||46|