Rename FILEINFO TO "P_{parent}|W_{picwidth}|H_{picheight}"
Copy To d:\server\htdocs\_shared

@script vbscript
Option Explicit

Dim strUrlPrefix
strUrlPrefix = "http://my_address/"

Dim fUseSetClip
fUseSetClip = False
Dim strSetClipPath
strSetClipPath = "C:\Windows\System32\SetClip.exe"
Dim strOpusHomePath
strOpusHomePath = "C:\Program Files\GPSoftware\Directory Opus\DOpusRT.exe"
Dim strClip
strClip = ""
Dim Shell
Set Shell = CreateObject("WScript.Shell")

Function Rename_GetNewName(strFileName, strFilePath, fIsFolder, strOldName, ByRef strNewName)

	Dim strInfoArray
	Dim name
	Dim value
	Dim x
	Dim strParent
	Dim strWidth
	Dim strHeight
	strInfoArray = split(strNewName, "|")
	strNewName = ""
	strWidth = ""
	strHeight = ""
	strParent = ""
  if fUseSetClip then
    if strClip = "" then
      Shell.Run """SetClip.exe"" -e",0,True
    else
      strClip = ""
    end if
  else
    if strClip <> "" then
      strClip = strClip & vbCrLf
    end if
  end if
  strClip = strClip & strUrlPrefix & strFileName
  strClip = Replace(strClip, " ", "%20")
  if fUseSetClip then
    strClip = """" & Replace(strClip, """", """""") & """"
    Shell.Run """SetClip.exe"" -a -- " & strClip,0,True
  else
    Shell.Run """" & strOpusHomePath & """ /CMD Clipboard Set " & strClip,0,True
  end if
End Function