Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.
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.
Public Function getPermissions() Dim stdOut, objScriptExec, strResults, objShell Set objShell = CreateObject("WScript.Shell") On Error Resume Next objShell.exec ("cacls \\PCNAME\FILENAME") strResults = LCase(objScriptExec.stdOut.ReadAll) Set stdOut = Nothing Set objScriptExec = Nothing MsgBox strResults End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|MS Access VBA Need Help Looping Code Through Query Records To Generate a Long Text File||30||82|
|Macro/VBA to send email based on criteria being met from form||1||37|
|What are my options to share data with field staff||16||49|
|Macro problems with Excel file||6||22|