Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
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.
Function copyFileButStripLeadingNumberFromSource(file, destPath) On Error Resume next If Len(file.name) > 3 Then header = Left(file.name, 2) If IsNumeric(header) And Left(file.name, 3) = (header&"-") Then nameWIthPreceedingNumberRemoved = Right(file.name, Len(file.name) - 3) 'search backwards for the first directory marker in the path index = InStrRev(destpath, "\") If index = 0 Then 'no directory marker destpath = Replace(destpath, nameWIthPreceedingNumberRemoved) Else destpath = Left(destpath, index) destpath = destpath & nameWIthPreceedingNumberRemoved End If End If End If copyFileButStripLeadingNumberFromSource= destPath EchoAndLog "copy " & file & " to " & destPath Err.Clear fso.CopyFile file, destPath,True EchoAndLog "returnCode = " & Err.Description If Err.Number <> 0 Then processExitError "attemp to copy file failed " & Chr(34) & file & Chr(34) & "failed with error code " & Err.Description & "," & Err.Number WScript.Quit(-1) End If End Function
|Script Extension require update AD computer location base on sites subnet||5||48|
|Run a .bat file wich is inside a .vbs file||8||50|
|VBA & VBSCRIPT: re-adapt log file||13||33|
|excel 2016 program to loop through scripts||6||38|