Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 04/04/2012 in all areas

  1. You show no code where you are trying to _IEFormImageClick the download_xls button. I still suggest you'll have better luck with the more formatting options section. Dale
    1 point
  2. BrewManNH

    Can't release memory

    Run the Ping program directly, there's no reason to use @Comspec before it. Then when the program closes it will be able to close the Ping program without worrying about trying to close cmd.exe first. OnAutoItExitRegister("_Esc") $Ping = Run("ping www.google.com -t", @SystemDir, @SW_HIDE, 8) Sleep(3000) ; sleeps for 3 seconds, then the program closes Func _Esc() ProcessClose($Ping) Exit EndFunc ;==>_Esc
    1 point
  3. BrewManNH

    Can't release memory

    The Run command returns a PID (Process Identifier), ProcessClose takes either a program name or a PID, I'd use the PID from Run to close the one that I opened.
    1 point
  4. Scriptomatic takes the troublesome out of it, imho. returns all IPs and their corresponding subnets. Commented lines, if uncommented, will ask for an IP and retrieve only the subnet for that IP (if none found then returned all). Seemed less efficient than just looking at the entire list, but you may find a use. ;~ $IP = inputbox ("Which IP?" , "Which IP do you want the subnet for?") $wbemFlagReturnImmediately = 0x10 $wbemFlagForwardOnly = 0x20 $colItems = "" $strComputer = "localhost" $Output="" $FOutput="" $objWMIService = ObjGet("winmgmts:" & $strComputer & "rootCIMV2") $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration", "WQL", _ $wbemFlagReturnImmediately + $wbemFlagForwardOnly) If IsObj($colItems) then For $objItem In $colItems $strIPAddress = $objItem.IPAddress(0) If $strIPAddress <> "" Then $FOutput &= $strIPAddress & @CRLF $strIPSubnet = $objItem.IPSubnet(0) If $strIPSubnet <> "" Then $FOutput &= $strIPSubnet & @CRLF & @CRLF ;~ If $strIPAddress = $IP Then $Output &= $strIPSubnet Next Else Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_NetworkAdapterConfiguration" ) Endif ;~ If $output <> "" Then ;~ msgbox (0, '' , $output) ;~ Else msgbox (0, '' , $Foutput) ;~ 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
    1 point
×
×
  • Create New...