Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для Creat0R

Must AutoIt


Сообщения: 3054
Благодарности: 1009

Профиль | Сайт | Отправить PM | Цитировать


VelDmi,
Это можно кстати средствами одного лишь AutoIt сделать:

Код: Выделить весь код
$ComputerName = IniRead(@ScriptDir & "\Config.ini", "Setup", "ComputerName", 0)

If @ComputerName <> $ComputerName Then
    $strComputer = @ComputerName
    $objWMIService = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\" & $strComputer & "\root\cimv2")
    $colComputers = $objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
    For $objComputer In $colComputers
        $errReturn = $ObjComputer.Rename($ComputerName)
    Next
    FileWriteLine(@ScriptDir & "\error.log", StringFormat("%s:%s:%s %s-%s-%s   Сменили имя компьютера с %s на %s", _
        @HOUR, @MIN, @SEC, @MDAY, @MON, @YEAR, @ComputerName, $ComputerName))
    Shutdown(6)
EndIf

TERMINAL,

Цитата:
можно сделать поиск по файлу
Примерно так:

Код: Выделить весь код
$File_Indicator = "SysDisc7.exe"
$CDROM_Drives = DriveGetDrive("CDROM")

For $i = 1 To $CDROM_Drives[0]
    If FileExists($CDROM_Drives[$i] & "\" & $File_Indicator) Then
        CDTray($CDROM_Drives[$i], "Open")
        ExitLoop
    EndIf
Next

-------
“Сделай так просто, как возможно, но не проще этого.”... “Ты никогда не решишь проблему, если будешь думать так же, как те, кто её создал.”

Альберт Эйнштейн

P.S «Не оказываю техподдержку через ПМ/ICQ, и по email - для этого есть форум. ©»

http://creator-lab.ucoz.ru/Images/Icons/autoit_icon.png Русское сообщество AutoIt | http://creator-lab.ucoz.ru/Images/Ic...eator_icon.png CreatoR's Lab | http://creator-lab.ucoz.ru/Images/Icons/oac_icon.png Opera AC Community

Это сообщение посчитали полезным следующие участники:

Отправлено: 14:39, 12-10-2007 | #594