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.
Add your voice to the tech community where 5M+ people, just like you, are talking about what matters.
Set objFSO = CreateObject("Scripting.FileSystemObject") dim strdir strDir = "F:\Data" Set objDir = objFSO.GetFolder(strDir) getInfo(objDir) Sub getInfo(pCurrentDir) For Each aItem In pCurrentDir.Files 'wscript.Echo aItem.path Dim objShell Set objShell = WScript.CreateObject ("WScript.shell") objShell.run "cmd /k" & " " & spath Set objShell = Nothing Next For Each aItem In pCurrentDir.SubFolders ' wscript.Echo aItem.Name & " passing recursively" getInfo(aItem) Next End Sub
|RUNRMTCMD from AS/400||12||68|
|Can anyone derive why this VBS doesn't work?||4||26|
|Overwrite existing values in a Master file when master file is updated or opened||8||13|