Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кто знает? / 7 сообщений из 7, страница 1 из 1
17.12.2002, 15:52
    #32080565
sArutiun
sArutiun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
Какой оператор в VBScript принимает значение из командной строки для дальнейшей обработки внутри скрипта?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.12.2002, 16:40
    #32080608
WWW
WWW
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
В VB6.0 я делаю это так:

Sub main()
Dim ins As String
Dim s() As String
Dim x As Integer

ins = Command
s() = Split(ins, " ")
For x = 0 To UBound(s)
msgbox s(x)
Next

End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2002, 10:09
    #32080886
sArutiun
sArutiun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
Когда в скрипт вставляю
Sub main()
....
End sub
то этот блок игнорируется.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2002, 11:36
    #32080932
NNN
NNN
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
WScript.Arguments
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2002, 12:34
    #32080981
WWW
WWW
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
set arg=WScript.Arguments
for x=0 to arg.Count-1
Wscript.Echo arg(x)
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2002, 12:37
    #32080985
WWW
WWW
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
set arg=WScript.Arguments
for x=0 to arg.Count-1
Wscript.Echo arg(x)
next
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
18.12.2002, 16:32
    #32081234
sArutiun
sArutiun
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Кто знает?
ПОЛУЧИЛОСЬ !!!!!
УРА!!!
Вот такой скрипт.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim User
Dim Arg

Set Arg = WScript.Arguments

User=Arg( 0 )
Set User = GetObject( "WinNT://SERGEJ/"  & User &  ",user" )
User.AccountDisabled = True
User.setinfo
Set User = nothing


Огромное спасибо WWW и NNN.
Вы мне очень помогли.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Кто знает? / 7 сообщений из 7, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 484ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2171528]:
 0ms
get settings:
 12ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 146ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 45ms
get tp. blocked users:
 1ms
others: 242ms
total:  484ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]