| 1 | ;Athor: Shivakumar Shreeshail
|
|---|
| 2 | ;Version: 0.0.1
|
|---|
| 3 | ;Last Modified Date: 13th august 2009
|
|---|
| 4 | ;Description: To Uninstall HttDmp Internal and NDA Products for windows-XP and Vista-32 bit machines
|
|---|
| 5 |
|
|---|
| 6 | #include<File.au3>
|
|---|
| 7 | #Include <Excel.au3>
|
|---|
| 8 | #Include <GuiTreeView.au3>
|
|---|
| 9 | #Include <GuiTab.au3>
|
|---|
| 10 | #include <Word.au3>
|
|---|
| 11 | #include <Array.au3>
|
|---|
| 12 | #Include <WinAPI.au3>
|
|---|
| 13 |
|
|---|
| 14 | Global $return
|
|---|
| 15 | Global $var1
|
|---|
| 16 |
|
|---|
| 17 |
|
|---|
| 18 |
|
|---|
| 19 | $Version = "5.1.2600.5512"
|
|---|
| 20 | ;======================================================================================================================================
|
|---|
| 21 | ;verification of AMD Special Tools Driver in Device manager
|
|---|
| 22 | ;======================================================================================================================================
|
|---|
| 23 | ;Deveice_Manager("AMD Special Tools Driver","Driver","1.7.12.196")
|
|---|
| 24 | $Child = "ACPI Thermal Zone" ;| "AMD Low Level Device Driver"
|
|---|
| 25 | $Tab_name = "Driver"
|
|---|
| 26 | $Version = "1.7.12.196"
|
|---|
| 27 | ;httdmp
|
|---|
| 28 |
|
|---|
| 29 | Deveice_Manager($Child,$Tab_name,$Version)
|
|---|
| 30 |
|
|---|
| 31 | func Deveice_Manager($Child,$Tab_name,$Version)
|
|---|
| 32 |
|
|---|
| 33 | ;if NOT StringCompare($Devmanager ,"Execute",1) Then
|
|---|
| 34 | ;$Step+=1
|
|---|
| 35 | ;concat("[STEP_00"& $Step & "]//Step Name: My step " & $Step & "//Description: verification of AMD Special Tools Driver in Device manager",0)
|
|---|
| 36 |
|
|---|
| 37 | ShellExecute("devmgmt.msc")
|
|---|
| 38 | Sleep(3000)
|
|---|
| 39 | $hTree = ControlGetHandle("Device Manager", "", "[Class:SysTreeView32;Instance:1]")
|
|---|
| 40 |
|
|---|
| 41 | MsgBox(0, "Information", $hTree)
|
|---|
| 42 | _GUICtrlTreeView_Expand($hTree,true)
|
|---|
| 43 | Exit
|
|---|
| 44 | $hItem = _GUICtrlTreeView_FindItem($hTree,$Child)
|
|---|
| 45 | ;MsgBox(0,"error",$hItem,2)
|
|---|
| 46 | if not $hItem then
|
|---|
| 47 | MsgBox(0,"title","dev manager :Pass",3)
|
|---|
| 48 | $return = "-1"
|
|---|
| 49 | $pid = ProcessExists ("mmc.exe")
|
|---|
| 50 | if $pid Then
|
|---|
| 51 | ProcessClose("mmc.exe")
|
|---|
| 52 | EndIf
|
|---|
| 53 | else
|
|---|
| 54 | _GUICtrlTreeView_SelectItem($hTree, $hItem, $TVGN_CARET)
|
|---|
| 55 | ; Focus treeview and Send Enter
|
|---|
| 56 | ControlFocus("Device Manager", "", $hTree)
|
|---|
| 57 | ControlSend("Device Manager", "", $hTree, "{ENTER}")
|
|---|
| 58 | WinActivate($Child)
|
|---|
| 59 | Sleep(2000);;;
|
|---|
| 60 | ;to Select driver TAB
|
|---|
| 61 | ;Dim $sTitle = "AMD Special Tools Driver Properties"
|
|---|
| 62 | ;Sleep(1000)
|
|---|
| 63 | Dim $hWnd=$Child & " " & "Properties"
|
|---|
| 64 | ; Get handle to Tab control
|
|---|
| 65 | $hTab = ControlGetHandle($hWnd, "", "SysTabControl321")
|
|---|
| 66 | ;If @error Then _ExitOnError("Failed to get handle to TAB control.") EndIf
|
|---|
| 67 | ; Find and select Advanced tab
|
|---|
| 68 | $iRemTab = _GUICtrlTab_FindTab($hTab,$Tab_name)
|
|---|
| 69 | ; If $iRemTab = -1 Then _ExitOnError("Failed to find 'Advanced' tab.") EndIf
|
|---|
| 70 | _GUICtrlTab_ClickTab($hTab, $iRemTab)
|
|---|
| 71 | ;If _GUICtrlTab_GetCurSel($hTab) <> $iRemTab Then _ExitOnError("Failed to change selected tab to 'Driver'.") EndIf
|
|---|
| 72 | Sleep(1000) ;to check the driver version
|
|---|
| 73 | $text = WinGetText($Child, "")
|
|---|
| 74 | ;MsgBox(0, "Text read was:",$text,5)
|
|---|
| 75 | $compare = StringInStr($text, $Version)
|
|---|
| 76 | if $compare == 0 Then
|
|---|
| 77 | $return = 0
|
|---|
| 78 | MsgBox(0,"title","dev manager :Fail",3)
|
|---|
| 79 |
|
|---|
| 80 | Else
|
|---|
| 81 | $return = 1
|
|---|
| 82 | MsgBox(0,"title","dev manager :Pass",3)
|
|---|
| 83 |
|
|---|
| 84 | EndIf
|
|---|
| 85 | ;sleep(5)
|
|---|
| 86 | ;to close the device manager - AMD Special Tools Driver Properties window
|
|---|
| 87 | WinActivate($Child & " " & "Properties")
|
|---|
| 88 | WinWaitActive($Child & " " & "Properties", $Child,10)
|
|---|
| 89 | Send("!c")
|
|---|
| 90 | ;to close the device manager window
|
|---|
| 91 |
|
|---|
| 92 | EndIf ;if not $hItem then
|
|---|
| 93 | WinActivate("Device Manager")
|
|---|
| 94 | $pid = ProcessExists ("mmc.exe")
|
|---|
| 95 | if $pid Then
|
|---|
| 96 | ProcessClose("mmc.exe")
|
|---|
| 97 | EndIf
|
|---|
| 98 | ;EndIf
|
|---|
| 99 | MsgBox(0,"title",$return,3)
|
|---|
| 100 | Return($return)
|
|---|
| 101 | EndFunc
|
|---|
| 102 |
|
|---|
| 103 |
|
|---|
| 104 | ;=======================================================================================================================================
|
|---|
| 105 | ;function for writing the variable content with split function
|
|---|
| 106 | ;=======================================================================================================================================
|
|---|
| 107 | func WriteToFile($split,$Fname)
|
|---|
| 108 |
|
|---|
| 109 | $temp=0 ;is taken to start writin to file from index 1 index 0 contains number of array elemets count
|
|---|
| 110 |
|
|---|
| 111 | if not FileExists($Fname) then
|
|---|
| 112 | if _FileCreate($Fname) Then ;log for sucessful creation
|
|---|
| 113 | concat("sucessful creation of "& $Fname,1)
|
|---|
| 114 |
|
|---|
| 115 | elseif @error = 1 Then ;log for error in opening file
|
|---|
| 116 | concat("error in opening file "& $Fname,1)
|
|---|
| 117 | Exit
|
|---|
| 118 | elseif @error = 2 Then ;File could not be written to
|
|---|
| 119 | concat("File could not be written to "& $Fname,1)
|
|---|
| 120 | exit
|
|---|
| 121 | EndIf
|
|---|
| 122 |
|
|---|
| 123 | EndIf ;if not FileExists("c:\Ctest1234.txt") then
|
|---|
| 124 | $array=StringSplit($split,'//',1)
|
|---|
| 125 | $file1 = FileOpen($Fname, 1)
|
|---|
| 126 | If $file1 = -1 Then
|
|---|
| 127 | ;MsgBox(0, "Error", "Unable to open file.")
|
|---|
| 128 | Exit
|
|---|
| 129 | EndIf
|
|---|
| 130 | FOR $element IN $array
|
|---|
| 131 | ;MsgBox(0,"element",$element)
|
|---|
| 132 | if $temp=0 Then
|
|---|
| 133 | $temp=1
|
|---|
| 134 | Else
|
|---|
| 135 | FileWriteLine($file1, $element & @CRLF)
|
|---|
| 136 | endif
|
|---|
| 137 | NEXT
|
|---|
| 138 |
|
|---|
| 139 | FileClose($file1)
|
|---|
| 140 |
|
|---|
| 141 | EndFunc ;WriteToFile($split,$Fname)
|
|---|
| 142 |
|
|---|
| 143 | ;======================================================================================================================================
|
|---|
| 144 | ;To concatenate the result string to a variable
|
|---|
| 145 | ;======================================================================================================================================
|
|---|
| 146 |
|
|---|
| 147 | Func concat($var1,$check)
|
|---|
| 148 |
|
|---|
| 149 | Select
|
|---|
| 150 | Case $check = 0 ;concatenation for result variable
|
|---|
| 151 | $Result = $Result&"//"&$var1
|
|---|
| 152 | ;msgbox(0,"Result",$Result)
|
|---|
| 153 | Case $check = 1 ;concatenation for status variable
|
|---|
| 154 | $Log = $Log&"//"&$var1
|
|---|
| 155 | case $check = 2 ;concatenation for log variable
|
|---|
| 156 | $Status = $var1
|
|---|
| 157 | Case Else
|
|---|
| 158 | ;MsgBox(0, "", "No preceding case was true!",1)
|
|---|
| 159 | exit
|
|---|
| 160 | EndSelect
|
|---|
| 161 | $var1=""
|
|---|
| 162 |
|
|---|
| 163 | ;$val = $val&"//"&$var1
|
|---|
| 164 | ;return $val
|
|---|
| 165 | EndFunc
|
|---|
| 166 |
|
|---|
| 167 |
|
|---|
| 168 | ;=======================================================================================================================================
|
|---|
| 169 | ;function for cleanup
|
|---|
| 170 | ;=======================================================================================================================================
|
|---|
| 171 |
|
|---|
| 172 | func cleanup($clean)
|
|---|
| 173 | if FileDelete($clean) Then
|
|---|
| 174 | concat("sucessfully deleted the log file:" & $clean,1)
|
|---|
| 175 | Else
|
|---|
| 176 | concat("file are not deleted or do not exist:" & $clean,1)
|
|---|
| 177 | EndIf
|
|---|
| 178 | EndFunc
|
|---|
| 179 |
|
|---|
| 180 |
|
|---|
| 181 |
|
|---|
| 182 |
|
|---|
| 183 | ;======================================================================================================================================
|
|---|
| 184 | ;function for creating logfile
|
|---|
| 185 | ;======================================================================================================================================
|
|---|
| 186 |
|
|---|
| 187 | func Log_Reoprt($report,$step)
|
|---|
| 188 |
|
|---|
| 189 | If FileExists("C:\Result.doc") Then
|
|---|
| 190 | ;MsgBox(0, "C:\Result.doc", ""& $step,2)
|
|---|
| 191 | Else
|
|---|
| 192 | $oWordApp = _WordCreate (@ScriptDir & "\Result.doc", 0, 0)
|
|---|
| 193 | _WordQuit ($oWordApp, -1)
|
|---|
| 194 | ;MsgBox(0, "C:\Result.doc", "created",2)
|
|---|
| 195 | EndIf
|
|---|
| 196 |
|
|---|
| 197 | $oWordApp = _WordCreate ("")
|
|---|
| 198 | $oDoc = _WordDocOpen ($oWordApp, "C:\Result.doc",0)
|
|---|
| 199 | $oDoc.Range.insertAfter ("" & $report)
|
|---|
| 200 | _WordQuit ($oWordApp, -1)
|
|---|
| 201 |
|
|---|
| 202 | EndFunc
|
|---|
| 203 |
|
|---|
| 204 |
|
|---|
| 205 |
|
|---|
| 206 | ;======================================================================================================================================
|
|---|
| 207 | ;function fetching data from the array
|
|---|
| 208 | ;======================================================================================================================================
|
|---|
| 209 |
|
|---|
| 210 | func Path($key,$arry)
|
|---|
| 211 | For $i = 1 To $arry[0][0]
|
|---|
| 212 | if Not StringCompare($key,$arry[$i][0]) Then
|
|---|
| 213 | return $arry[$i][1]
|
|---|
| 214 | EndIf
|
|---|
| 215 | Next
|
|---|
| 216 | EndFunc
|
|---|
