document.write('
');
document.write('option explicit
');
document.write('
');
document.write('dim RADMINPATH
');
document.write('
');
document.write('RADMINPATH = "C:\PROGRAM FILES\RADMIN\RADMIN.EXE"
');
document.write('
');
document.write('dim objfso
');
document.write('dim objshell
');
document.write('dim objshortcut
');
document.write('dim strExePath
');
document.write('dim strFilename
');
document.write('dim strConnect
');
document.write('dim strThrough
');
document.write('dim strUpdates
');
document.write('dim bBatch
');
document.write('dim bAREncrypt
');
document.write('dim bARThrough
');
document.write('dim bARFile
');
document.write('dim bARLocolor
');
document.write('dim bARUpdates
');
document.write('
');
document.write('function GetParams()
');
document.write('dim objArg
');
document.write('dim lPos
');
document.write('dim errmsg
');
document.write(' for each objArg in WScript.Arguments
');
document.write(' lpos = 0
');
document.write(' lpos = instr(1,objarg,"file:",1)
');
document.write(' if lpos > 0 then
');
document.write(' strfilename = mid(objarg,lpos+5,len(objarg)-(lpos+4))
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"connect:",1)
');
document.write(' if lpos > 0 then
');
document.write(' strConnect = mid(objarg,lpos+8,len(objarg)-(lpos+7))
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"through",1)
');
document.write(' if lpos > 0 then
');
document.write('
');
document.write(' if mid(objarg,lpos-1,1) = "-" then
');
document.write(' barthrough = 2
');
document.write(' else
');
document.write(' if len(objarg)>9 then
');
document.write(' strthrough = mid(objarg,lpos+8,len(objarg)-(lpos+7))
');
document.write(' barthrough = 1
');
document.write(' else
');
document.write(' strthrough = "ERROR"
');
document.write(' end if
');
document.write(' end if
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"updates",1)
');
document.write(' if lpos > 0 then
');
document.write('
');
document.write(' if mid(objarg,lpos-1,1) = "-" then
');
document.write(' barupdates = 2
');
document.write(' else
');
document.write(' if len(objarg)>8 then
');
document.write(' strupdates = mid(objarg,lpos+8,len(objarg)-(lpos+7))
');
document.write(' barupdates = 1
');
document.write(' else
');
document.write(' strupdates = "ERROR"
');
document.write(' end if
');
document.write(' end if
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(1,objarg,"/locolor",1)
');
document.write(' if lpos > 0 then
');
document.write(' barlocolor = 2
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"/-locolor",1)
');
document.write(' if lpos > 0 then
');
document.write(' barlocolor = 1
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"/encrypt",1)
');
document.write(' if lpos > 0 then
');
document.write(' barencrypt = 2
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"/-encrypt",1)
');
document.write(' if lpos > 0 then
');
document.write(' barencrypt = 1
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(1,objarg,"/transfer",1)
');
document.write(' if lpos > 0 then
');
document.write(' barfile = 2
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"/-transfer",1)
');
document.write(' if lpos > 0 then
');
document.write(' barfile = 1
');
document.write(' end if
');
document.write(' lpos = instr(1,objarg,"/batch",1)
');
document.write(' if lpos > 0 then
');
document.write(' bBatch = 2
');
document.write(' end if
');
document.write(' next
');
document.write('
');
document.write('
');
document.write(' if (bbatch = 0 and strfilename = "") or strthrough = "ERROR" or Strupdates = "ERROR" then
');
document.write(' call help
');
document.write(' end if
');
document.write('
');
document.write('end function
');
document.write('
');
document.write('function startshortcut()
');
document.write(' set objfso = createobject("scripting.filesystemobject")
');
document.write(' strexepath = objfso.getabsolutepathname(".")
');
document.write('
');
document.write('
');
document.write(' if bbatch = 0 then
');
document.write(' set objShell = createobject("WScript.shell")
');
document.write(' set objShortcut = objShell.createshortcut(strexepath & "\" & strfilename & " - " & strconnect & ".lnk")
');
document.write(' if objshortcut.targetpath <> "" then
');
document.write(' call EditShortcut
');
document.write(' else
');
document.write(' call Createshortcut
');
document.write(' end if
');
document.write(' else
');
document.write(' call BatchProcessing
');
document.write(' end if
');
document.write('end function
');
document.write('
');
document.write('function Init()
');
document.write('
');
document.write(' set objfso = nothing
');
document.write(' set objshell = nothing
');
document.write(' set objshortcut = nothing
');
document.write(' strExePath = ""
');
document.write(' strFilename = ""
');
document.write(' strConnect = ""
');
document.write(' strThrough = ""
');
document.write(' bBatch = 0
');
document.write(' barfile = 0
');
document.write(' barthrough = 0
');
document.write(' barencrypt =0
');
document.write(' barlocolor =0
');
document.write(' barupdates =0
');
document.write('
');
document.write('end function
');
document.write('
');
document.write('function EditShortcut()
');
document.write('dim strnewarguments
');
document.write('dim lpos
');
document.write(' stop
');
document.write(' strnewarguments = ""
');
document.write(' if strconnect <> "" then
');
document.write(' stop
');
document.write(' lpos = instr(1,objshortcut.arguments,"/connect:",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " /connect:" & strconnect & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' else
');
document.write(' strnewarguments = "/connect:" & strconnect & " " & strnewarguments
');
document.write(' end if
');
document.write(' objshortcut.arguments = strnewarguments
');
document.write(' end if
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if strthrough <> "" then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/through:",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " /through:" & strthrough & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if barthrough = 2 then
');
document.write(' lpos = instr(1,objshortcut.arguments," /through:",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " " & right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if strupdates <> "" then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/updates:",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " /updates:" & strupdates & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if barupdates = 2 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/updates:",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " " & right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if barencrypt = 2 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/encrypt",1)
');
document.write('
');
document.write(' if lpos = 0 then
');
document.write(' objshortcut.arguments = trim(objshortcut.arguments) & " " & "/encrypt"
');
document.write(' end if
');
document.write(' elseif barencrypt = 1 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/encrypt",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if barlocolor = 2 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/locolor",1)
');
document.write('
');
document.write(' if lpos = 0 then
');
document.write(' objshortcut.arguments = trim(objshortcut.arguments) & " " & "/locolor"
');
document.write(' end if
');
document.write(' elseif barlocolor = 1 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/locolor",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = 0
');
document.write(' strnewarguments = ""
');
document.write(' if barfile = 2 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/file",1)
');
document.write('
');
document.write(' if lpos = 0 then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " " & "/file"
');
document.write(' end if
');
document.write(' elseif barfile = 1 then
');
document.write(' lpos = instr(1,objshortcut.arguments,"/file",1)
');
document.write('
');
document.write(' if lpos > 1 then
');
document.write(' strnewarguments = left(objshortcut.arguments,lpos-1)
');
document.write(' end if
');
document.write('
');
document.write(' lpos = instr(lpos+1,objshortcut.arguments,"/",1)
');
document.write(' if lpos>0 then
');
document.write(' strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
');
document.write(' end if
');
document.write(' objshortcut.arguments = trim(strnewarguments)
');
document.write(' end if
');
document.write(' objshortcut.save
');
document.write('end function
');
document.write('
');
document.write('function createshortcut()
');
document.write(' objshortcut.targetpath = radminpath
');
document.write('
');
document.write(' if strconnect <> "" then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " /connect:" & strconnect & " "
');
document.write(' Else
');
document.write(' call Help
');
document.write('
');
document.write(' end if
');
document.write(' if strthrough <> "" then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " /through:" & strthrough & " "
');
document.write(' end if
');
document.write(' if barencrypt = 2 then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " /encrypt" & " "
');
document.write(' end if
');
document.write(' if barlocolor = 2 then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " /locolor" & " "
');
document.write(' end if
');
document.write(' if barfile = 2 then
');
document.write(' objshortcut.arguments = objshortcut.arguments & " /file" & " "
');
document.write(' end if
');
document.write(' objshortcut.save
');
document.write('end function
');
document.write('
');
document.write('function BatchProcessing()
');
document.write('dim objfolder
');
document.write('dim objfile
');
document.write('dim lpos
');
document.write('
');
document.write(' lpos = 0
');
document.write(' set objfolder = objfso.getfolder(".")
');
document.write('
');
document.write(' for each objfile in objfolder.files
');
document.write(' lpos = instr(1,mid(objfile.path,len(objfile.path) - 3,4),"lnk",1)
');
document.write(' if lpos > 0 then
');
document.write(' strfilename = objfso.getbasename(objfile.path)
');
document.write(' set objShell = createobject("WScript.shell")
');
document.write(' set objShortcut = objShell.createshortcut(strexepath & "\" & strfilename & ".lnk")
');
document.write(' call editshortcut
');
document.write(' end if
');
document.write(' next
');
document.write('
');
document.write('
');
document.write('end function
');
document.write('
');
document.write('function Help()
');
document.write(' dim strmessage
');
document.write(' strmessage = "Usage Guide:" & vbcrlf & "/connect: ... Required when creating a new shortcut" & vbcrlf & "/file: ... Always required unless /batch is used" & vbcrlf & "/batch ... Performs requested processing on all shortcuts in the working folder" & vbcrlf & "/through: ... Specifies a server to connect through" & vbcrlf & "/-through ... Removes the through parameter" & vbcrlf & "/locolor ... Enables locolor mode" & vbcrlf & "/-locolor ... Removes the locolor option" & vbcrlf & "/encrypt ... Enables an encrypted link" & vbcrlf & "/-encrypt ... Removes the encrypt option" & vbcrlf & "/transfer ... Enables the file transfer mode" & vbcrlf & "/-transfer .. Removes the file transfer option" & vbcrlf & "/updates:** ... Controls the refresh rate" & vbcrlf & "/-updates ... Removes the refresh rate option" & vbcrlf & "All the switches can be used in batch mode except /file which is ignored" & vbcrlf & "as in batch mode it is not required."
');
document.write(' msgbox strmessage
');
document.write(' wscript.quit(-1)
');
document.write('end function
');
document.write('
');
document.write('
');
document.write('call init
');
document.write('call getparams
');
document.write('call startshortcut
');
document.write('
');
document.write('
');
document.write('
');