<code>
option explicit

dim RADMINPATH
	
RADMINPATH = "C:\PROGRAM FILES\RADMIN\RADMIN.EXE"

dim objfso
dim objshell
dim objshortcut
dim strExePath
dim strFilename
dim strConnect
dim strThrough
dim strUpdates
dim bBatch
dim bAREncrypt
dim bARThrough
dim bARFile 
dim bARLocolor
dim bARUpdates

function GetParams()
dim objArg
dim lPos
dim errmsg
	for each objArg in WScript.Arguments
		lpos = 0
		lpos = instr(1,objarg,"file:",1)
		if lpos	> 0 then
			strfilename = mid(objarg,lpos+5,len(objarg)-(lpos+4))
		end if
		lpos = instr(1,objarg,"connect:",1)
		if lpos	> 0 then
			strConnect = mid(objarg,lpos+8,len(objarg)-(lpos+7))
		end if
		lpos = instr(1,objarg,"through",1)
		if lpos	> 0 then
			
			if mid(objarg,lpos-1,1) = "-" then
				barthrough = 2
			else
				if len(objarg)>9 then	
					strthrough = mid(objarg,lpos+8,len(objarg)-(lpos+7))
					barthrough = 1
				else
					strthrough = "ERROR"
				end if
			end if
		end if
		lpos = instr(1,objarg,"updates",1)
		if lpos	> 0 then
			
			if mid(objarg,lpos-1,1) = "-" then
				barupdates = 2
			else
				if len(objarg)>8 then	
					strupdates = mid(objarg,lpos+8,len(objarg)-(lpos+7))
					barupdates = 1
				else
					strupdates = "ERROR"
				end if
			end if
		end if
		
		lpos = instr(1,objarg,"/locolor",1)
		if lpos > 0 then
			barlocolor = 2
		end if
		lpos = instr(1,objarg,"/-locolor",1)
		if lpos > 0 then
			barlocolor = 1
		end if
		lpos = instr(1,objarg,"/encrypt",1)
		if lpos > 0 then
			barencrypt = 2
		end if
		lpos = instr(1,objarg,"/-encrypt",1)
		if lpos > 0 then
			barencrypt = 1
		end if
		
		lpos = instr(1,objarg,"/transfer",1)
		if lpos > 0 then
			barfile = 2
		end if
		lpos = instr(1,objarg,"/-transfer",1)
		if lpos > 0 then
			barfile = 1
		end if
		lpos = instr(1,objarg,"/batch",1)
		if lpos > 0 then
			bBatch = 2
		end if
	next

	
	if (bbatch = 0 and strfilename = "") or strthrough = "ERROR" or Strupdates = "ERROR"  then
		call help
	end if

end function

function startshortcut()
	set objfso = createobject("scripting.filesystemobject")
	strexepath = objfso.getabsolutepathname(".")
	
	
	if bbatch = 0 then
		set objShell = createobject("WScript.shell")
		set objShortcut = objShell.createshortcut(strexepath & "\" & strfilename & " - " & strconnect & ".lnk")  
		if objshortcut.targetpath <> "" then
			call EditShortcut
		else
			call Createshortcut
		end if
	else
		call BatchProcessing
	end if
end function

function Init()

	set objfso = nothing
	set objshell = nothing
	set objshortcut = nothing
	strExePath = ""
	strFilename = ""
	strConnect = ""
	strThrough = ""
	bBatch = 0
	barfile = 0
	barthrough = 0
	barencrypt =0
	barlocolor =0
	barupdates =0
	
end function

function EditShortcut()
dim strnewarguments
dim lpos
	stop
	strnewarguments = ""
	if strconnect <> "" then
		stop
		lpos = instr(1,objshortcut.arguments,"/connect:",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " /connect:" & strconnect & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		else
			strnewarguments = "/connect:" & strconnect & " " & strnewarguments
		end if
		objshortcut.arguments = strnewarguments
	end if	
	lpos = 0
	strnewarguments = ""	
	if strthrough <> "" then
		lpos = instr(1,objshortcut.arguments,"/through:",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " /through:" & strthrough & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	lpos = 0
	strnewarguments = ""
	if barthrough = 2 then
		lpos = instr(1,objshortcut.arguments," /through:",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " " & right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	lpos = 0
	strnewarguments = ""	
	if strupdates <> "" then
		lpos = instr(1,objshortcut.arguments,"/updates:",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " /updates:" & strupdates & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	lpos = 0
	strnewarguments = ""
	if barupdates = 2 then
		lpos = instr(1,objshortcut.arguments,"/updates:",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " " & right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	lpos = 0
	strnewarguments = ""
	if barencrypt = 2 then
		lpos = instr(1,objshortcut.arguments,"/encrypt",1)
		
		if lpos = 0 then
			objshortcut.arguments = trim(objshortcut.arguments) & " " & "/encrypt"
		end if
	elseif barencrypt = 1 then
		lpos = instr(1,objshortcut.arguments,"/encrypt",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	
	lpos = 0
	strnewarguments = ""
	if barlocolor = 2 then
		lpos = instr(1,objshortcut.arguments,"/locolor",1)
		
		if lpos = 0 then
			objshortcut.arguments = trim(objshortcut.arguments) & " " & "/locolor"
		end if
	elseif barlocolor = 1 then
		lpos = instr(1,objshortcut.arguments,"/locolor",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	
	lpos = 0
	strnewarguments = ""
	if barfile = 2 then
		lpos = instr(1,objshortcut.arguments,"/file",1)
		
		if lpos = 0 then
			objshortcut.arguments = objshortcut.arguments & " " & "/file"
		end if
	elseif barfile = 1 then
		lpos = instr(1,objshortcut.arguments,"/file",1)
		
		if lpos > 1 then
			strnewarguments = left(objshortcut.arguments,lpos-1)
		end if
		
		lpos = instr(lpos+1,objshortcut.arguments,"/",1)
		if lpos>0 then
			strnewarguments = trim(strnewarguments) & " " & trim(right(objshortcut.arguments,len(objshortcut.arguments)-(lpos-1)))
		end if
		objshortcut.arguments = trim(strnewarguments)
	end if
	objshortcut.save
end function

function createshortcut()
	objshortcut.targetpath = radminpath
	
	if strconnect <> "" then
		objshortcut.arguments = objshortcut.arguments & " /connect:" & strconnect & " "
	Else
		call Help
		
	end if
	if strthrough <> "" then
		objshortcut.arguments = objshortcut.arguments & " /through:" & strthrough & " "
	end if
	if barencrypt = 2 then
		objshortcut.arguments = objshortcut.arguments & " /encrypt" & " "
	end if
	if barlocolor = 2 then
		objshortcut.arguments = objshortcut.arguments & " /locolor" & " "
	end if
	if barfile = 2 then
		objshortcut.arguments = objshortcut.arguments & " /file" & " "
	end if
	objshortcut.save	
end function

function BatchProcessing()
dim objfolder
dim objfile
dim lpos
	
	lpos = 0
	set objfolder = objfso.getfolder(".")
	
	for each objfile in objfolder.files 
		lpos = instr(1,mid(objfile.path,len(objfile.path) - 3,4),"lnk",1)
		if lpos > 0 then
			strfilename = objfso.getbasename(objfile.path)
			set objShell = createobject("WScript.shell")
			set objShortcut = objShell.createshortcut(strexepath & "\" & strfilename & ".lnk")
			call editshortcut
		end if
	next


end function

function Help()
	dim strmessage
	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."
	msgbox strmessage
	wscript.quit(-1)
end function


call init
call getparams
call startshortcut

</code>