[NikLok]

Creat0R, amel27, мНЕ собственно нужен как основа скрипт взятия имен машин типа списка аналогичного "Сетевеое окружение". При этом акцент было бы интересно установить на взятие его на машинах с несколькими сетевыми интерфейсами!

[amel27]

NikLok
Перед тем как писать скрипт нужно определиться как разрешать имена: широковещанием (NetBIOS), сервер WINS или DNS?.. Это определяется настройками локальной сети.

[TERMINAL]

У меня идёт опрос окон:
For $i = 0 To 25
MsgBox(64,"System disc","Идёт установка программы ! Подождите пожалуйста "& 26-$i &" секунд...", 2)
if WinWait("Окно 1","", 1) Then
ControlClick("Окно 1","","Button2")
EndIf
If WinWait("Окно 2","",1) Then
ControlClick("Окно 2","","Button2")
EndIf
If WinWait("Окно 3","", 1) Then
ControlClick("Окно 3","","Button2")
EndIf
If WinWait("Окно 4","", 1) Then
ControlClick("Окно 4","","Button2")
EndIf
Next

Дальше идёт продолжение выполнения скрипта....

Возможно ли сделать в цикле так, что если какое-то из окон определяется то заканчивает работать цикл и переходит к дальнейшему выполнению скрипта?

[Maza Faka]

TERMINAL

если какое-то из окон определяется то заканчивает работать цикл

ExitLoop

[NikLok]

amel27, Конечно лучше универсальный вариант. Но на худой конец и простой NetBios сгодится!

[amel27]

на худой конец и простой NetBios сгодится »

1. "NET VIEW"
2. То же через API (функция возвращает массив):

Код:

Global Const $SV_TYPE_WORKSTATION = 0x1
Global Const $SV_TYPE_SERVER = 0x2
Global Const $SV_TYPE_SQLSERVER = 0x4
Global Const $SV_TYPE_DOMAIN_CTRL = 0x8
Global Const $SV_TYPE_DOMAIN_BAKCTRL = 0x10
Global Const $SV_TYPE_TIME_SOURCE = 0x20
Global Const $SV_TYPE_AFP = 0x40
Global Const $SV_TYPE_NOVELL = 0x80
Global Const $SV_TYPE_DOMAIN_MEMBER = 0x100
Global Const $SV_TYPE_PRINTQ_SERVER = 0x200
Global Const $SV_TYPE_DIALIN_SERVER = 0x400
Global Const $SV_TYPE_XENIX_SERVER = 0x800
Global Const $SV_TYPE_NT = 0x1000
Global Const $SV_TYPE_WFW = 0x2000
Global Const $SV_TYPE_SERVER_MFPN = 0x4000
Global Const $SV_TYPE_SERVER_NT = 0x8000
Global Const $SV_TYPE_POTENTIAL_BROWSER = 0x10000
Global Const $SV_TYPE_BACKUP_BROWSER = 0x20000
Global Const $SV_TYPE_MASTER_BROWSER = 0x40000
Global Const $SV_TYPE_DOMAIN_MASTER = 0x80000
Global Const $SV_TYPE_WINDOWS = 0x400000
Global Const $SV_TYPE_CLUSTER_NT = 0x1000000
Global Const $SV_TYPE_TERMINALSERVER = 0x2000000
Global Const $SV_TYPE_CLUSTER_VS_NT  = 0x4000000
Global Const $SV_TYPE_LOCAL_LIST_ONLY = 0x40000000
Global Const $SV_TYPE_DOMAIN_ENUM = 0x80000000
Global Const $SV_TYPE_ALL = 0xFFFFFFFF

Func _NetServerEnum ($iSrvType = -1, $sDomain = '')
    Local $uBufPtr = DllStructCreate("ptr;int;int"), $res[1]=[0], $i
    Local $uRecord = DllStructCreate("dword;ptr"), $iRecLen = DllStructGetSize($uRecord)
    Local $uString = DllStructCreate("char[16]")
    Local $uDomain = DllStructCreate("byte[32]"), $pDomain = 0
    If Not ($sDomain='' Or $sDomain='*') Then
         DllStructSetData($uDomain, 1, StringToBinary($sDomain,2))
        $pDomain = DllStructGetPtr($uDomain)
    EndIf
    Local $ret = DllCall ("netapi32.dll", "int", "NetServerEnum", _
        "ptr", 0, "int", 100, _
        "ptr", DllStructGetPtr($uBufPtr,1), "int", -1, _
        "ptr", DllStructGetPtr($uBufPtr,2), _
        "ptr", DllStructGetPtr($uBufPtr,3), _
        "int", $iSrvType, "ptr", $pDomain, "int", 0 )
    If $ret[0] Then Return SetError(1, $ret[0], '')
    Local $res[DllStructGetData($uBufPtr,3)+1]=[DllStructGetData($uBufPtr,3)]
    For $i=1 To DllStructGetData($uBufPtr,3)
        Local $uRecord = DllStructCreate("dword;ptr", DllStructGetData($uBufPtr,1)+($i-1)*$iRecLen)
        Local $sNBName = DllStructCreate("byte[32]", DllStructGetData($uRecord,2))
        DllStructSetData($uString,1,BinaryToString(DllStructGetData($sNBName,1),2))
        $res[$i] = DllStructGetData($uString,1)
    Next
    $ret = DllCall ("netapi32.dll", "int", "NetApiBufferFree", "ptr", DllStructGetData($uBufPtr,1))
    Return $res
EndFunc

[NikLok]

amel27, Спасибо! Буду изучать, но пока не понял как указать конкретную сеть для просмотра?! У меня 4 карточки стоит!
Во блин ты даешь! И ведь работает! Я так понимаю параметр ей давть бессмысленно, или там при объявлении он задан на случай отсутствия?

[Maza Faka]

Как создать 24 размерный массив со случайным числом от 1 до 13, причём числа должны быть парными, то есть у каждого числа должна быть пара и расположение их в массиве всегда должно быть случайным.

[Creat0R]

Maza Faka,

Как создать 24 размерный массив со случайным числом от 1 до 13, причём числа должны быть парными

Возможно 24 элементный, не размерный? т.е двумерный, но содержащий 24 элемента?

Вобщем если я правильно понял, то вот:

Код:

#include <Array.au3>

Dim $Array[25][2]

For $i = 1 To 24
    $iRandom = Random(1, 13, 1)
    $Array[$i][0] = $iRandom
    Do
        $jRand = Random(1, 24, 1)
    Until $Array[$jRand][1] = ""
    $Array[$jRand][1] = $iRandom
Next

_ArrayDisplay($Array)

[amel27]

NikLok

не понял как указать конкретную сеть для просмотра?! У меня 4 карточки стоит! »

В NetBIOS нельзя ограничить широковещание одной карточкой... Если все подсети (карточки) находятся в одном широковещательном домене или если именование настроено через WINS, то ограничение не имеет смысла. Если же подсети имеют свои системы именования, то во-первых, "многокарточный" комп не должен быть мастер-браузером (подробно: KB191611). Во-вторых, можно попытаться отобрать компы явно задав имя домена/группы (скрипт подправил), список всех доменов/групп можно получить передав 1-м параметром $SV_TYPE_DOMAIN_ENUM.

Я так понимаю параметр ей давть бессмысленно, или там при объявлении он задан на случай отсутствия? »

На случай отсутствия ($SV_TYPE_ALL). Вот кстати еще вариант через ADSI:

Код:

Func _GetDomainComputers($sDomain)
    Local $objComp, $res[1]=[0], $aType[1] = ["computer"]
    Local $objDom = ObjGet('WinNT://'& $sDomain)
    If $objDom=0 Then Return SetError(1)
    $objDom.Filter = $aType
    For $objComp In $objDom
        $res[0]+=1
        ReDim $res[$res[0]+1]
        $res[$res[0]]=$objComp.Name
    Next
    Return $res
EndFunc