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.
Function Main() Dim objFSO, objFile, objFolder dim strPath dim dteTemp,strTemp dim oPackage dim oConn strPath="C:\" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(strPath) dteTemp=cdate("1/31/1900") For Each objFile in objFolder.Files if cdate(objFile.DateLastModified) > dteTemp then dteTemp=objFile.DateLastModified strTemp=objFile.Name end if Next 'msgbox strtemp & dtetemp set oPackage = DTSGlobalVariables.parent set oConn = oPackage.connections("Excel") oConn.datasource = strPath & strTemp oPackage.steps("DTSStep_DTSDataPumpTask_1").execute set oPackage = nothing set oConn = nothing Set objFolder = Nothing Set objFSO = Nothing Main = DTSTaskExecResult_Success End Function
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.