[Creat0R]

VovaVolk,

потом надо вводить имя и пароль »

Диалог отображается куда можно вводить данные?

DENoszone,

пишу сайт...а скрипт парсит его с верху до низу »

Одну страничку?

TERMINAL,

Возможно ли как то узнать серийный номер жёсткого диска, CD-ROMa, материнской платы....? »

Возможно, но это не ко мне, никогда не сталкивался.

Возможно ли с помощью скрипта писать диски? »

Полагаю что тоже возможно.

Возможно ли с помощью скрипта, зная название программы, к примеру 1С, узнать на какой сетевой адрес и через какой порт она подключена? »

Опять, это не ко мне
Я административными задачами не занимался, за исключением мелких, которые были любопытны мне.

SvetlanaK,

как сделать именно отслеживание? »

Я как то приводил пример:

Код:

#include <GuiConstants.au3>

Global $aDrives = 0

GUICreate("USB Ejector & Monitor", 300, 210)

$List = GUICtrlCreateList("", 20, 20, 260, 140)

$EjectDrive_Button = GUICtrlCreateButton("Eject Drive", 20, 170, 70, 20)
$RefreshList_Button = GUICtrlCreateButton("Refresh List", 210, 170, 70, 20)

_Check_Drives()
AdlibEnable("_Check_Drives", 1000)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $EjectDrive_Button
            $sDrive = GUICtrlRead($List)

            _EjectDrive(StringLower($sDrive))
        Case $RefreshList_Button
            $aCheckDrives = DriveGetDrive("Removable")
            _SetUSBDrivesList_Proc($List)
    EndSwitch
WEnd

Func _Check_Drives()
    $aCheckDrives = DriveGetDrive("Removable")

    If Not _aDrivesIsIdent($aDrives, $aCheckDrives) Then
        $aDrives = $aCheckDrives
        _SetUSBDrivesList_Proc($List)
    EndIf
EndFunc

Func _SetUSBDrivesList_Proc($iCtrlID=-1)
    GUICtrlSetData($iCtrlID, "")

    For $i = 1 To UBound($aDrives)-1
        If Not _IsFloppyDrives($aDrives[$i]) And DriveStatus($aDrives[$i]) = "READY" Then _
            GUICtrlSetData($iCtrlID, StringUpper($aDrives[$i]) & "\")
    Next
EndFunc

Func _aDrivesIsIdent(ByRef $avArray1, ByRef $avArray2)
    Local $iUbound1 = UBound($avArray1), $iUbound2 = UBound($avArray2)

    If $iUbound1 <> $iUbound2 Then Return False

    For $i = 1 To $iUbound1-1
        If Not _IsFloppyDrives($avArray1[$i], $avArray2[$i]) And _
            ($avArray1[$i] <> $avArray2[$i] Or DriveStatus($avArray1[$i]) <> "READY" Or _
            DriveStatus($avArray2[$i]) <> "READY") Then Return False
    Next

    Return True
EndFunc

Func _IsFloppyDrives($sDrive1, $sDrive2="")
    Return StringRegExp($sDrive1, "(?i)[a-b]") Or ($sDrive2 <> "" And StringRegExp($sDrive2, "(?i)[a-b]"))
EndFunc

Func _EjectDrive($sdLetter, $sVerb="&Извлечь") ;Для английской Winndows $sVerb = "E&ject"
    ;Раскомментируйте эти строчки для Варианта № 1 :)
;~  Run("rundll32.exe shell32.dll,Control_RunDLL hotplug.dll", @SystemDir)
;~  Return

    If $sdLetter = "" Then Return 0

    Local Const $SSF_DRIVES = 17
    Local $oShell, $oNameSpace, $oDrive

    Local $oEvent = ObjEvent("AutoIt.Error", "Error_Handler")

    Local $oShell = ObjCreate("Shell.Application")
    If Not IsObj($oShell) Then Return SetError(1, 0, 0)

    Local $oNamespace = $oShell.NameSpace($SSF_DRIVES)
    Local $oDrive = $oNamespace.ParseName($sdLetter)

    $oDrive.InvokeVerb($sVerb)
    If @error Then Return 0

    If DriveStatus($sdLetter) <> "READY" Then
        Local $strName = DriveGetLabel($sdLetter) & " (" & StringUpper($sdLetter) & ")"
        TrayTip("USB Drive " & $strName & " ejected", "You can now remove the device safely.", 5, 1)
    EndIf
Endfunc

Func Error_Handler()
    SetError(1)
EndFunc