[amel27]

решение КАК выдать список учёток обладающими правами админа есть от amel27

существенно обновил функцию _NetLocalGroupGetMembers, теперь если группа не включает доменных учеток достаточно вызвать функцию с параметрами:

_NetLocalGroupGetMembers ("Администраторы", "", 0, 1)

...справедливости ради приведу еще один вариант функции через COM (взял с форума AutoIT):

Код:

Func _NetLocalGroup ($HOST, $LocalGroup)
    Global $Members[1]
    $Administrators = ObjGet("WinNT://" & $HOST & "/" & $LocalGroup)
    $MemberList=$Administrators.Members
    for $Account in $MemberList
        $FullName=StringUpper(StringRight($Account.Parent, StringLen($Account.Parent)-8))
        if (StringRight($FullName, StringLen($HOST)+1))=("/" & StringUpper($HOST)) then
            $FullName=$Account.Name
        else
            $FullName=$FullName & "\" & $Account.Name
        EndIf
        ReDim $Members[UBound($Members) + 1]
        $Members[UBound($Members) - 1]=$FullName
    next
    $Members[0]=UBound($Members)-1
    Return $Members
EndFunc

P.S. предупреждаю, что через COM работает намного медленней!

[Creat0R]

Не пойму в чём проблема.... хочу осуществить замену текста в определённом каталоге у определённой группы файлов (по маске), но почему то функция которую я написал, не хочет этого делать

Код:

#include <File.au3>

_ReplaceTextInFiles(@ScriptDir & "\Test", "123", "321", "*.txt")

Func _ReplaceTextInFiles($Path, $OldText, $NewText, $Mask="*.*")
    $FileList = _FileListToArray($Path, $Mask)
    If IsArray($FileList) Then
        For $i = 1 to $FileList[0]
            _ReplaceStringInFile($Path & "\" & $FileList[$i], $OldText, $NewText)
        Next
    EndIf
EndFunc

Всё, нашёл свою ошибку - См. подчёркнуты текст в коде - Там было $NewText.

[Craager]

Sanja Alone, а можешь обновить свой скрипт для CuteFTP 8.0.3 с новым патчем (165 кб который)! Очень надо )))

[Sanja Alone]

Craager

можешь обновить свой скрипт

Скрипт работает и с этой версией и с упомянутым патчем. Нужно было просто попробовать произвести установку (и прочитать комментарии в "шапке" скрипта, по ум. патчем считается файл Crack.exe - это именно тот, 165Кб-товый).

[Yozhegg]

в AutoIt как лучше захватить системную дату? Есть ли вообще такая возможность (не прибегая к хитростным изворотам и изворотливым ухищрениям?)

в идеале интересует дата в опр. формате (напр. YYYYMMDD или MMDDYY), для дальнейшего использования в качестве переменной.

[Michail77]

Нужна помощь.
Вот скрипт.Автор его Creat0R за что ему ОГРОМНАЯ БЛАГОДАРНОСТЬ.
Нужно чтобы при отметке установки нескольких программ они запускались поочерёдно. Как это сделать?

Код:

#NoTrayIcon
#Include <GuiConstants.au3>
Opt("RunErrorsFatal", 0)

$Title = "Menu"

If WinExists($Title) Then Exit

GuiCreate($Title, 148, 300)

GUISetFont(13)
GUICtrlCreateLabel("Выбор комплектов",2, 5)

GUISetFont(9)
$Complect1 = GUICtrlCreateCheckbox("AcrReader 4.0.5", 35, 25)
$Complect2 = GUICtrlCreateCheckbox("Office 2003", 35, 50)
$Complect3 = GUICtrlCreateCheckbox("WinRar 3.61", 35, 75)
$Complect4 = GUICtrlCreateCheckbox("DIVX 5.11", 35, 100)
$Complect5 = GUICtrlCreateCheckbox("LightAlloy 4.0", 35, 125)
$Complect6 = GUICtrlCreateCheckbox("WINDVD 7", 35, 150)
$Complect7 = GUICtrlCreateCheckbox("WinAmp 5.08", 35, 175)
$Complect8 = GUICtrlCreateCheckbox("Nero 6.6.0.8", 35, 200)
$Complect9 = GUICtrlCreateCheckbox("DrWeb 4.33", 35, 225)
$Complect10 = GUICtrlCreateCheckbox("Kav 5.338", 35, 250)

$Next = GUICtrlCreateButton("Next>>", 0, 276, 50)
$Cancel = GUICtrlCreateButton("Cancel", 99, 276, 50)

GUISetState()

While 1
$Msg = GUIGetMsg()

Select 
  
  Case $Msg = $Gui_Event_Close or $Msg = $Cancel
    Exit

  Case $Msg = $Next
	If GUICtrlRead($Complect1) <> 1 and GUICtrlRead($Complect2) <> 1 and GUICtrlRead($Complect3) <> 1 and GUICtrlRead($Complect4) <> 1 and GUICtrlRead($Complect5) <> 1 and GUICtrlRead($Complect6) <> 1 and GUICtrlRead($Complect7) <> 1 and GUICtrlRead($Complect8) <> 1 and GUICtrlRead($Complect9) <> 1 and GUICtrlRead($Complect10) <> 1 Then
		GUISetState(@SW_DISABLE)
		MsgBox(262144+48, "Attention", "Выберите как минимум одну птичку ;-)")
		GUISetState(@SW_ENABLE)
		WinActivate($Title, "")
		ContinueLoop
	EndIf

    If GUICtrlRead($Complect1) = $Gui_Checked Then
		Run ("AcrReader\Acrobat.exe")
		If @error Then
		  MsgBox(48, "error", "Не могу запустить <Acrobat.exe>")
		  ContinueLoop
		EndIf
  ;Тут должна выполняться установка комплекта № 1
    EndIf
    
    If GUICtrlRead($Complect2) = $Gui_Checked Then
		Run ("Office\AutoOffice.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoOffice.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 2
    EndIf
    
    If GUICtrlRead($Complect3) = $Gui_Checked Then
		Run ("WinRar\Autowinrar.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinRar.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 3
    EndIf

    If GUICtrlRead($Complect4) = $Gui_Checked Then
		Run ("DIVX\DivX511.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <DivX.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 4
    EndIf

    If GUICtrlRead($Complect5) = $Gui_Checked Then
		Run ("LightAlloy\LA.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <LA.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 5
    EndIf

    If GUICtrlRead($Complect6) = $Gui_Checked Then
		Run ("WINDVD\AutoWINDVD7.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinDVD.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 6
    EndIf

    If GUICtrlRead($Complect7) = $Gui_Checked Then
		Run ("WinAmp\AutoWinAmp.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoWinAmp.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 7
    EndIf

    If GUICtrlRead($Complect8) = $Gui_Checked Then
		Run ("Nero\Nero6608a.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <Nero.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 8
    EndIf

    If GUICtrlRead($Complect9) = $Gui_Checked Then
		Run ("DrWebAut\AutoDrWeb.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoDrWeb.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 9
    EndIf

    If GUICtrlRead($Complect10) = $Gui_Checked Then
		Run ("kav\AutoKav.exe")
		If @error Then
			MsgBox(48, "error", "Не могу запустить <AutoKav.exe>")
			ContinueLoop
		EndIf
	;Тут должна выполняться установка комплекта № 10
    EndIf

	GUISetState(@SW_HIDE)

ExitLoop

EndSelect

Wend

[Sanja Alone]

Yozhegg

дата в опр. формате (напр. YYYYMMDD или MMDDYY)

Просто возьми макросы даты/времени и поставь в нужной тебе последовательности:

Код:

@SEC	- Значение секунд на часах. От 00 до 59
@MIN	- Значение минут на часах. От 00 до 59
@HOUR	- Значение часов на часах в 24-часовом формате. От 00 до 23
@MDAY	- Текущий день месяца. От 01 до 31
@MON	- Текущий месяц. От 01 до 12
@YEAR	- Текущий год в четырехзначном формате
@WDAY	- День недели в числовом представлении. От 1 до 7 - от воскресенья до субботы
@YDAY	- Текущий день года. От 1 до 366 (или 365 для невисокосного года)

Вот тебе пример - дата в виде YYYYMMDD:

Код:

MsgBox (0,"Текущая дата",@YEAR & @MON & @MDAY)

[Yozhegg]

To Sanja Alone: Благодарю за ответ. Спустя 24 часа оценил некоторую поспешность вопроса. Покопавшись в хелпе нашёл эти макросы, но меня смущало отсутствие
возможности форматирования.. мне нужно было (ГГММДД)...

Код:

 Global $y = @YEAR 
Global $mon = @MON 
Global $mday = @MDAY  
Global $e_year = @YEAR - 2000  
Global $_Total = (0 & $e_year & $mon & $mday )

- коряво, но в моём случае работает.

[Yozhegg]

А как в AutoIt снять показание с RadioButton(OptionButton)?

Ischecked -это параметр, или макрос, которым можно проверить отмечена радиокнопка 1 или радиокнопка 2?

[Sanja Alone]

Yozhegg

смущало отсутствие возможности форматирования

См. в сторону ф-ции StringFormat ( "format control", var1 [, ... var32] ).

как в AutoIt снять показание с RadioButton

Код:

If BitAnd(GUICtrlRead($Radio_1),$GUI_CHECKED) Then
	msgbox(0,"","Отмечена кнопка 1")
Else
	msgbox(0,"","Кнопка 1 НЕ отмечена")
EndIf

Ischecked -это параметр, или макрос

Это переменная, описывающая состояние н-рого эл-та управления.