Jump to content

tbaror

Active Members
  • Posts

    109
  • Joined

  • Last visited

Everything posted by tbaror

  1. Hello, I have been asked to do a task with following job, read a simple list of peron from XL spreadsheet , next print each one of them in envelop format . My question would be is it possible to do such job and which Autoit objects should i use Please advice Thanks
  2. Hi All, I am trying to add entire folder and files and sub-folder into zip but its not happen the zip is created but stays empty , must be somthing i did worng. please advise #Include <Zip.au3> $Zip = _Zip_Create(@ScriptDir & "\LOGS_.ZIP") _Zip_AddItem($Zip, "C:\pspad\licence_cz (2).txt")
  3. SORRY found it i got lost in some IF THEN Thanks anyway
  4. Hi , yes they are not read-only actually they created by Autoit from prior run, the files are created by run command executing thsark capture and the process is not running to lock the file ,its strange on other machine i am testing (w7) its works smooth.
  5. Hello All, I am writing a script and testing it under different machines Os w7 ,xp and W2k3, on the W7 i have FileDelete & FileMove that's works on other hand not on W2k3 that i am testing with a user administrator both domain and locally any idea what it could be FileDelete(@ScriptDir &"\Traces\*.Pcap") .. . . FileMove ( @ScriptDir & "\*.Pcap" , @ScriptDir &"\Traces\*.*" , 9)
  6. Thanks again great idea i wasn't aware about AdLibRegister surly will use it. I have more question but now for work.
  7. Thanks for the info ,noted
  8. Exactly "minimize time to collect that many file names from a NAS" which seems that the process is stack i wanted to emphasis that by writing its "getting stack".as for the 70,000 limit i am aware of that there is a script that when files getting to certain amount level its getting divided into sub-folders. in fact maybe you can help me with related performance script that i am currently writing i need opinion about certain test i am doing which is using the function GetFileSize and measuring the amount of time its took getting the response from remote storage , if threshold lets say 40ms is reached then alert is triggers. My question would you by chance possibly knows how reliable this function in terms of pure network query spent time or its depends much on local machine cycle time?. BTW the part of my initial function help asking where to get certain list of files and use it as rotation query so wont be used by storage cash. Thanks
  9. Hi All and thanks for the function, The systems i worked with is usually from new Pc to remote storage's shares (Netapp usually) sometimes getting up to 70,000~30,000 files per for folder on Giga network based and those storage's are heavily used for storing HD,DV recording,playback. Thanks
  10. Hello, i am trying to write a function that will first check the amount of files exist in a folder and if its bigger for example 100 files will add only the first 100 files to array. Since the function _FileListToArray i work with could get stack since sometimes i works with folders consist of thousand of files Please advice Thanks
  11. Hello All, I have wrote a script that measure time to get FileGetSize query from remote storage ,normally the network we test is Giga or 100Mbit network and storage are Netapp based. My question is how can i be sure that the query is purely network request and how much time the local system spend on this cycle?. i am asking it since i don't now how this function behave on remote path. Please advice Thanks in advanced $begin = TimerInit() $size = FileGetSize ($fileop) $dif = TimerDiff($begin)
  12. Hello I am trying to mage TreeViewItem with checkbox and single selection only cant find the right GUI Control Styles Please advice Thanks #include <GUIConstantsEx.au3> #include <TreeViewConstants.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form= $Form1 = GUICreate("Form1", 623, 449, 192, 114) $TreeView1 = GUICtrlCreateTreeView(32, 112, 521, 273, BitOR($GUI_SS_DEFAULT_TREEVIEW,$TVS_CHECKBOXES,$TVS_NOSCROLL,$WS_CLIPSIBLINGS)) $TreeView1_0 = GUICtrlCreateTreeViewItem("xzcz", $TreeView1) $TreeView1_1 = GUICtrlCreateTreeViewItem("xczx", $TreeView1) $TreeView1_2 = GUICtrlCreateTreeViewItem("xcz", $TreeView1) GUISetState(@SW_SHOW) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd
  13. works thanks
  14. Hello, i am trying to use RUN command with following but cant get it correctly , i am sure this is easy $cmd = Run(@ComSpec & " /c typeperf -qx | findstr /C:"Network Interface" | findstr /C:"Bytes Total" ", @SystemDir, @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD) Please Advice Thanks
  15. Hi All, I am looking into a way to change existing Service logon account & password, my first thought was wmi with following code below but i dont know how to bind to specific service i would like to change. Please advice also another method would be great. $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $OutputTitle = "" $Output = "" $OutputTitle &= "Computer: " & $strComputer & @CRLF $OutputTitle &= "==========================================" & @CRLF $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_Service", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) then Local $Object_Flag = 0 For $objItem In $colItems $Object_Flag = 1 $Output &= "AcceptPause: " & $objItem.AcceptPause & @CRLF $Output &= "AcceptStop: " & $objItem.AcceptStop & @CRLF $Output &= "Caption: " & $objItem.Caption & @CRLF $Output &= "CheckPoint: " & $objItem.CheckPoint & @CRLF $Output &= "CreationClassName: " & $objItem.CreationClassName & @CRLF $Output &= "Description: " & $objItem.Description & @CRLF $Output &= "DesktopInteract: " & $objItem.DesktopInteract & @CRLF $Output &= "DisplayName: " & $objItem.DisplayName & @CRLF $Output &= "ErrorControl: " & $objItem.ErrorControl & @CRLF $Output &= "ExitCode: " & $objItem.ExitCode & @CRLF $Output &= "InstallDate: " & WMIDateStringToDate($objItem.InstallDate) & @CRLF $Output &= "Name: " & $objItem.Name & @CRLF $Output &= "PathName: " & $objItem.PathName & @CRLF $Output &= "ProcessId: " & $objItem.ProcessId & @CRLF $Output &= "ServiceSpecificExitCode: " & $objItem.ServiceSpecificExitCode & @CRLF $Output &= "ServiceType: " & $objItem.ServiceType & @CRLF $Output &= "Started: " & $objItem.Started & @CRLF $Output &= "StartMode: " & $objItem.StartMode & @CRLF $Output &= "StartName: " & $objItem.StartName & @CRLF $Output &= "State: " & $objItem.State & @CRLF $Output &= "Status: " & $objItem.Status & @CRLF $Output &= "SystemCreationClassName: " & $objItem.SystemCreationClassName & @CRLF $Output &= "SystemName: " & $objItem.SystemName & @CRLF $Output &= "TagId: " & $objItem.TagId & @CRLF $Output &= "WaitHint: " & $objItem.WaitHint & @CRLF if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop $Output="" Next If $Object_Flag = 0 Then Msgbox(1,"WMI Output",$OutputTitle) Else Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_Service" ) Endif Func WMIDateStringToDate($dtmDate) Return (StringMid($dtmDate, 5, 2) & "/" & _ StringMid($dtmDate, 7, 2) & "/" & StringLeft($dtmDate, 4) _ & " " & StringMid($dtmDate, 9, 2) & ":" & StringMid($dtmDate, 11, 2) & ":" & StringMid($dtmDate,13, 2)) EndFunc
  16. Hello All, I need to parse into table array a plot from Tshark as follows below, the issue i got with that specific that table size could change and different terms could be in it. i know how to use regexp but i have difficulty realize the right pattern or the idea to parse this kind of table. Please advice Thanks =================================================================== SMB RTT Statistics: Filter: Commands Calls Min RTT Max RTT Avg RTT Trans 6 0.00025 0.00142 0.00064 Tree Disconnect 4 0.00012 0.00036 0.00023 Negotiate Protocol 2 0.00042 0.00042 0.00042 Session Setup AndX 3 0.00030 0.00131 0.00074 Logoff AndX 2 0.00017 0.00055 0.00036 Tree Connect AndX 4 0.00013 0.00064 0.00031 Transaction2 Commands Calls Min RTT Max RTT Avg RTT FIND_FIRST2 194 0.00019 0.00033 0.00024 QUERY_PATH_INFO 428 0.00016 0.00198 0.00026 GET_DFS_REFERRAL 3 0.00019 0.00028 0.00024 NT Transaction Commands Calls Min RTT Max RTT Avg RTT ===================================================================
  17. Hello, i need to create a script that will get a exclude list the list could achieve more than 3000 files and delete only files that not exist in exclude list. if anyone could help with the routine of files deleting such kind of scenario Thanks.
  18. Helllo, I am writing kind of TCP port ping function , i want to add timer for measuring latency. The issue is when the timer var is enabled i don't get any feedback if error is occurred in case address or port is not available/timeout. error condition works only if i comment the timer procedures, please advice how to make this works including timers. Thanks in advanced. #include <GUIConstantsEx.au3> Tcp_ping() Func Tcp_ping() Local $ConnectedSocket, $szData Local $szIPADDRESS = "ip-test" Local $nPORT = 445 ; Start The TCP Services ;============================================== TCPStartup() ; Initialize a variable to represent a connection ;============================================== $ConnectedSocket = -1 ;Attempt to connect to SERVER at its IP and PORT 33891 ;======================================================= $TcBegin = TimerInit() $ConnectedSocket = TCPConnect($szIPADDRESS, $nPORT) $TCdif = TimerDiff($TcBegin) If @error Then MsgBox(4112, "Error", "TCPConnect failed with WSA error: " & @error) Else MsgBox(1, "OK", "TCPConnect : "& $TCdif) EndIf EndFunc ;==>Example
  19. tanks all for you're answers in fact what i am trying to achieve ,i am writing a script that check storage (nas) access latency by simple file size request ,in the same time i want to tcp port ping in parallel. that way if latency will occurs which its does i have already wrote such kind of script only that i want to add the tcp ping function, that way i can determine/assume network issue or storage. any suggestion will be nice. Thanks
  20. Hello All, I am looking for a way run 2 or more function in parallel, is there a way to achieve that Thanks
  21. i found it the pb where in the xml thanks any way
  22. Hello All, I have issue with script i am trying to write add _XMLCreateChildNode and get error "COM Error with DOM! Variable must be type of typ 'OBJECT' error # 000000A9" the code is very simple but i cant figure out where is the pb please advice Thanks #include <Constants.au3> #include <EventLog.au3> #include <Array.au3> #Include <File.au3> #Include <_XMLDomWrapper.au3> $DelRpF = _XMLFileOpen (@ScriptDir & "\CPU1.xml") ; $tPathSec ='/chart/chart_data' _XMLCreateChildNode ($tPathSec,'row') _XMLSaveDoc($DelRpF) the xml <chart> <chart_data> <row> <null/> <string>1sec</string> <string>2</string> <string>3</string> <string>4</string> <string>5sec</string> <string>6</string> <row/> </chart_data> </chart>
×
×
  • Create New...