;region WinSearch Subform
;~~< WinSearchForm1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchForm1
$WinSearchForm1 = $System.Form()
$WinSearchForm1.Size = 463, 395
$WinSearchForm1.Text = "Search Windows Search"
;~~< WinSearchStatusBar1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchStatusBar1
$WinSearchStatusBar1 = $WinSearchForm1.Controls.StatusBar()
$WinSearchStatusBar1.Text = "Search Windows Search"
$WinSearchStatusBar1.Size = 447, 22
$WinSearchStatusBar1.Location = 0, 221
$WinSearchStatusBar1.Dock = 2
;~~< WinSearchPanel1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchPanel1
$WinSearchPanel1 = $WinSearchForm1.Controls.Panel()
$WinSearchPanel1.BackColor = "MediumSeaGreen"
$WinSearchPanel1.Size = 447, 114
$WinSearchPanel1.Location = 0, 0
$WinSearchPanel1.Dock = 1
;~~< WinSearchLabel1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchLabel1
$WinSearchLabel1 = $WinSearchPanel1.Controls.Label()
$WinSearchLabel1.Text = "Computer Name"
$WinSearchLabel1.Size = 100, 22
$WinSearchLabel1.TextAlign = 32
$WinSearchLabel1.Location = 13, 13
;~~< WinSearchTextBox1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchTextBox1
$WinSearchTextBox1 = $WinSearchPanel1.Controls.TextBox()
$WinSearchTextBox1.Size = 165, 20
$WinSearchTextBox1.Location = 119, 13
;~~< WinSearchLabel2 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchLabel2
$WinSearchLabel2 = $WinSearchPanel1.Controls.Label()
$WinSearchLabel2.Text = "Search String"
$WinSearchLabel2.Size = 100, 22
$WinSearchLabel2.TextAlign = 32
$WinSearchLabel2.Location = 13, 47
;~~< WinSearchTextBox2 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchTextBox2
$WinSearchTextBox2 = $WinSearchPanel1.Controls.TextBox()
$WinSearchTextBox2.Size = 165, 20
$WinSearchTextBox2.Location = 119, 47
;~~< WinSearchGroupBox1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchGroupBox1
$WinSearchGroupBox1 = $WinSearchPanel1.Controls.GroupBox()
$WinSearchGroupBox1.Text = "Search in"
$WinSearchGroupBox1.Size = 95, 91
$WinSearchGroupBox1.Location = 314, 13
$WinSearchGroupBox1.TabStop = 0
;~~< WinSearchRadioButton1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchRadioButton1
$WinSearchRadioButton1 = $WinSearchGroupBox1.Controls.RadioButton()
$WinSearchRadioButton1.Text = "Filename"
$WinSearchRadioButton1.Size = 79, 24
$WinSearchRadioButton1.Checked = -1
$WinSearchRadioButton1.Location = 6, 19
$WinSearchRadioButton1.TabStop = -1
;~~< WinSearchRadioButton2 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchRadioButton2
$WinSearchRadioButton2 = $WinSearchGroupBox1.Controls.RadioButton()
$WinSearchRadioButton2.Text = "Contents"
$WinSearchRadioButton2.Enabled = 0
$WinSearchRadioButton2.Size = 79, 24
$WinSearchRadioButton2.Location = 6, 40
;~~< WinSearchRadioButton3 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchRadioButton3
$WinSearchRadioButton3 = $WinSearchGroupBox1.Controls.RadioButton()
$WinSearchRadioButton3.Enabled = 0
$WinSearchRadioButton3.Size = 79, 24
$WinSearchRadioButton3.Location = 6, 61
;~~< WinSearchButton1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchButton1
$WinSearchButton1 = $WinSearchPanel1.Controls.Button()
$WinSearchButton1.Text = "Search"
$WinSearchButton1.Size = 165, 23
$WinSearchButton1.Location = 119, 81
;~~< WinSearchPanel2 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchPanel2
$WinSearchPanel2 = $WinSearchForm1.Controls.Panel()
$WinSearchPanel2.Size = 447, 243
$WinSearchPanel2.Location = 0, 114
$WinSearchPanel2.Dock = 5
;~~< WinSearchListView1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchListView1
$WinSearchListView1 = $WinSearchPanel2.Controls.ListView()
$WinSearchListView1.Size = 447, 243
$WinSearchListView1.View = 1
;~~< WinSearchListView1.Columns >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$WinSearchColumn = $WinSearchListView1.Columns.Add
$WinSearchColumn.Width = 421
$WinSearchColumn.Text = "File Path"
$WinSearchListView1.Location = 0, 0
$WinSearchListView1.MultiSelect = 0
$WinSearchListView1.GridLines = -1
$WinSearchListView1.Dock = 5
;~~< WinSearchContextMenu1 >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Global $WinSearchContextMenu1
$WinSearchContextMenu1 = $System.ContextMenu()
;~~< WinSearchContextMenu1.MenuItems >~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$WinSearchClearListToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Clear List")
$WinSearchClearListToolStripMenuItem.Text = "Clear List"
$WinSearchCopyListToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Copy List")
$WinSearchCopyListToolStripMenuItem.Text = "Copy List"
$WinSearchCopyFilenameToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Copy Filename")
$WinSearchCopyFilenameToolStripMenuItem.Text = "Copy Filename"
$WinSearchOpenFileToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Open File")
$WinSearchOpenFileToolStripMenuItem.Text = "Open File"
$WinSearchOpenFileLocationToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Open File Location")
$WinSearchOpenFileLocationToolStripMenuItem.Text = "Open File Location"
$WinSearchDeleteFileToolStripMenuItem = $WinSearchContextMenu1.MenuItems.Add("Delete File")
$WinSearchDeleteFileToolStripMenuItem.Text = "Delete File"
;endregion
$WinSearchListView1.ContextMenu = $WinSearchContextMenu1
$WinSearchClearListToolStripMenuItem.OnClick = "WinSearchClearlistview()"
$WinSearchButton1.Enabled = 0
$WinSearchButton1.OnClick = "WinSearch()"
$WinSearchtextBox2.OnKeyDown = "WinSearchButtonEnable()"
Function WinSearchClearlistview()
$winSearchListView1.Items.clear
EndFunction
Function WinSearchButtonEnable()
If Trim($WinSearchTextBox2.Text) > "."
$WinSearchButton1.Enabled = 1
Else
$WinSearchButton1.Enabled = 0
EndIf
EndFunction
Function WinSearch()
$WinSearchButton1.Enabled = 0
$PC = Trim($WinSearchTextBox1.Text)
$SearchStr = Trim($WinSearchTextBox2.Text)
$IP = WPing($PC)
If @ERROR
$WinSearchStatusBar1.Text = $pc + ' offline'
Else
$WinSearchStatusBar1.Text = 'Connecting to: ' +$pc
$objWMIService = GetObject("winmgmts:\\" + $pc + "\root\cimv2")
; ****** create remote share ******
$objNewShare = $objWMIService.Get("Win32_Share")
$errReturn = $objNewShare.Create("C:\", "C", "0", "2", "Temporary access for remote Windows Search.")
If Not @error
; ****** query Windows Search ******
$cn = CreateObject("ADODB.Connection") $cmd = CreateObject("ADODB.Command") $rs = CreateObject("ADODB.RecordSet")
$cn.connectionstring = "Provider=Search.CollatorDSO;Extended Properties='Application=Windows';"
$cn.open
If @error
$WinSearchStatusBar1.Text = 'Unable to connect to Windows Search'
Else
$cmd.activeconnection = $cn $rs.cursortype = 3 $rs.locktype = 3 $rs.activecommand = $cmd
$cmdtxt = "SELECT System.ItemFolderPathDisplay, System.ItemName FROM " + $pc + ".SystemIndex WHERE scope='file://" + $pc + "/c' and Contains(System.FileName,'" + $SearchStr + "') order by System.ItemFolderPathDisplay"
$cmd.commandtext = $cmdtxt
$rs.open($cmd)
If @error
$WinSearchStatusBar1.Text = 'bad parameter in search query'
Else
$WinSearchStatusBar1.Text = $cmdtxt
$count = 0
$rs.MoveFirst
While Not $rs.eof
$fullpath = '' + $rs.fields.item("System.ItemFolderPathDisplay").value + '\' + $rs.fields.item("System.ItemName").value
$add = $WinSearchListView1.Items.add($fullpath)
$count = $count + 1
$rs.moveNext
Loop
$WinSearchStatusBar1.Text = "Number of hits: " + $count
$rs.close
ToolLog($Form1.Text, 'Search for: '+$SearchStr, $pc)
EndIf
$cn.close
EndIf
; ****** delete remote share ******
$colShares = $objWMIService.ExecQuery("Select * from Win32_Share Where Name = 'C'")
For Each $objShare in $colShares
$nul = $objShare.Delete
Next
Else
$WinSearchStatusBar1.Text = 'Unable to create to Windows Search share'
EndIf
EndIf
$WinSearchButton1.Enabled = 1
EndFunction
