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.
Sub GetAlldata() On Error GoTo GetAlldata_Error Dim pop As IWshRuntimeLibrary.WshShell Dim popRsp As Integer 'Popup response - added this because I thought maybe it was a neccessary evil 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens 'Buncha stuff happens Set pop = CreateObject("WScript.Shell") popRsp = pop.Popup("Finished importing data", 3, "Done!", 0) ' '3' is 3 seconds, 0 is a popup window with just "ok" DoEvents ' doesn't seem to affect anything Set pop = Nothing MsgBox ("whee") ' I added this to see if the pop.Popup was acting modal ' sho 'nuff, it doesn't pop up until I hit OK Exit Sub GetAlldata_Error: Debug.Print Err.Number; Err.Description End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.