Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Dim objShell, value2
Set objShell = Wscript.CreateObject("WScript.Shell")
value2 = "This is value 2"
objShell.Run "C:\called.vbs ThisIsValue1 " & value2
Set objShell = Nothing
MsgBox Wscript.Arguments.Item(0)
Msgbox Wscript.Arguments.Item(1)
Dim objShell
Dim objEnv
Set objShell = WScript.CreateObject("WScript.Shell")
Set objEnv = objShell.Environment("User")
objEnv("var1") = "This is value 1"
objShell.Run "C:\called.vbs"
MsgBox objShell.ExpandEnvironmentStrings("%var1%")
MsgBox objShell.ExpandEnvironmentStrings("This value contains: %var1%")
objEnv.Remove "var1"
Set objShell = Nothing
Set objEnv = Nothing
Dim objShell
Dim objEnv
Set objShell = WScript.CreateObject("WScript.Shell")
Set objEnv = objShell.Environment("User")
If objShell.ExpandEnvironmentStrings("%var1%") = "This is value 1" Then
objEnv("var1") = "This new value is 2"
End If
Set objShell = Nothing
Set objEnv = Nothing
objEnv("var1") = "This is value 1"
objShell.Run "C:\called.vbs var1"
Dim varName
varName = Wscript.Arguments.Item(0)
If objShell.ExpandEnvironmentStrings("%" & varName & "%") = "This is value 1" Then
objEnv(varName) = "This new value is 2"
End If
Sub subTest()
var1 = "This is modified value 2"
End Sub
<job id="Main">
<script language="VBScript" src="C:\called.vbs" />
<script language="VBScript">
Dim var1
var1 = "This is value 1"
Call subTest
MsgBox var1
</script>
</Job>