[ eki_yu @ 05.01.2013. 14:55 ] @
Pozdrav svima

Pokusavam da napravim skriptu koja pravi ikonicu(http link) koristeci argument


ideja je da se pozove ovako:

makeicon.vbs 01234

ovo je kod koji bih koristio:
Code:

Dim Arg, var1,var2
Set Arg = WScript.Arguments
var1 = Arg(0)
set var2 = "sometext" & var1


Kad se pokrene prijavi ovu gresku: Object required: '[string: " sometext "]'

ako napisem
msgbox var1

umesto

set var2 = " sometext " & var1

prozor se pojavi i ispise promenljivu.

Malo sam seraspitivao na drugim stranama i dobio sam predlog da koristim

Dim var2 = " sometext " & var1

medjutim to napravi "Expected end of statement" error (line 4 char 10, 800A0401)


Resenje je verovatno jednostavno, ali posto ne koristim vbs, prakticno sam potpuni pocetnik u ovome.

Svaka pomoc je dobrodosla!

Hvala!


[ goranvuc @ 05.01.2013. 16:38 ] @
Code:

Dim Arg, var1,var2
Set Arg = WScript.Arguments
var1 = Arg(0)
var2 = "sometext" & var1


a moze i krace:

Code:

Dim Arg, var1
Set Arg = WScript.Arguments
var1 = "sometext" & Arg(0)


a jos krace:

Code:

Dim var1
var1 = "sometext" & WScript.Arguments(0)
[ eki_yu @ 05.01.2013. 18:50 ] @
Zahvaljujem!

kratko resenje super radi!

Ako nekom treba evo skript koji pravi ikonicu na desktopu sa opcijom:

poziva se sa

makeicon.vbs 01234

Code:


Option Explicit
Dim objShell, objDesktop, objLink
Dim strAppPath, strWorkDir, strIconPath

Dim var1
var1 = "http://appserver" & WScript.Arguments(0) & ".htnetwork.com/myweb/login/"

' --------------------------------------------------
strWorkDir ="C:\windows"
strAppPath = var1
strIconPath = "c:\locationicons\web site icon.ico"



Set objShell = CreateObject("WScript.Shell")
objDesktop = objShell.SpecialFolders("Desktop")
Set objLink = objShell.CreateShortcut(objDesktop & "\My local web site.lnk")

' ---------------------------------------------------
' Section which adds the shortcut's key properties

objLink.Description = "Local web site"
objLink.HotKey = "CTRL+SHIFT+X"
objLink.IconLocation = strIconPath 
objLink.TargetPath = strAppPath
objLink.WindowStyle = 3
objLink.WorkingDirectory = strWorkDir
objLink.Save

WScript.Quit