Rahul Rohela

Restarting explorer will not work... restart is required...

HI, With attached script you can disable enable USB Storage & removable devices of PC having admin rights with you. Remotely this can disable & enable devices. Only drawback is PC requires restart... Rahul #include<GUIconstants.Au3> Opt("TrayIconHide", 1) Opt("GUICloseOnESC", 0) $DE = GUICreate("Disable/Enable Devices", 305, 145, -1, -1) GUICtrlCreateLabel("PC name or IP ", 10,10,70,15) $PCName = GUICtrlCreateInput(@ComputerName, 85,10,150, 15, -1,0x00000020 ) GUICtrlSetLimit(-1,256) $Status = GUICtrlCreateButton("Query PC",240,10,60,20,BitOr(0x0001,0x8000)) GUICtrlSetState($status, $GUI_FOCUS) GUICtrlCreateLabel("USB Mass Storage ", 10,35,90,15) $UDisable = GUICtrlCreateButton("Disable",105,35,60,20,BitOr(0x0001,0x8000)) $UEnable = GUICtrlCreateButton("Enable",170,35,60,20,BitOr(0x0001,0x8000)) $USB = GUICtrlCreateLabel("", 240,37,60,15) GUICtrlCreateLabel("CD-ROM ", 10,60,90,15) $CDisable = GUICtrlCreateButton("Disable",105,60,60,20,BitOr(0x0001,0x8000)) $CEnable = GUICtrlCreateButton("Enable",170,60,60,20,BitOr(0x0001,0x8000)) $CD = GUICtrlCreateLabel("", 240,62,60,15) GUICtrlCreateLabel("Floppy Drive", 10,85,90,15) $FDisable = GUICtrlCreateButton("Disable",105,85,60,20,BitOr(0x0001,0x8000)) $FEnable = GUICtrlCreateButton("Enable",170,85,60,20,BitOr(0x0001,0x8000)) $FD = GUICtrlCreateLabel("", 240,87,60,15) GUICtrlCreateLabel("High Capacity Floppy Drive", 10,105,90,30) $FHDisable = GUICtrlCreateButton("Disable",105,110,60,20,BitOr(0x0001,0x8000)) $FHEnable = GUICtrlCreateButton("Enable",170,110,60,20,BitOr(0x0001,0x8000)) $HFD = GUICtrlCreateLabel("", 240,112,60,15) $Final = GUICtrlCreateLabel("", 102,132,190,15) Opt("TrayIconHide", 1) GUISetState (@SW_SHOW) While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $DE, "int", 1000, "long", 0x00090000);fade-out ExitLoop EndIf Select Case $msg = $Status _PathSet() Case $msg = $UDisable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "4") If Not @error Then GUICtrlSetData( $USB, "Disbabled") GUICtrlSetColor($USB,0xff0000) GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $USB, "Error") EndIf Case $msg = $UEnable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start", "REG_DWORD", "3") If Not @error Then GUICtrlSetData( $USB, "Enabled") GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $USB, "Error") EndIf Case $msg = $CDisable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom", "Start", "REG_DWORD", "4") If Not @error Then GUICtrlSetData( $CD, "Disbabled") GUICtrlSetColor($CD,0xff0000) GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $CD, "Error") EndIf Case $msg = $CEnable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom", "Start", "REG_DWORD", "1") If Not @error Then GUICtrlSetData( $CD, "Enabled") GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $CD, "Error") EndIf Case $msg = $FDisable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk", "Start", "REG_DWORD", "4") If Not @error Then GUICtrlSetData( $FD, "Disbabled") GUICtrlSetColor($FD,0xff0000) GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $FD, "Error") EndIf Case $msg = $FEnable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk", "Start", "REG_DWORD", "3") If Not @error Then GUICtrlSetData( $FD, "Enabled") GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $FD, "Error") EndIf Case $msg = $FHDisable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy", "Start", "REG_DWORD", "4") If Not @error Then GUICtrlSetData( $hFD, "Disbabled") GUICtrlSetColor($hFD,0xff0000) GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $hFD, "Error") EndIf Case $msg = $FHEnable _PathSet() RegWrite($path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy", "Start", "REG_DWORD", "3") If Not @error Then GUICtrlSetData( $hFD, "Enabled") GUICtrlSetData( $Final,"(Restart PC to take effects )") Else GUICtrlSetData( $hFD, "Error") EndIf EndSelect WEnd Func _ReadStatus() ; FOR USB<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $USB_REG_Value = RegRead( $Path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR", "Start") If $USB_REG_Value = 3 Then GUICtrlSetData( $USB, "Enabled" ) ElseIf $USB_REG_Value = 4 Then GUICtrlSetData( $USB, "Disbabled") GUICtrlSetColor($USB,0xff0000) Else GUICtrlSetData( $USB, "Unknown") EndIf ;FOR CD<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $CD_REG_Value = RegRead( $Path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Cdrom", "Start") If $CD_REG_Value = 1 Then GUICtrlSetData( $CD, "Enabled" ) ElseIf $CD_REG_Value = 4 Then GUICtrlSetData( $CD, "Disbabled") GUICtrlSetColor($CD,0xff0000) Else GUICtrlSetData( $CD, "Unknown") EndIf ;FOR Floppy<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< $FD_REG_Value = RegRead( $Path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Flpydisk", "Start") If $FD_REG_Value = 3 Then GUICtrlSetData( $FD, "Enabled" ) ElseIf $FD_REG_Value = 4 Then GUICtrlSetData( $FD, "Disbabled") GUICtrlSetColor($FD,0xff0000) Elseif $FD_REG_Value = 1 Then GUICtrlSetData( $FD, "System") ElseIf $FD_REG_Value = 2 Then GUICtrlSetData( $FD, "Auto Load") Else GUICtrlSetData( $FD, "Unknown") EndIf ;FOR High Capacity Floppy<<<<<<<<<<<<<<<<< $hFD_REG_Value = RegRead( $Path & "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Sfloppy", "Start") If $hFD_REG_Value = 3 Then GUICtrlSetData( $hFD, "Enabled" ) ElseIf $hFD_REG_Value = 4 Then GUICtrlSetData( $hFD, "Disbabled") GUICtrlSetColor($hFD,0xff0000) Else GUICtrlSetData( $hFD, "Unknown") EndIf EndFunc Func _PathSet() $NameIP = GUICtrlRead($PCName) If $NameIP = "" Then MsgBox(0,"PCName or IP", "Please enter PC Name or IP") Else Global $Path = "\\" & $NameIP ;MsgBox(0,"Path", $path) $ping = Ping($NameIP) If @error then GUICtrlSetData($Final,"Error: Could not contact to remote Host") GUICtrlSetColor($final,0xff0000) Else GUICtrlSetData( $Final,"") _ReadStatus() EndIf EndIf EndFunc

Have a look http://vil.nai.com/vil/content/v_141756.htm

Checked on XP PC too... Problem is same & giving attached error discription... <?xml version="1.0" encoding="UTF-16"?> <DATABASE> <EXE NAME="SAV test4 For XP.exe" FILTER="GRABMI_FILTER_PRIVACY"> <MATCHING_FILE NAME="ca_setup.exe" SIZE="6103621" CHECKSUM="0xD9732ED0" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x40000" LINK_DATE="05/27/1997 23:03:53" UPTO_LINK_DATE="05/27/1997 23:03:53" /> <MATCHING_FILE NAME="KeyGen.exe" SIZE="98304" CHECKSUM="0xE20B203B" BIN_FILE_VERSION="1.0.0.1" BIN_PRODUCT_VERSION="1.0.0.1" PRODUCT_VERSION="1, 0, 0, 1" FILE_DESCRIPTION="SP2 keygen by ORGix" COMPANY_NAME="MaTher-HackErS Designers 2004" PRODUCT_NAME="SP2 keygen" FILE_VERSION="1, 0, 0, 1" ORIGINAL_FILENAME="sp2keygen.EXE" INTERNAL_NAME="SP2keygen" LEGAL_COPYRIGHT="ORGix © 2004" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.0.0.1" UPTO_BIN_PRODUCT_VERSION="1.0.0.1" LINK_DATE="03/11/2004 00:42:58" UPTO_LINK_DATE="03/11/2004 00:42:58" VER_LANGUAGE="Chinese (PRC) [0x804]" /> <MATCHING_FILE NAME="SAV test4 For XP.exe" SIZE="269161" CHECKSUM="0xD2CC9647" BIN_FILE_VERSION="3.2.3.0" BIN_PRODUCT_VERSION="3.2.3.0" FILE_DESCRIPTION="" FILE_VERSION="3, 2, 3, 0" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x0" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="3.2.3.0" UPTO_BIN_PRODUCT_VERSION="3.2.3.0" LINK_DATE="03/10/2007 08:44:36" UPTO_LINK_DATE="03/10/2007 08:44:36" VER_LANGUAGE="English (United Kingdom) [0x809]" /> <MATCHING_FILE NAME="SAV test4.exe" SIZE="269065" CHECKSUM="0xD2CC9647" BIN_FILE_VERSION="3.2.3.0" BIN_PRODUCT_VERSION="3.2.3.0" FILE_DESCRIPTION="" FILE_VERSION="3, 2, 3, 0" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x0" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="3.2.3.0" UPTO_BIN_PRODUCT_VERSION="3.2.3.0" LINK_DATE="03/10/2007 08:44:36" UPTO_LINK_DATE="03/10/2007 08:44:36" VER_LANGUAGE="English (United Kingdom) [0x809]" /> <MATCHING_FILE NAME="SAV test5.exe" SIZE="269293" CHECKSUM="0xD2CC9647" BIN_FILE_VERSION="3.2.3.0" BIN_PRODUCT_VERSION="3.2.3.0" FILE_DESCRIPTION="" FILE_VERSION="3, 2, 3, 0" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x0" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="3.2.3.0" UPTO_BIN_PRODUCT_VERSION="3.2.3.0" LINK_DATE="03/10/2007 08:44:36" UPTO_LINK_DATE="03/10/2007 08:44:36" VER_LANGUAGE="English (United Kingdom) [0x809]" /> <MATCHING_FILE NAME="SUPERsetup.exe" SIZE="25760213" CHECKSUM="0xCB8D7C75" BIN_FILE_VERSION="2006.8.1.1712" BIN_PRODUCT_VERSION="0.0.0.0" PRODUCT_VERSION="Version 2006.19 (FIX)" FILE_DESCRIPTION="TIN Setup" COMPANY_NAME="eRightSoft " PRODUCT_NAME="SUPER ©" FILE_VERSION="2006.8.1.1712" ORIGINAL_FILENAME="SETUPPRO.EXE" INTERNAL_NAME="SetupPro" LEGAL_COPYRIGHT="Copyright © 2002-2006 eRightSoft " VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="2006.8.1.1712" UPTO_BIN_PRODUCT_VERSION="0.0.0.0" LINK_DATE="01/11/2006 21:45:26" UPTO_LINK_DATE="01/11/2006 21:45:26" VER_LANGUAGE="English (United States) [0x409]" /> <MATCHING_FILE NAME="SWIADMLE.MSI" SIZE="5988352" CHECKSUM="0x9DED93D7" /> <MATCHING_FILE NAME="WPA.exe" SIZE="69632" CHECKSUM="0x6A3741F9" BIN_FILE_VERSION="1.5.0.0" BIN_PRODUCT_VERSION="1.5.0.0" PRODUCT_VERSION="1.05" PRODUCT_NAME="Windows 2003 &amp; XP Anti Product Activation Patch" FILE_VERSION="1.05" ORIGINAL_FILENAME="WPA_Kill.exe" INTERNAL_NAME="WPA_Kill" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x15689" LINKER_VERSION="0x10005" UPTO_BIN_FILE_VERSION="1.5.0.0" UPTO_BIN_PRODUCT_VERSION="1.5.0.0" LINK_DATE="07/08/2004 14:46:14" UPTO_LINK_DATE="07/08/2004 14:46:14" VER_LANGUAGE="German (Germany) [0x407]" /> <MATCHING_FILE NAME="X12-30196.exe" SIZE="407010384" CHECKSUM="0x66A74889" BIN_FILE_VERSION="12.0.4518.1014" BIN_PRODUCT_VERSION="12.0.4518.0" PRODUCT_VERSION="12.0.4518.1014" FILE_DESCRIPTION="" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="" FILE_VERSION="12.0.4518.1014" ORIGINAL_FILENAME="" INTERNAL_NAME="" LEGAL_COPYRIGHT="© 2006 Microsoft Corporation. All rights reserved." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x0" MODULE_TYPE="WIN32" PE_CHECKSUM="0x18432489" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="12.0.4518.1014" UPTO_BIN_PRODUCT_VERSION="12.0.4518.0" LINK_DATE="10/26/2006 21:02:06" UPTO_LINK_DATE="10/26/2006 21:02:06" VER_LANGUAGE="Language Neutral [0x0]" /> <MATCHING_FILE NAME="XP Pro corp 640 PID KEYGEN.exe" SIZE="94208" CHECKSUM="0xDCCB20DF" BIN_FILE_VERSION="1.0.0.1" BIN_PRODUCT_VERSION="1.0.0.1" PRODUCT_VERSION="1, 0, 0, 1" FILE_DESCRIPTION="MSKey Microsoft 基础类应用程序" COMPANY_NAME="" PRODUCT_NAME="MSKey 应用程序" FILE_VERSION="1, 0, 0, 1" ORIGINAL_FILENAME="MSKey.EXE" INTERNAL_NAME="MSKey" LEGAL_COPYRIGHT="版权所有 © 2003" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.0.0.1" UPTO_BIN_PRODUCT_VERSION="1.0.0.1" LINK_DATE="03/11/2004 00:42:58" UPTO_LINK_DATE="03/11/2004 00:42:58" VER_LANGUAGE="Chinese (PRC) [0x804]" /> <MATCHING_FILE NAME="XP Pro corp 640 PID KEYGEN1.exe" SIZE="13824" CHECKSUM="0x6265B0D8" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x10000" LINK_DATE="05/08/2006 16:56:42" UPTO_LINK_DATE="05/08/2006 16:56:42" /> <MATCHING_FILE NAME="jv16 PowerTools 2006\jv16PT.exe" SIZE="895488" CHECKSUM="0x77DAC3C7" BIN_FILE_VERSION="1.5.2.344" BIN_PRODUCT_VERSION="1.5.2.344" PRODUCT_VERSION="2006" FILE_DESCRIPTION="jv16 PowerTools 2006" COMPANY_NAME="Macecraft Software" PRODUCT_NAME="jv16 PowerTools 2006" FILE_VERSION="1.5.2.344" ORIGINAL_FILENAME="jv16PT.exe" INTERNAL_NAME="" LEGAL_COPYRIGHT="Copyright 1999-2006 Macecraft Software" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.5.2.344" UPTO_BIN_PRODUCT_VERSION="1.5.2.344" LINK_DATE="06/19/1992 22:22:17" UPTO_LINK_DATE="06/19/1992 22:22:17" VER_LANGUAGE="English (United Kingdom) [0x809]" /> <MATCHING_FILE NAME="jv16 PowerTools 2006\unins000.exe" SIZE="72748" CHECKSUM="0xC1D0305B" BIN_FILE_VERSION="51.5.0.0" BIN_PRODUCT_VERSION="51.5.0.0" PRODUCT_VERSION=" " FILE_DESCRIPTION="Inno Setup Uninstaller" COMPANY_NAME="Jordan Russell" PRODUCT_NAME="" FILE_VERSION="51.5.0.0" ORIGINAL_FILENAME="" INTERNAL_NAME="" LEGAL_COPYRIGHT="Copyright © 1998-2001 Jordan Russell" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="51.5.0.0" UPTO_BIN_PRODUCT_VERSION="51.5.0.0" LINK_DATE="06/19/1992 22:22:17" UPTO_LINK_DATE="06/19/1992 22:22:17" VER_LANGUAGE="English (United States) [0x409]" /> <MATCHING_FILE NAME="jv16 PowerTools 2006\Backups0015C\Mpcs.exe" SIZE="1814528" CHECKSUM="0x5FEB863A" /> <MATCHING_FILE NAME="New Folder\Windows_XP_Key_Viewer.exe" SIZE="262727" CHECKSUM="0x7F362E9C" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="05/14/2002 12:21:48" UPTO_LINK_DATE="05/14/2002 12:21:48" /> <MATCHING_FILE NAME="New Folder\Windows_XP_Product_Activation_Killer.exe" SIZE="69632" CHECKSUM="0x6A3741F9" BIN_FILE_VERSION="1.5.0.0" BIN_PRODUCT_VERSION="1.5.0.0" PRODUCT_VERSION="1.05" PRODUCT_NAME="Windows 2003 &amp; XP Anti Product Activation Patch" FILE_VERSION="1.05" ORIGINAL_FILENAME="WPA_Kill.exe" INTERNAL_NAME="WPA_Kill" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x15689" LINKER_VERSION="0x10005" UPTO_BIN_FILE_VERSION="1.5.0.0" UPTO_BIN_PRODUCT_VERSION="1.5.0.0" LINK_DATE="07/08/2004 14:46:14" UPTO_LINK_DATE="07/08/2004 14:46:14" VER_LANGUAGE="German (Germany) [0x407]" /> <MATCHING_FILE NAME="New Folder\Windows_XP_Service_Pack_2_Keygen.exe" SIZE="98304" CHECKSUM="0xE20B203B" BIN_FILE_VERSION="1.0.0.1" BIN_PRODUCT_VERSION="1.0.0.1" PRODUCT_VERSION="1, 0, 0, 1" FILE_DESCRIPTION="SP2 keygen by ORGix" COMPANY_NAME="MaTher-HackErS Designers 2004" PRODUCT_NAME="SP2 keygen" FILE_VERSION="1, 0, 0, 1" ORIGINAL_FILENAME="sp2keygen.EXE" INTERNAL_NAME="SP2keygen" LEGAL_COPYRIGHT="ORGix © 2004" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.0.0.1" UPTO_BIN_PRODUCT_VERSION="1.0.0.1" LINK_DATE="03/11/2004 00:42:58" UPTO_LINK_DATE="03/11/2004 00:42:58" VER_LANGUAGE="Chinese (PRC) [0x804]" /> </EXE> <EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY"> <MATCHING_FILE NAME="kernel32.dll" SIZE="983552" CHECKSUM="0x4CE79457" BIN_FILE_VERSION="5.1.2600.2180" BIN_PRODUCT_VERSION="5.1.2600.2180" PRODUCT_VERSION="5.1.2600.2180" FILE_DESCRIPTION="Windows NT BASE API Client DLL" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Microsoft® Windows® Operating System" FILE_VERSION="5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)" ORIGINAL_FILENAME="kernel32" INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. All rights reserved." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0xFF848" LINKER_VERSION="0x50001" UPTO_BIN_FILE_VERSION="5.1.2600.2180" UPTO_BIN_PRODUCT_VERSION="5.1.2600.2180" LINK_DATE="08/04/2004 07:56:36" UPTO_LINK_DATE="08/04/2004 07:56:36" VER_LANGUAGE="English (United States) [0x409]" /> </EXE> </DATABASE>

HI, Script is very nice. But in case we want to serach more file types & number is 6-7. then time to show result is 6 times than normal if we add /s switch. Because its going through loop for each file type. RunWait(@ComSpec & ' /c ' & 'dir "' & $sPath & '\' & $aSplit[$iCC] _ & '" /b /o-e /od > "' & $hOutFile & '"', '', @SW_HIDE) but if we use command form like dir /s /b c:\*.dat; c:\*.txt; c:\*.mp3 then its showing results for all files types in one go.. Is it possible to modify above script in this way to save time.. Please help. Thx Rahul

Script is good but its not seraching as mentiond above. If we search one folder then its showing files of both type (*.vbs & *.js). But is we search whole C drive its only showing files of first search option that is *.vbs.. Any idea how to resolve this & will it work if we want to search more file types(*.mp3|*.avi|*.mpeg|*.dat|*.3gp) Thx rahul

Errro is coming with both compiled EXE & script file. Most of time error occure after 15-20 PCs got scanned. I am using this script to know SAV defination & hotfixes status on PCs through registry. Same script compiled with old verion with no changes is working fine.. Error is related to script i have run i checked it on many PCs.. But no use..

HI Script attached.... #include <GUIConstants.au3> #Include <GuiListView.au3> #include <File.au3> #include <Math.au3> #Include <GuiTreeView.au3> Opt ("MustDeclareVars", 1) Dim $ListTxt, $LogFilePath, $NavGUI, $PCList, $Context_menu, $ScanContext, $ScanSelect, $Finaldiaplay, $Open, $Scan, $Exit, $LogCheckBox, $LogCheckBox2 Dim $LogFileLoc, $logButton, $LogFile, $LogFileDiffrent, $Status, $Count_Live, $fileOpen, $i1, $FileRead, $msg, $CountWS, $Count, $PingWS, $var, $AutoProtectvalue Dim $HotFixKey, $year, $month, $date, $rev, $file, $FileCopy, $TreeViewItem, $HotFixTree, $Y, $RegVal, $SAVTree, $HotfixTop, $Context_Tree, $Context_Tree_Copy Dim $Context_Tree_Delete, $Txt, $Context_Tree_Collaps, $h_item, $setTxt, $MathVal, $RevNav, $FileCSVOpen, $WriteCSV, $AutoDisable, $result, $a, $b, $c, $sYY, $sMM, $sDD, $iYear, $iMonth, $iDay, $reg Global Const $MIM_APPLYTOSUBMENUS = 0x80000000 Global Const $MIM_BACKGROUND = 0x00000002 $NavGUI = GUICreate("SAV and Hotfix Scan", 600,600,-1,-1) $PCList = GUICtrlCreateListView("PC list to Scan",-1,-1,200,470,$WS_TABSTOP+$WS_BORDER) _GUICtrlListViewSetColumnWidth ($PCList, 0, 196) $Context_menu = GUICtrlCreateContextMenu($PCList) $ScanContext = GUICtrlCreateMenuitem("Scan All",$Context_menu) GUICtrlCreateMenuitem("",$Context_menu) $ScanSelect = GUICtrlCreateMenuitem("Scan Selected",$Context_menu) ;***********************Tree view******************* $Finaldiaplay = GUICtrlCreateTreeView(204,-1,395,470,BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) $Context_Tree = GUICtrlCreateContextMenu($Finaldiaplay) $Context_Tree_Copy = GUICtrlCreateMenuitem("Copy",$Context_Tree) GUICtrlCreateMenuitem("",$Context_Tree) $Context_Tree_Collaps = GUICtrlCreateMenuitem("Collaps All",$Context_Tree) GUICtrlCreateMenuitem("",$Context_Tree) $Context_Tree_Delete = GUICtrlCreateMenuitem("Delete Selected",$Context_Tree) $Open = GUICtrlCreateButton("Open",14,474,40,22,BitOr(0x0001,0x8000)) $Scan = GUICtrlCreateButton("Scan",78,474,40,22,BitOr(0x0001,0x8000)) $Exit = GUICtrlCreateButton("Exit",140,474,40,22,BitOr(0x0001,0x8000)) $LogCheckBox = GUICtrlCreateCheckbox("Overwrite log file.",250,476,100,22,$BS_AUTORADIOBUTTON) GUICtrlSetState($LogCheckBox,$GUI_CHECKED) $LogCheckBox2 = GUICtrlCreateCheckbox("Append to log file.",450,476,105,22,$BS_AUTORADIOBUTTON) GUICtrlCreateLabel("LogFile Location:",4,510,85,22) $LogFileLoc = GUICtrlCreateInput (@ScriptDir,100,508,225,22,$ES_READONLY+$ES_AUTOHSCROLL) $logButton = GUICtrlCreateButton("....",330,508,25,22,BitOr(0x0001,0x8000)) GUICtrlCreateLabel("LogFile Name:",365,510,85,22) $LogFile = GUICtrlCreateInput ("NavHotfix.txt",455,508,130,22) $LogFileDiffrent = GUICtrlCreateCheckbox("Create different log file for each workstation (File name will be same as workstation name).",5,540,445,22,$BS_AUTORADIOBUTTON) $Status = GUICtrlCreateLabel("",2,570,596,22,BitOR($SS_SUNKEN, $SS_CENTER) ) DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $NavGUI, "int", 1000, "long", 0x00040010) ;explode GUISetState (@SW_SHOW) _TxtFileReadSatrt() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $NavGUI, "int", 1000, "long", 0x00090000);fade-out ExitLoop EndIf Select Case $msg = $Open $file = FileOpenDialog("Choose file...",@ScriptDir, "Text files (*.txt)| All (*.*)" ) If @error Then MsgBox(4096,"","No File(s) chosen") Else _GUICtrlListViewDeleteAllItems($PCList) $FileCopy = Filecopy( $file, @ScriptDir & "\Workstation.txt",1) _TxtFileRead() EndIf Case $msg = $Scan Or $msg = $ScanContext If _GUICtrlListViewGetItemCount($PCList) = 0 Then MsgBox(0,"Workstations List", "Workstations list is empty. Please load the list.") Else _WorkstationRead() EndIf Case $msg = $logButton _LogFilePathSelect() Case $msg = $Exit DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $NavGUI, "int", 1000, "long", 0x00090000);fade-out ExitLoop Case $msg = $ScanSelect $Txt = _GUICtrlListViewGetItemText ($PCList, -1, 0);,"SAV and Hotfix Scan") If ($Txt <> $LV_ERR) Then _SelectedScan() Else MsgBox(0,"Selection", "Nothing selected.") EndIf Case $msg = $Context_Tree_Copy $h_item = GUICtrlSendMsg($Finaldiaplay, $TVM_GETNEXTITEM, $TVGN_CARET, 0) If $h_item > 0 Then ClipPut (_GUICtrlTreeViewGetText($Finaldiaplay, $h_item)) Case $msg = $Context_Tree_Collaps _GUICtrlTreeViewExpand($Finaldiaplay,0) Case $msg = $Context_Tree_Delete _GUICtrlTreeViewDeleteItem ($NavGUI, $Finaldiaplay) EndSelect Wend Func _TxtFileReadSatrt() If FileExists (@ScriptDir & "\Workstation.txt") Then _TxtFileRead() Endif EndFunc;==> _TxtFileReadSatrt Func _TxtFileRead() $Count_Live = _FileCountLines( @ScriptDir & "\workstation.txt" ) If $Count_Live <> 0 Then $fileOpen = FileOpen(@ScriptDir & "\Workstation.txt", 0) If $fileOpen = -1 Then MsgBox(0, "Error", "Unable to open file.") Else $i1 = 1 Do $FileRead = FilereadLine($fileOpen, $i1) $setTxt = GUICtrlCreateListViewItem ( $FileRead, $PCList ) $MathVal = _MathCheckDiv ( $i1, 2 ) If $MathVal = 1 Then GUICtrlSetColor($setTxt, 0x051EFA) ElseIf $MathVal = 2 Then GUICtrlSetColor($setTxt, 0x000000) EndIf $i1 = $i1 + 1 Until $i1 = $Count_Live +1 FileClose ($fileOpen) EndIf EndIf EndFunc;==>_TxtFileRead Func _WorkstationRead() _DisableControl() _LogFileClear() _GUICtrlTreeViewDeleteAllItems($Finaldiaplay) $CountWS = _GUICtrlListViewGetItemCount($PCList) $Count = 0 Do $ListTxt = _GUICtrlListViewGetItemText($PCList,$Count, 0);,"SAV and Hotfix Scan") $TreeViewItem = GUICtrlCreateTreeViewItem($ListTxt,$Finaldiaplay) GUICtrlSetColor(-1, 0x0000C0) GUICtrlSetState($TreeViewItem, $GUI_DEFBUTTON) If GUICtrlRead($LogFileDiffrent) = $GUI_CHECKED Then GUICtrlSetData($LogFile, $ListTxt & ".txt") $LogFilePath = GUICtrlRead ($LogFileLoc) & "\" & GUICtrlRead ($LogFile) Else $LogFilePath = GUICtrlRead ($LogFileLoc) & "\" & GUICtrlRead ($LogFile) EndIf GUICtrlSetData($Status,"Checking Workstation " & $ListTxt & ". Out of " & $CountWS & " Workstation(s) " & $Count + 1 & " Workstation(s) scanned. " ) _pingWorkstation() $Count = $Count + 1 Until $Count = $CountWS _Enablecontrol() GUICtrlSetData($Status,"DONE!" ) EndFunc;==>_WorkstationRead Func _pingWorkstation() $PingWS = Ping ($ListTxt) If $PingWS then _FileWriteLog( $LogFilePath,"*****************************"& $ListTxt &"******************************") _FileWriteLog( $LogFilePath,"") _FileWriteLog( $LogFilePath,"Workstation " & $ListTxt & " is online. Trying to get info....") _FileWriteLog( $LogFilePath,"-------------------------------------------------------") _MapDrive() Else GUICtrlCreateTreeViewItem("Workstation is not online.",$TreeViewItem) Msgbox(0,"Status","An error occured with number: " & @error & " Command was " & $ListTxt) GUICtrlSetColor(-1, 0XFF0000) GUICtrlSetColor($TreeViewItem, 0XFF0000) _FileWriteLog( $LogFilePath,"Workstation " & $ListTxt & " is NOT online...") _FileWriteLog( $LogFilePath,"-------------------------------------------------------") EndIf EndFunc;==>_pingWorkstation Func _HotfixInfo() $HotfixTop = GUICtrlCreateTreeViewItem("HotFixes",$TreeViewItem) GUICtrlSetColor(-1, 0x3F98BA) GUICtrlSetState($HotfixTop, $GUI_DEFBUTTON) For $i = 1 to 200 $HotFixKey = RegEnumKey("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix", $i) if @error <> 0 Then ExitLoop ;$HotFixTree = GUICtrlCreateTreeViewItem($HotFixKey,$HotfixTop) $HotFixTree = _GUICtrlTreeViewInsertItem($Finaldiaplay, $HotFixKey,$HotfixTop ) _FileWriteLog( $LogFilePath,"HotFix #" & $i & " " & $HotFixKey & " - " & RegRead("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix\" & $HotFixKey, "Title")) For $Y = 1 to 200 $RegVal = RegEnumVal("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix\" & $HotFixKey,$Y) If @error <> 0 Then ExitLoop ;GUICtrlCreateTreeViewItem($RegVal & ":- " & RegRead("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix\" & $HotFixKey, $RegVal),$HotFixTree) _GUICtrlTreeViewInsertItem($Finaldiaplay, $RegVal & ":- " & RegRead("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix\" & $HotFixKey, $RegVal),$HotFixTree ) Next _FileWriteLog( $LogFilePath,"-------------------------------------------------------") next _FileWriteLog( $LogFilePath,"") _FileWriteLog( $LogFilePath,"") _FileWriteLog( $LogFilePath,"") $FileCSVOpen = FileOpen(@ScriptDir & "\Report.csv",1) If $FileCSVOpen = -1 Then ;;;;;; MsgBox(0,"CSV File open Status", " Errorooooooooooooooooooooor") Else $WriteCSV = FileWriteLine( $FileCSVOpen,$ListTxt & "," & RegEnumKey("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix", $i-3) & "," & $result & " rev ." & $rev ) EndIf FileClose($FileCSVOpen) ;_FileWriteLog("Rahul.txt",$ListTxt & "," & RegEnumKey("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\NAME_OF_Company\Computer\HotFix", $i-3) & "," & $date & "/" & $month & "/" & $year & " rev" & $rev ) EndFunc Func _LogFilePathSelect() Dim $PathLog $PathLog = FileSelectFolder("Choose a folder.","",1) If @error then GUICtrlSetData($LogFileLoc,@ScriptDir) Else GUICtrlSetData($LogFileLoc,$PathLog) EndIf EndFunc;==> _LogFilePathSelect Func _LogFileClear() $LogFilePath = GUICtrlRead ($LogFileLoc) & "\" & GUICtrlRead ($LogFile) If FileExists ($LogFilePath) Then If GUICtrlRead($LogCheckBox) = $GUI_CHECKED Then FileOpen($LogFilePath,2) FileClose($LogFilePath) EndIf Endif EndFunc;<== _LogFileClear Func _AutoProtectStatus() $AutoProtectvalue = RegRead("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\Intel\LANDesk\VirusProtect6\CurrentVersion\Storages\Filesystem\RealTimeScan", "OnOff") If Not @error then If $AutoProtectvalue = 0 then GUICtrlCreateTreeViewItem("Auto-Protect Is Disable",$SAVTree) GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetColor($TreeViewItem,0xFF9393) GUICtrlSetColor($SAVTree,0xFF9393) _FileWriteLog( $LogFilePath,">>>>>>>>>>Symantec AntiVirus Auto-Protect Is Disable On " & $ListTxt & "<<<<<<<<<<") _FileWriteLog( $LogFilePath,"--------------------------------------------------------") else ;GUICtrlCreateTreeViewItem("Auto-Protect Is Enable",$SAVTree) _GUICtrlTreeViewInsertItem($Finaldiaplay,"Auto-Protect Is Enable",$SAVTree ) _FileWriteLog( $LogFilePath,">>>>>>>>>>Symantec AntiVirus Auto-Protect Is Enable On " & $ListTxt & "<<<<<<<<<<") _FileWriteLog( $LogFilePath,"--------------------------------------------------------") Endif EndIf EndFunc Func _DisableControl() ;GUICtrlSetState ($Finaldiaplay, $GUI_DISABLE ) GUICtrlSetState ($Open, $GUI_DISABLE ) GUICtrlSetState ($Scan, $GUI_DISABLE ) GUICtrlSetState ($LogCheckBox, $GUI_DISABLE ) GUICtrlSetState ($LogCheckBox2, $GUI_DISABLE ) GUICtrlSetState ($LogFileLoc, $GUI_DISABLE ) GUICtrlSetState ($logButton, $GUI_DISABLE ) GUICtrlSetState ($LogFile, $GUI_DISABLE ) GUICtrlSetState ($Exit, $GUI_DISABLE ) GUICtrlSetState($LogFileDiffrent, $GUI_DISABLE ) GUICtrlSetState($Context_Tree_Copy, $GUI_DISABLE ) GUICtrlSetState($Context_Tree_Collaps, $GUI_DISABLE ) GUICtrlSetState($Context_Tree_Delete, $GUI_DISABLE ) EndFunc Func _Enablecontrol() ;GUICtrlSetState ($Finaldiaplay, $GUI_ENABLE ) GUICtrlSetState ($Open, $GUI_ENABLE ) GUICtrlSetState ($Scan, $GUI_ENABLE ) GUICtrlSetState ($LogCheckBox, $GUI_ENABLE ) GUICtrlSetState ($LogCheckBox2, $GUI_ENABLE ) GUICtrlSetState ($LogFileLoc, $GUI_ENABLE ) GUICtrlSetState ($logButton, $GUI_ENABLE ) GUICtrlSetState ($LogFile, $GUI_ENABLE ) GUICtrlSetState ($Exit, $GUI_ENABLE ) GUICtrlSetState($LogFileDiffrent, $GUI_ENABLE ) GUICtrlSetState($Context_Tree_Copy, $GUI_ENABLE ) GUICtrlSetState($Context_Tree_Collaps, $GUI_ENABLE ) GUICtrlSetState($Context_Tree_Delete, $GUI_ENABLE ) EndFunc Func _SelectedScan() _DisableControl() $ListTxt = _GUICtrlListViewGetItemText ($PCList, -1, 0);,"SAV and Hotfix Scan") GUICtrlSetData($Status,"Checking Workstation " & $ListTxt & ". " ) If GUICtrlRead($LogFileDiffrent) = $GUI_CHECKED Then GUICtrlSetData($LogFile, $ListTxt & ".txt") $LogFilePath = GUICtrlRead ($LogFileLoc) & "\" & GUICtrlRead ($LogFile) Else $LogFilePath = GUICtrlRead ($LogFileLoc) & "\" & GUICtrlRead ($LogFile) EndIf $TreeViewItem = GUICtrlCreateTreeViewItem($ListTxt,$Finaldiaplay) GUICtrlSetColor(-1, 0x0000C0) GUICtrlSetState($TreeViewItem, $GUI_DEFBUTTON) _pingWorkstation() _Enablecontrol() GUICtrlSetData($Status,"DONE!" ) EndFunc Func _MapDrive();******************************************* $reg = Regread("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion","PatternFileDate") If @error Then $SAVTree = GUICtrlCreateTreeViewItem("SAV",$TreeViewItem) GUICtrlSetColor(-1, 0xEC8F33) GUICtrlSetState($SAVTree, $GUI_DEFBUTTON) GUICtrlCreateTreeViewItem("Virus Definition File Version not available or you dont have admin access to PC.",$SAVTree) GUICtrlSetColor(-1, 0xFF0000) GUICtrlSetColor($TreeViewItem, 0XFF0000) _FileWriteLog( $LogFilePath,"SAV info not available on " & $ListTxt & " or You don't have admin access to PC") _FileWriteLog( $LogFilePath,"-------------------------------------------------------") _AutoProtectStatus() Else $result = _GetTimeCode($reg) $rev = Regread("\\" & $ListTxt & "\HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion","PatternFileRevision") $SAVTree = GUICtrlCreateTreeViewItem("SAV",$TreeViewItem) GUICtrlSetColor(-1, 0x3F98BA) GUICtrlSetState($SAVTree, $GUI_DEFBUTTON) _GUICtrlTreeViewInsertItem( $Finaldiaplay , "Virus Definition:- " & $result & " rev ." & $rev ,$SAVTree) ;GUICtrlCreateTreeViewItem("Virus Definition:- " & $date & "\" & $month & "\" & $year & " rev" & $rev ,$SAVTree) _FileWriteLog( $LogFilePath,"Virus Definition File Version on " & $ListTxt & " is " & $result & " rev ." & $rev) _FileWriteLog( $LogFilePath,"-------------------------------------------------------") _AutoProtectStatus() _HotfixInfo() EndIf EndFunc;==>_MapDrive Func _GetTimeCode($xCode) $a = StringMid ( $reg,1,2) $b = StringMid ( $reg,3,2) $c = StringMid ( $reg,5,2) $sYY = "0x" & $a $sMM = "0x" & $b $sDD = "0x" & $c ; Do hex math to get date numbers $iYear = 1970 + $sYY $iMonth = 1 + $sMM $iDay = 0 + $sDD Return $iDay & "/" & $iMonth & "/" & $iYear EndFunc

Intrusting one... Advanced users please help to comlete it...

Hi, Please help.. I am getting one system error. Script is showing error at any stage. Error is of some memory related. Same script is working fine with old version of autoit 3.1 Error screen shot attached.. Thx rahul

I just want to know that why AntiVir 7 is showing scripts based on "Remote TCP or file download" as a torjan and virus. Is there some problem with AutoIt???? For example see topic http://www.autoitscript.com/forum/index.php?showtopic=19411 Its showing compiled files of this topc as a --> receiver.exe [DETECTION] Is the Trojan horse TR/Dldr.Xobots.1 --> sender.exe [DETECTION] Is the Trojan horse TR/Dldr.Xobots.1

Thx its working...

12th July, 2006 - v3.1.1.130 (beta) Added : Check to ensure that FileInstall() can override the target file. (Thanks ..., fixed by JdeB) Added : GUICtrlCreatePic doc precision when using overlayed tab control. (Thanks Holger) Even beta 130 is not helping.. Please help.. where i am doing wrong...

Unbelievable..... Click and result is there( for different combinations its between 200ms to 300ms) You have done great job... One more thing This code is very big but very useful.. If its possible please create UDF to Delete Listviewitems Duplicates & to Compare two ListViewitems ...

Using Beta 128 & download the latest _GUICtrlListView.au3 & Finally its going all well.. Thx for for your lightening fast script.. How to put it in original order after Sort & removal

Hi This script is very fast but not removing all DUPlicates. Screen shot attached.

Thx for your Script & logic.. Your List view is lightning fast...

Great this is what i want... You are great To "Normal" .. i mean i want to convert this reg bainary to Date format.. Test it with reg vale $reg = "24,06,05,00,00,00,00,00" and output was correct..

Due to security reason drives are not sahred so i cant access files on remote system But as remote registry service is reunning i can access that... Thx for you help

Pattern is not updating EXE ... its update of definition only... Reg Binary 24,06,04,00,00,00,00,00 maining is Date 20060704 & of 24,05,1c,00,00,00,00,00 is 20060628 Please help to convert This reg binary to normal.

Its a pattern file date of NAV. I just want to convert it in readable format.. so that i can access Virus Definition pattern file date of remote PC. This will help me to know that which PC is not up to date with latest virus pattern.. If someone has other way to know this.. Please suggest.

HI,,, I am trying to convert fillowing Reg_Binary key to readable view... but its not working.. #include <String.au3> $reg = Regread("HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion","PatternFileDate") msgbox(0,"value reg",$reg) $string = _HexToString( $reg ) msgbox(0,"string", $string) Registry value is [HKEY_LOCAL_MACHINE\SOFTWARE\INTEL\LANDesk\VirusProtect6\CurrentVersion] "PatternFileDate"=hex:24,05,1c,00,00,00,00,00 Please help to convert this to readable vale..

Thx "_GUICtrlTreeViewInsertItem($treeview, "RootItem" & $i)" solved TreeViewitem limit problem.. now its working fine & accepting more than 7000 items.. IS this a BUG with GUICtrlCreateTreeViewItem???

Hi, Is it possible to increase limit of treeview item from 4072 Items.. Please suggest.... TraySetState ( 2 ) #include <GUIConstants.au3> #include <GuiListView.au3> #include <File.au3> #Include <GuiTreeView.au3> #include <Math.au3> Opt ("MustDeclareVars", 1) Dim $ListTxt, $LogFilePath, $NavGUI, $PCList, $Context_menu, $ScanContext, $ScanSelect, $Finaldiaplay, $Open, $Scan, $Exit, $LogCheckBox, $LogCheckBox2 Dim $LogFileLoc, $logButton, $LogFile, $LogFileDiffrent, $Status, $Count_Live, $fileOpen, $i1, $FileRead, $msg, $CountWS, $Count, $PingWS, $var, $AutoProtectvalue Dim $HotFixKey, $year, $month, $date, $rev, $file, $FileCopy, $TreeViewItem, $HotFixTree, $Y, $RegVal, $SAVTree, $HotfixTop, $Context_Tree, $Context_Tree_Copy Dim $Context_Tree_Delete, $Txt, $Context_Tree_Collaps, $h_item, $setTxt, $MathVal Global Const $MIM_APPLYTOSUBMENUS = 0x80000000 Global Const $MIM_BACKGROUND = 0x00000002 $NavGUI = GUICreate("SAV and Hotfix Scan", 600,600,-1,-1) $PCList = GUICtrlCreateListView("PC list to Scan",-1,-1,200,470,$WS_TABSTOP+$WS_BORDER) _GUICtrlListViewSetColumnWidth ($PCList, 0, 196) $Context_menu = GUICtrlCreateContextMenu($PCList) $ScanContext = GUICtrlCreateMenuitem("Scan All",$Context_menu) GUICtrlCreateMenuitem("",$Context_menu) $ScanSelect = GUICtrlCreateMenuitem("Scan Selected",$Context_menu) ;$Finaldiaplay = GUICtrlCreateEdit("",204,-1,395,470,$ES_AUTOVSCROLL+$WS_VSCROLL+$ES_READONLY+$WS_HSCROLL) ;Local $EM_SetLimitText = 197 ;Local $MaxSize = 2000000 ;GUICtrlSendMsg($Finaldiaplay, $EM_SetLimitText, $MaxSize, 0) ;GUICtrlSetBKColor($Finaldiaplay,0XFFFFFF) ;***********************Tree view******************* $Finaldiaplay = GUICtrlCreateTreeView(204,-1,395,470,BitOr($TVS_HASBUTTONS, $TVS_HASLINES, $TVS_LINESATROOT, $TVS_DISABLEDRAGDROP, $TVS_SHOWSELALWAYS), $WS_EX_CLIENTEDGE) Local $EM_SetLimitText = 197 Local $MaxSize = 2000000 GUICtrlSendMsg($Finaldiaplay, $EM_SetLimitText, $MaxSize, 0) GUICtrlSetBKColor($Finaldiaplay,0XFFFFFF) $Context_Tree = GUICtrlCreateContextMenu($Finaldiaplay) $Context_Tree_Copy = GUICtrlCreateMenuitem("Copy",$Context_Tree) GUICtrlCreateMenuitem("",$Context_Tree) $Context_Tree_Collaps = GUICtrlCreateMenuitem("Collaps All",$Context_Tree) GUICtrlCreateMenuitem("",$Context_Tree) $Context_Tree_Delete = GUICtrlCreateMenuitem("Delete Selected",$Context_Tree) $Open = GUICtrlCreateButton("Open",14,474,40,22,BitOr(0x0001,0x8000)) $Scan = GUICtrlCreateButton("Scan",78,474,40,22,BitOr(0x0001,0x8000)) $Exit = GUICtrlCreateButton("Exit",140,474,40,22,BitOr(0x0001,0x8000)) $LogCheckBox = GUICtrlCreateCheckbox("Overwrite log file.",250,476,100,22,$BS_AUTORADIOBUTTON) GUICtrlSetState($LogCheckBox,$GUI_CHECKED) $LogCheckBox2 = GUICtrlCreateCheckbox("Append to log file.",450,476,105,22,$BS_AUTORADIOBUTTON) GUICtrlCreateLabel("LogFile Location:",4,510,85,22) $LogFileLoc = GUICtrlCreateInput (@ScriptDir,100,508,225,22,$ES_READONLY+$ES_AUTOHSCROLL) $logButton = GUICtrlCreateButton("....",330,508,25,22,BitOr(0x0001,0x8000)) GUICtrlCreateLabel("LogFile Name:",365,510,85,22) $LogFile = GUICtrlCreateInput ("NavHotfix.txt",455,508,130,22) $LogFileDiffrent = GUICtrlCreateCheckbox("Create different log file for each workstation (File name will be same as workstation name).",5,540,445,22,$BS_AUTORADIOBUTTON) $Status = GUICtrlCreateLabel("",2,570,596,22,BitOR($SS_SUNKEN, $SS_CENTER) ) For $aa = 0 To 6000 ;GUICtrlCreateListViewItem("item" & Mod($aa, 100) + 1, $listview) GUICtrlCreateTreeViewItem("item" & $aa,$Finaldiaplay) Next GUISetState (@SW_SHOW) ;_TxtFileReadSatrt() While 1 $msg = GUIGetMsg() If $msg = $GUI_EVENT_CLOSE Then ExitLoop Select Case $msg = $Exit ExitLoop EndSelect Wend