#Include <File.au3>
#Include <Array.au3>

ConsoleWrite(«Fast inventory» & @CRLF)
ConsoleWrite(«Made by Serg.Piter © 2012» & @CRLF)

Local $val = DirCreate(«c:\windows\temp\aida»)
If $val=1 Then
    ConsoleWrite ( «Dir create OK» & @CRLF)
else
    ConsoleWrite ( «Dir create ERROR» & @CRLF)
EndIf

Local $val = FileCopy("\\Путь к архиву с aida.zip",«c:\windows\temp\aida\aida64.zip»)
If $val=1 Then
    ConsoleWrite ( «Aida64.zip copy OK» & @CRLF)
else
    ConsoleWrite ( «Aida64.zip copy ERROR» & @CRLF)
EndIf

Local $val = FileCopy("\\Путь к unzip.exe",«c:\windows\temp\aida\unzip.exe»)
If $val=1 Then
    ConsoleWrite(«Unzip.exe copy OK» & @CRLF)
else
    ConsoleWrite(«Unzip.exe copy ERROR» & @CRLF)
EndIf

Local $val = FileCopy("\\Путь к unzip32.dll",«c:\windows\temp\aida\unzip32.dll»)
If $val=1 Then
    ConsoleWrite(«Unzip32.dll copy OK» & @CRLF)
else
    ConsoleWrite(«Unzip32.dll copy ERROR» & @CRLF)
EndIf

Local $val = RunWait(«C:\WINDOWS\TEMP\AIDA\unzip.exe -qq -o aida64.zip»,«c:\windows\temp\aida», @SW_HIDE)
If $val=0 Then
    ConsoleWrite(«Everything unzipped OK» & @CRLF)
else
    ConsoleWrite(«Unzip error» & @CRLF)
EndIf

Local $val = RunWait(«C:\WINDOWS\TEMP\AIDA\aida64.exe /R c:\windows\temp\aida\%computername% /TEXT /CUSTOM aida64.rpf»,«C:\WINDOWS\TEMP\AIDA\», @SW_HIDE)
If $val=0 Then
    ConsoleWrite(«Report OK» & @CRLF)
else
    ConsoleWrite(«Report ERROR» & @CRLF)
EndIf

Local $val = FileCopy(«c:\windows\temp\aida\» & @ComputerName & ".txt","\\Путь к шаре для Reports\")
If $val=1 Then
    ConsoleWrite(«Report copy OK» & @CRLF)
else
    ConsoleWrite(«Report copy ERROR» & @CRLF)
EndIf

Sleep(2000)

DirRemove(«C:\windows\temp\aida»,1)