Как зацепить аргументы из коммандной строки в VB-скрипте?

  • Автор темы Mazzay
  • Дата начала
Mazzay

Mazzay

Super Moderator
Регистрация
21.02.2007
Сообщения
77 150
Реакции
3 991
Баллы
113
Возможно ли это вообще?
И если да, то как?
 
R

root

Новичок
Регистрация
20.02.2006
Сообщения
199
Реакции
0
Баллы
0
Возможно ли это вообще?
И если да, то как?
Код:
 '********************************************************************
' Имя: Args.vbs
' Язык: VBScript
' Описание: Работа с аргументами запущенного сценария
'********************************************************************
Option Explicit
Dim i,Arg,objArgs,s,objNamedArgs,objUnnamedArgs ' Объявляем переменные
Set objArgs = WScript.Arguments ' Создаем объект WshArguments
' Определяем общее количество аргументов
s="Всего аргументов: " & objArgs.Count() & vbCrLf
For Each Arg In objArgs s=s & Arg & vbCrLf ' Формируем строки со значениями аргументов
Next
Set objUnnamedArgs=objArgs.Unnamed ' Создаем объект WshUnnamed
' Определяем количество безымянных аргументов
s=s & vbCrLf & "Безымянных аргументов: " & objUnnamedArgs.length & vbCrLf
For Each Arg In objUnnamedArgs ' Формируем строки со значениями безымянных аргументов s=s & Arg & vbCrLf
Next
Set objNamedArgs=objArgs.Named ' Создаем объект WshNamed
' Определяем количество именных аргументов
s=s & vbCrLf & "Именных аргументов: " & objNamedArgs.Length & vbCrLf
' Проверяем, существует ли аргумент /Имя:
If objNamedArgs.Exists("Имя") Then s=s & objNamedArgs("Имя") & vbCrLf
End If
' Проверяем, существует ли аргумент /Comp:
If objNamedArgs.Exists("Comp") Then s=s & objNamedArgs("Comp") & vbCrLf
End If
WScript.Echo s ' Выводим сформированные строки
'************* Конец *********************************************
оно?
 
OP
Mazzay

Mazzay

Super Moderator
Регистрация
21.02.2007
Сообщения
77 150
Реакции
3 991
Баллы
113
Оно. Спасибо! Просто в моём хэлпе про это нет ничего.
 
R

root

Новичок
Регистрация
20.02.2006
Сообщения
199
Реакции
0
Баллы
0
гугль - найдется все ;)
 
Верх Низ