Automation

Sign in to follow this  
Followers 0

34 files

  1. Params Tool is a cmd line parameters retriever, the purpose is to be able to see the list of command in an .exe
    It will execute the written commands just like cmd prompt window.
    If the input field is empty, the default cmd is /?
    To start this tool:
    Double click it, it will write to registry.
    From there on it's just a question of shift+right click the exe you want to see the parameters of.
    To remove from registry:
    call the tool with the parameter /RemoveReg
    Or delete the reg key at:
    HKEY_CURRENT_USER\SOFTWARE\Classes\exefile\shell\Param

    27 downloads

       (0 reviews)

    0 comments

    Updated

  2. Set a profile as active, delete, duplicate, export and import.
    Changes to the profile itself are made in windows.
    The objective is to tweak the settings in windows, and then export the profile,
    then latter the user can import and set as active.
    Enjoy.

    32 downloads

       (0 reviews)

    0 comments

    Updated

  3. OpenW is a "Open With..." from windows, alternative.
    It saves programs you used in the past, and can set in registry an application to an extension.
    If you don't know very well where the application is, you can select a folder,
    that is imported to the list, and then write in the field to search the list.
    I did this because the windows 10 open with is very limited, and doesn't allow me to select an application out of the list.
    This allows me to select also a icon for the filetype.
    Start in exe to set registry, from there on simply right click any file, while pressing shift.
    (Yes, context entry is hidden unless shift is pressed. (Aka: "Extended" in registry.)
    To remove from registry call the file with parameter "/RemoveReg"

    19 downloads

       (0 reviews)

    0 comments

    Updated

  4. Backup or restore your firefox profile, the application searches for the profile in home drive, That will be the one to backup.
    It will backup to other drives under the folder name you state, where it is tipicaly: PROGS.

    848 downloads

       (1 review)

    4 comments

    Updated

  5. Extensive library to control and manipulate Microsoft Outlook.
    Theads: Development - General Help & Support - Example Scripts - Wiki
    BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort

    KNOWN BUGS (last changed: )

    1,992 downloads

       (0 reviews)

    0 comments

    Updated

  6. ; #INDEX# ======================================================================== ; Title .........: Chilkat.au3 ; AutoIt Version : 3.3.10.2++ ; Language ......: English ; Description ...: A collection of Function for use with Chilkat component ; Author ........: mLipok ; Modified ......: ; URL ...........: https://www.chilkatsoft.com/refdoc/activex.asp ; URL ...........: https://www.chilkatsoft.com/downloads_ActiveX.asp ; Date ..........: 2017/02/01 ; Version .......: 0.1.1 BETA - Work in progress ; ================================================================================ This is an UDF modest beginning for Chilkat component:
    https://www.chilkatsoft.com/downloads_ActiveX.asp
    Some of AcitveX object bundled int this component (dll file) are Free, some other are commercial.

    Support topic:
     

    13 downloads

       (0 reviews)

    0 comments

    Updated

  7. Hello, this is an application i did because i got tired of pasting my email and other bits of text over and over again, this takes care of that, has 9 fields
    used with "\" + a number.
    Other features include, shutting down, restart logoff pc, and turn off monitor
    has a function to show information about the computer, cpu motherboard..
    has an editbox that if it has a value between 1 and 100, that becomes the value by which the volume will change, let's call it step, a value of 5 will step system volume by 5 at each change. Empty or zero means it's ignored and uses system stock/usual way.
    "\"+Pause takes a screenshot on the active window
    "\"+R jumps to registry, using content from clipboard.
    If you have firefox and MozRepl extension, it allows youtube video control in active tab, volume play pause. All explain in "about" tray menu item.
    This uses firefox UDF and BASS libraries.
    Middle Mouse Button in titlebar minimizes to tray.
    I think that's all.
    Best regards.

    46 downloads

       (0 reviews)

    0 comments

    Updated

  8. Extensive library to control and manipulate Microsoft Active Directory.

    Threads: Development - General Help & Support - Example Scripts - Wiki

    BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort

    4,857 downloads

       (2 reviews)

    4 comments

    Updated

  9. Hello, this is a tool made to be used with regedit, it starts regedit when run, then saves a list of the paths in registry the user browsed, on double click in the "history" list, it jumps to that key, it has 2 methods of jump, one is through favorites, the other through "lastkey".
    In certain cases you can use the context menu "follow" in keys like
    HKEY_CLASSES_ROOT\.abc
    to jump to
    HKEY_CLASSES_ROOT\abcfile
    As an example.
    The other context menu is "Clear", and its obvious it clears the listview.
    Best regards.

    58 downloads

       (1 review)

    0 comments

    Updated

  10. Hi, this is a tool to change folders or files names, very simple, drag or choose folder, write what you want the application to search for,
    write what you want it to be replaced with, select folders or files, case-sensitive or not, recursive or not and Go.
    Example: change all files that have 123 in their name to nothing (aka remove "123")
    so we write 123 in the "search", and leave the "replacement" field blank.
    file "123abc.exe" will become abc.exe
    file "456trt123.txt" Becomes "456trt.txt"
    As i said, simple.

    42 downloads

       (0 reviews)

    0 comments

    Updated

  11. Program+Folder - This application allows you to create sudo persistent shortcuts on a removable device. If you create a regular shortcut on a removable device and its drive letter changes or you move it to another PC, the shortcut stops working. This little program helps solve that. Simply run the application from the root of your device and follow the tree to the application you want to make a shortcut to. Application must be an EXE. program+folder has to be in a parent folder to the application you are creating the shortcut for. See screenshots for example. Originally I had called this Folder+Program, but thought it better to put the program name first for better sorting.
    There are bound to be bugs and limitations so try it out and let me know how to improve it.




    37 downloads

       (0 reviews)

    0 comments

    Updated

  12. ListCompare - Simple program, paste in two lists to compare. Button one compares case insensitive (Image 3). Button two compares case (Image 4). The results are given as Left only Both or Right only. Names of the list can be changed. This application was written as a project for work. We were given a list of names to compare against a websites list to see how search results were given. This application helped automate the task of comparing. Hope it can be of used to someone else.


    18 downloads

       (0 reviews)

    0 comments

    Submitted

  13. WinSizer 2.1c - Size and place the active windows on your desktop.
    I had 2 applications to manage window layouts, but one was complicated, and they both required a hot key to activate. So, I cloned the layout of the one I liked that was simple, and made it so that it is automatic. Basically this program lets you pick from a list of open windows and save its position and size, with the option of choosing if you just want to maintain its size, or position or both, and how the program looks for the said window. Feel free to add or change as you like. If you find bugs or have ideas let me know.  Thanks to a function by (johnmcloud) added the ability to call the program from a shortcut as minimized for use in adding to startup.
    Instructions!
    Click on a window and select "add new". While the settings window is active, you can move and size the target window. The values will automatically update in the settings window. Then save to lock it down. If you open a window after launching winsizer, click refresh to refresh the list of open, visible windows.
    Selecting an open window that has already been saved, will overwrite the current saved information.



    53 downloads

       (0 reviews)

    0 comments

    Submitted

  14. ADCU displays two Active Directory users and their group membership in two listviews. You can filter and export the data to Excel, Outlook mail and the clipboard.
    Before running the script you need to change file AD-Tools.ini and function _Check_Access in AD-Tools_User.au3.
    BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort
    Needs to be run with the latest AutoIt production version (>= 3.3.12.0).
    Needs to be run with the latest version of the AD UDF (>= 1.4.2.0).

    514 downloads

       (0 reviews)

    0 comments

    Updated

  15. ADCG displays two Active Directory groups and their direct members in two listviews. You can filter and export the data to Excel, Outlook mail and the clipboard.
    Before running the script you need to change file AD-Tools.ini and function _Check_Access in AD-Tools_User.au3.
    BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort
    Needs to be run with the latest AutoIt production version (>= 3.3.12.0).
    Needs to be run with the latest version of the AD UDF (>= 1.4.2.0).

    348 downloads

       (0 reviews)

    0 comments

    Updated



  16. System Requirements : It will run on all windows operating system : Windows server 2003, 2008, 2012 and also Windows XP, 7,8,10 and other windows platform.

    This is full package of the software  which includes
     
    Automatic webpage refreshment,  Changing date stamp of files from one to many files or any extension type,   File Management (Transfer files from data centre with network path and direct directory either by Date (from last to first modified date or from first to last modified date) and also by Name Computer Inventory- Display hardware and software information in text file and also can use to centralize all your computer information Automation to zip and unzip files and folders. Paste file to many folders Recycling Empty files and folders Searching files and folders Trim Filenames automatically (from end or beginning or combined) Note: If you are having problem using the application, do not hesitate to contact me or comment on it . I am still working on improving it and also adding some features.
     
    Computer Information Inventory program :
    The Files :
    Get Computer Detailes.exe - This application will create path C:\M-Omega containing two folders for  hardware info and one for software info.  You can use One2many tasks in Logmein to put info in that path for many computers. It can work to centralized about thousands of computers. 
    Centralized_all_Computer_Details Folder :  You will find 3 files in this folder. Right click the central.ini file and select Edit and change the path name in the file as Input1="\\network_path\pathfile\". Make sure all the computers have access to this share network path... Copy also the user_interface_combo in the same place where the \\network_path\pathfile is located.
    After this, select all the computers you will like to get their computer information. For example, if using Logmein, use one2many tasks. Double click the replicate_inifile.bat. This will copy the cenral.ini to all the required PC path into this location -- "C:\M-Omega\Config_centralize_inventory\central.ini". If your PC is not using C drive, then you can change the C drive to D or E or F which is available. Please note this is when you do not have C drive, that is when you can change the C Drive in the batch script to D or E or F
    You can now use other remote software such as LogmeIn  (One2Many tasks) to run this application "Centralize_all_Computer_details.exe" on all your target computers selected. This will look for the network path you inputed into the central.ini file located in each computer and Within 1 minutes, the hardware and software info is generated on two folders on the network path provided. This can work on thousands of computers.
    User Interface Combo... This is GUI of the application which can help you interact with the software and hardware info in these folders.  I have included files in these folders to understand how this combo GUI works. Make sure this file is located in the same place where you define your network path in the central.ini file.
     

    175 downloads

       (0 reviews)

    1 comment

    Updated

  17. A small script that allows you to run AutoIt code from any web browser by creating a special 'autoit:' protocol. Before you use the protocol, run 'install.au3'!

    183 downloads

       (0 reviews)

    2 comments

    Updated

  18. (almoast) Silent Ninite visite ninite.com
    Put the ninite.exe file into the same folder as the silent-ninite.exe.
    Run 'silent-ninite.exe' and 'See' the beauty!!! :-)

    149 downloads

       (0 reviews)

    2 comments

    Submitted

  19. UDF for automating Adobe Photoshop software.
    Features:
    Creating, opening and saving documents Manipulating layer settings Applying effects to layers More features soon!

    124 downloads

       (0 reviews)

    0 comments

    Updated

  20. Fourth Alpha version of the PowerPoint UDF.
    Something for you to play with.
    Lot of things still missing: Lot of functions, help file etc.
    If you want to discuss the functions please post here.
    BTW: If you like this UDF please click the "I like this" button. This tells me where to next put my development effort

    137 downloads

       (0 reviews)

    0 comments

    Updated

  21. Automation for HyCam2 screen recording utility.

    240 downloads

       (1 review)

    0 comments

    Updated

  22. Network Adapter Info use WMI (Windows Management Instrumentation) 
    Features : 
    Show information network card. Easily copy information, for copy just click on the line want to copy. Notifications connection, connection loss. Supports exporting information to file (CSV/INI format). Run: 
    Export to file INI format:   NetStatus.exe "PathFileOut.INI"   
    Export to file CSV format:  NetStatus.exe "PathFileOut.CSV" CSV
     
    Function:
    Global Const $sNotAvailable = "N/A" Global Const $sBlankIP = "0.0.0.0" Global Const $sBlankMAC = "00:00:00:00:00:00" ;~ #include <Array.au3> ;~ _ArrayDisplay(_GetListAdaptersInfo(".")) Func _GetListAdaptersInfo($sComputer = ".") Local $Cols = 13, $strIndex, $objVAR, $objVARx, $zAdapter, $zAdapterName, $zSpeed, $zIndex, $zInterfaceIndex, $zGetIPType, $zAdapterStatus, $zIP, $zMAC, $zSubNetIP, $zGetwayIP, $zDNS1, $zGetwayMAC, $zDNS2 Local $aReturn[1][$Cols] = [[0, $Cols]] If $sComputer = Default Then $sComputer = @ComputerName Local $sListIndexInterfaceName = _ListIndexInterfaceName() Local $objWMI = ObjGet("winmgmts:\\" & $sComputer & "\root\cimv2") Local $objWQLx = $objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID != NULL", "WQL", 0x30) ;~ Local $objWQLx = $objWMI.ExecQuery('Select * From Win32_NetworkAdapter', "WQL", 0x30) If Not @error And IsObj($objWQLx) Then For $objVARx In $objWQLx $zAdapterName = $objVARx.NetConnectionID If (StringStripWS($zAdapterName, 8) = "") Then ContinueLoop $zSpeed = _ByteSuffixRound($objVARx.Speed) ; Vista+ If Int($zSpeed) <= 0 Then For $z = 0 To UBound($sListIndexInterfaceName) - 1 If $sListIndexInterfaceName[$z][1] = $zAdapterName Then $zSpeed = _ByteSuffixRound(InterfaceIndexSpeed($sListIndexInterfaceName[$z][0])) Next EndIf $zAdapterStatus = $objVARx.NetConnectionStatus Switch $zAdapterStatus Case 0, 3 $zAdapterStatus = "Disable" Case 1, 2 $zAdapterStatus = "Connected" Case $zAdapterStatus = 7 $zAdapterStatus = "unPlugged" Case Else $zAdapterStatus = $sNotAvailable EndSwitch $strIndex = $objVARx.Index Local $objWQL = $objWMI.ExecQuery('SELECT * FROM Win32_NetworkAdapterConfiguration WHERE Index=' & $strIndex, "WQL", 0x30) If Not @error And IsObj($objWQL) Then For $objVAR In $objWQL $zAdapter = $objVAR.Description $aReturn[0][0] += 1 $zIndex = $aReturn[0][0] ReDim $aReturn[$zIndex * 2][$aReturn[0][1]] $zInterfaceIndex = $objVAR.InterfaceIndex If Int($zInterfaceIndex) <= 0 Then For $z = 0 To UBound($sListIndexInterfaceName) - 1 If $sListIndexInterfaceName[$z][1] = $zAdapterName Then $zInterfaceIndex = $sListIndexInterfaceName[$z][0] Next EndIf $aReturn[$zIndex][0] = $zInterfaceIndex $aReturn[$zIndex][1] = $zAdapter $aReturn[$zIndex][2] = $zAdapterName $aReturn[$zIndex][3] = $zAdapterStatus $zGetIPType = $objVAR.DHCPEnabled If $zGetIPType Then $zGetIPType = "DHCP" Else $zGetIPType = "StaticIP" EndIf $aReturn[$zIndex][4] = $zGetIPType $zIP = $objVAR.IPAddress(0) If StringStripWS($zIP, 8) = "" Then $zIP = $sNotAvailable $aReturn[$zIndex][5] = $zIP $zSubNetIP = $objVAR.IPSubnet(0) If StringStripWS($zSubNetIP, 8) = "" Then $zSubNetIP = $sNotAvailable $aReturn[$zIndex][6] = $zSubNetIP $zMAC = $objVAR.MACAddress If StringStripWS($zMAC, 8) = "" Then $zMAC = $sNotAvailable $aReturn[$zIndex][7] = $zMAC $zGetwayIP = $objVAR.DefaultIPGateway(0) If StringStripWS($zGetwayIP, 8) = "" Then $zGetwayIP = $sNotAvailable $aReturn[$zIndex][8] = $zGetwayIP $zGetwayMAC = $sNotAvailable If $zGetwayIP <> $sNotAvailable Then $zGetwayMAC = _GetMACFromIP($zGetwayIP) $aReturn[$zIndex][9] = $zGetwayMAC $aReturn[$zIndex][10] = $sNotAvailable $aReturn[$zIndex][11] = $sNotAvailable If Number($zSpeed) = 0 Then $zSpeed = $sNotAvailable $aReturn[$zIndex][12] = $zSpeed Local $zDNS = $objVAR.DNSServerSearchOrder() If IsArray($zDNS) Then If (UBound($zDNS) - 1) > 0 Then $aReturn[$zIndex][10] = $zDNS[0] $aReturn[$zIndex][11] = $zDNS[1] Else $aReturn[$zIndex][10] = $zDNS[0] EndIf EndIf Next EndIf Next Return $aReturn EndIf Return SetError(1, 0, "") EndFunc ;==>_GetListAdaptersInfo Func _ListIndexInterfaceName() Local Const $tagIP_ADAPTER_ADDRESSES = "ulong Length;dword IfIndex;ptr Next;ptr AdapterName;ptr FirstUnicastAddress;" & "ptr FirstAnycastAddress;ptr FirstMulticastAddress;ptr FirstDnsServerAddress;ptr DnsSuffix;ptr Description;" & "ptr FriendlyName;byte PhysicalAddress[8];dword PhysicalAddressLength;dword Flags;dword Mtu;dword IfType;int OperStatus;" & "dword Ipv6IfIndex;dword ZoneIndices[16];ptr FirstPrefix;" & "uint64 TransmitLinkSpeed;uint64 ReceiveLinkSpeed;ptr FirstWinsServerAddress;ptr FirstGatewayAddress;" & "ulong Ipv4Metric;ulong Ipv6Metric;uint64 Luid;STRUCT;ptr Dhcpv4ServerSockAddr;int Dhcpv4ServerSockAddrLen;ENDSTRUCT;" & "ulong CompartmentId;STRUCT;ulong NetworkGuidData1;word NetworkGuidData2;word NetworkGuidData3;byte NetworkGuidData4[8];ENDSTRUCT;" & "int ConnectionType;int TunnelType;STRUCT;ptr Dhcpv6ServerSockAddr;int Dhcpv6ServerSockAddrLen;ENDSTRUCT;byte Dhcpv6ClientDuid[130];" & "ulong Dhcpv6ClientDuidLength;ulong Dhcpv6Iaid;ptr FirstDnsSuffix;" Local $aRet, $nBufSize, $stBuffer, $stIP_ADAPTER_ADDRESSES, $pIPAAStruct, $nIPAAStSize Local $pTemp, $nTemp, $nEntries, $aIndexEntries $aRet = DllCall("iphlpapi.dll", "ulong", "GetAdaptersAddresses", "ulong", 0, "ulong", 0x86, "ptr", 0, "ptr", 0, "ulong*", 0) If @error Then Return SetError(1, @error, "") If $aRet[0] Then If $aRet[0] <> 111 Or Not $aRet[5] Then Return SetError(2, $aRet[0], "") EndIf $nBufSize = $aRet[5] $stBuffer = DllStructCreate("int64;byte [" & $nBufSize & "];") $aRet = DllCall("iphlpapi.dll", "ulong", "GetAdaptersAddresses", "ulong", 0, "ulong", 0x86, "ptr", 0, "ptr", DllStructGetPtr($stBuffer), "ulong*", $nBufSize) If @error Then Return SetError(1, @error, "") If $aRet[0] Then Return SetError(2, $aRet[0], "") Dim $aIndexEntries[Floor($nBufSize / 72)][2] $nEntries = 0 $pIPAAStruct = DllStructGetPtr($stBuffer) While $pIPAAStruct <> 0 $stIP_ADAPTER_ADDRESSES = DllStructCreate($tagIP_ADAPTER_ADDRESSES, $pIPAAStruct) $nIPAAStSize = DllStructGetData($stIP_ADAPTER_ADDRESSES, "Length") $nTemp = DllStructGetData($stIP_ADAPTER_ADDRESSES, "OperStatus") If ($nTemp = 2 And Not False) Or DllStructGetData($stIP_ADAPTER_ADDRESSES, "IfType") = 24 Then Else $pTemp = DllStructGetData($stIP_ADAPTER_ADDRESSES, "FirstUnicastAddress") If $pTemp <> 0 Then $aIndexEntries[$nEntries][0] = DllStructGetData($stIP_ADAPTER_ADDRESSES, "IfIndex") $aIndexEntries[$nEntries][1] = _GetStringW_FromPtr(DllStructGetData($stIP_ADAPTER_ADDRESSES, "FriendlyName")) $nEntries += 1 EndIf EndIf $pIPAAStruct = DllStructGetData($stIP_ADAPTER_ADDRESSES, "Next") WEnd If $nEntries = 0 Then Return SetError(-1, 0, "") ReDim $aIndexEntries[$nEntries][2] Return SetExtended($nEntries, $aIndexEntries) EndFunc ;==>_ListIndexInterfaceName Func InterfaceIndexSpeed($IfIndex) Local $tBuffer, $pBuffer, $iResult, $iSpeed $tBuffer = DllStructCreate("wchar[256];dword[5];byte[8];dword[16];char[256]") $pBuffer = DllStructGetPtr($tBuffer) DllStructSetData($tBuffer, 2, $IfIndex, 1) $iResult = DllCall("iphlpapi.dll", "long", "GetIfEntry", "ptr", $pBuffer) If @error Then Return SetError(@error, @extended, 0) $iSpeed = DllStructGetData($tBuffer, 2, 4) ;~ $sDescr = DllStructGetData($tBuffer, 5) $tBuffer = 0 Return SetError($iResult[0], $iSpeed / 1000 / 1000, $iSpeed) EndFunc ;==>InterfaceIndexSpeed Func _GetStringW_FromPtr($pStr) If Not IsPtr($pStr) Or $pStr = 0 Then Return SetError(1, 0, "") Local $aRet = DllCall("kernel32.dll", "ptr", "lstrcpynW", "wstr", "", "ptr", $pStr, "int", 32767) If @error Or Not $aRet[0] Then Return SetError(@error, 0, "") Return $aRet[1] EndFunc ;==>_GetStringW_FromPtr Func _GetMACFromIP($rMAC) If ($rMAC = "") Or ($rMAC = $sNotAvailable) Then Return $sNotAvailable Local $sbMAC = DllStructCreate("byte[6]") Local $siMAC = DllStructCreate("int") DllStructSetData($siMAC, 1, 6) Local $rHexMAC = DllCall("Ws2_32.dll", "int", "inet_addr", "str", $rMAC) $rMAC = $rHexMAC[0] $rHexMAC = DllCall("iphlpapi.dll", "int", "SendARP", "int", $rMAC, "int", 0, "ptr", DllStructGetPtr($sbMAC), "ptr", DllStructGetPtr($siMAC)) $rMAC = "" For $i = 0 To 5 If $i Then $rMAC &= ":" $rMAC = $rMAC & Hex(DllStructGetData($sbMAC, 1, $i + 1), 2) Next If ($rMAC = "") Or ($rMAC = $sBlankMAC) Or ($rMAC = $sNotAvailable) Then Return $sNotAvailable Return $rMAC EndFunc ;==>_GetMACFromIP Func _ByteSuffixRound($iBytes, $iRound = 2) $iBytes = Number($iBytes) If $iBytes > 1000000000 Then Return $sNotAvailable Local $A, $aArray[5] = ["Bps", "Kbps", "Mbps", "Gbps", "Tbps"] While $iBytes > 999 $A += 1 If $A > 3 Then ExitLoop $iBytes /= 1000 WEnd Return Round($iBytes, $iRound) & " " & $aArray[$A] EndFunc ;==>_ByteSuffixRound ;==>CreateContentCSV  

    276 downloads

       (1 review)

    1 comment

    Updated

  23. Attributes Tool  
    Features : 
    USB Hidden Folder Fix: Show hidden files in USB and delete (.ink) files.  Rename Unicode (Vietnamese to ASCII - Loại bỏ dấu Tiếng Việt ở tên tập tin và thư mục). Set timestamp for the files/folders. Quickly delete files/folders. |R|: cleanup junk file on computer. |H|: Hide HIDDEN files in Windows. |S|: Show HIDDEN files in Windows.  
    Use : 
     Select mode  Drag and drop files/folder into program window Or press buttons and select files/folders. Or  Run:  AttributesTool.exe "AnyFilesPath.ext"  "AnyFilesPath.ext"  "AnyFilesPath.ext"  (Using the previous configuration was selected!)

    Run as Administrator and select Try Force to the best use!
     
    Function:
    #RequireAdmin Func _SetAttributes($sFileDirIN, $sAttribSet, $sRecurseDir = 1, $sForce = 1) If Not FileExists($sFileDirIN) Then Return SetError(1, 0, 0) $sAttribSet = StringStripWS($sAttribSet, 8) If $sAttribSet = "" Then Return SetError(2, 0, 0) If $sRecurseDir = 1 Then If StringInStr(FileGetAttrib($sFileDirIN), 'D') <> 1 Then $sRecurseDir = 0 EndIf Local $SetAttrib = FileSetAttrib($sFileDirIN, $sAttribSet, $sRecurseDir) If (@error Or $SetAttrib = 0) And $sForce = 1 Then _TakeOwnership($sFileDirIN) $SetAttrib = FileSetAttrib($sFileDirIN, $sAttribSet, $sRecurseDir) EndIf Return SetError($SetAttrib = 0, 0, $SetAttrib > 0) EndFunc ;==>_SetAttributes Func _TakeOwnership($xFile) If Not FileExists($xFile) Then Return SetError(1, 0, $xFile) If StringInStr(FileGetAttrib($xFile), 'D') <> 0 Then RunWait(@ComSpec & ' /c takeown /f "' & $xFile & '" /R /D Y', '', @SW_HIDE) RunWait(@ComSpec & ' /c Echo y|cacls "' & $xFile & '" /T /C /G Administrators:F', '', @SW_HIDE) RunWait(@ComSpec & ' /c icacls "' & $xFile & '" /grant Administrators:F /T /C /Q', '', @SW_HIDE) Return SetError(0, 0, 0) Else RunWait(@ComSpec & ' /c takeown /f "' & $xFile & '"', '', @SW_HIDE) RunWait(@ComSpec & ' /c Echo y|cacls "' & $xFile & '" /C /G Administrators:F', '', @SW_HIDE) RunWait(@ComSpec & ' /c icacls "' & $xFile & '" /grant Administrators:F /Q', '', @SW_HIDE) Return SetError(0, 0, 1) EndIf Return $xFile EndFunc ;==>_TakeOwnership Func _IsUSB($sDrive) Local $sIsUSB = 0, $sType = DriveGetType($sDrive, 3) If DriveGetType($sDrive, 1) = "Removable" Or $sType = "USB" Or $sType = "SD" Or $sType = "MMC" Then $sIsUSB = 1 Return $sIsUSB EndFunc ;==>_IsUSB Func _SplitPath($sFilePath, $sType = 0) Local $sDrive, $sDir, $sFileName, $sExtension, $sReturn Local $aArray = StringRegExp($sFilePath, "^\h*((?:\\\\\?\\)*(\\\\[^\?\/\\]+|[A-Za-z]:)?(.*[\/\\]\h*)?((?:[^\.\/\\]|(?(?=\.[^\/\\]*\.)\.))*)?([^\/\\]*))$", 1) If @error Then ReDim $aArray[5] $aArray[0] = $sFilePath EndIf $sDrive = $aArray[1] If StringLeft($aArray[2], 1) == "/" Then $sDir = StringRegExpReplace($aArray[2], "\h*[\/\\]+\h*", "\/") Else $sDir = StringRegExpReplace($aArray[2], "\h*[\/\\]+\h*", "\\") EndIf $aArray[2] = $sDir $sFileName = $aArray[3] $sExtension = $aArray[4] If $sType = 1 Then Return $sDrive If $sType = 2 Then Return $sDir If $sType = 3 Then Return $sFileName If $sType = 4 Then Return $sExtension If $sType = 5 Then Return $sFileName & $sExtension If $sType = 6 Then Return $sDrive & $sDir If $sType = 7 Then Return $sDrive & $sDir & $sFileName Return $aArray EndFunc ;==>_SplitPath  

    79 downloads

       (0 reviews)

    0 comments

    Updated

  24. Remmanaut, the autoit RMM tool.

    213 downloads

       (0 reviews)

    0 comments

    Updated

  25. This is an experimental UDF for automating Blender 3D software using AutoIt. The package comes with a Python addon for Blender, allowing such automation and a simple example of how to use this UDF.
    Enjoy!

    98 downloads

       (0 reviews)

    1 comment

    Updated

Sign in to follow this  
Followers 0