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 objNetwork, objDrives, intIndex, objFSO, objFile, objUser, strUsername Set objSysInfo = CreateObject("ADSystemInfo") Set objUser = GetObject("LDAP://" & objSysInfo.UserName) strUsername = objUser.samAccountName Set objFSO = CreateObject("Scripting.FileSystemobject") 'Change the file path on the next line' Set objFile = objFSO.CreateTextFile("SERVERPATH\test.csv" & strUsername & ".csv") Set objNetwork = CreateObject("WScript.Network") Set objDrives = objNetwork.EnumNetworkDrives For intIndex = 0 To objDrives.Length - 1 Step 2 objFile.WriteLine """" & strUsername & """,""" & objDrives(intIndex) & """,""" & objDrives(intIndex + 1) & """" Next objFile.Close Set objFile = Nothing Set objUser = Nothing Set objFSO = Nothing Set objDrives = Nothing Set objNetwork = Nothing
|Modifying Powershell and WMI to obtain disk, cpu, mem & IP data ?||5||71|
|need the count of duplicate records in a column||12||43|
|Everything left of comma in excel||4||45|
|i have to save the output of command prompt ping command in the excel file.||6||34|