|
получить IP-адрес |
☑ |
0
Wobland
09.10.12
✎
19:02
|
задался целью написать скрипт для выдачи ip. нашёл вот такой вот код:
Set WNetwork = CreateObject("WScript.Network")
Set WMIService = GetObject("winmgmts:\\" + WNetwork.ComputerName + "\root\cimv2")
Set IPConfigSet = WMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
Forall IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
ip=IPConfig.IPAddress
MsgBox ip
End If
End Forall
при запуске ругается на строку с Forall: предполагается наличие окончания инструкции. синтаксис вроде верный, копипастом вставленный. отладить нечем. вопрос: что тут не так? быть может, есть иной способ?
|
|
1
Classic
09.10.12
✎
19:04
|
Может Next?
|
|
2
Wobland
09.10.12
✎
19:06
|
строка 5, символ 17 - in
next, next ipconfig вместо end forall ситуацию не изменило
|
|
3
Happy Bear
09.10.12
✎
19:09
|
Для Каждого...
|
|
4
Wobland
09.10.12
✎
19:10
|
Forall IPConfig In IPConfigSet do - аналогично ни черта. кто знает, какая буква есть в правильном ответе? и, главное ведь, на форуме, откуда взял, за код спасибо сказано...
|
|
5
Wobland
09.10.12
✎
19:10
|
(3) это vbs
|
|
6
Wobland
09.10.12
✎
19:11
|
так.. а vbs ли это? становится всё интересней ;)
|
|
7
Happy Bear
09.10.12
✎
19:11
|
For Each
Next
|
|
8
Wobland
09.10.12
✎
19:14
|
(7) а, ну да
For Each IPConfig In IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
ip=IPConfig.IPAddress
MsgBox ip
End If
Next
|
|
9
Wobland
09.10.12
✎
19:15
|
плин, как теперь ip в строку превратить?
|
|
10
Wobland
09.10.12
✎
19:18
|
оказывается, это массив.
MsgBox ip(0)
спасибо, всё работает
|
|
11
pumbaEO
09.10.12
✎
19:20
|
scriptomatic
|
|
12
Wobland
09.10.12
✎
19:23
|
(11) класс! надо себе такую завести, пасиб
|
|
13
artems
09.10.12
✎
19:31
|
(11) зачетная вещь
|
|