Break On
$System = CreateObject("Kixtart.System")

;KD START

;************* Form **************
$Form = $System.Form()
$Form.BackColor = 0,142,231
$Form.Height = 433
$Form.Left = 19
$Form.Text = "SpyBot S&D Manager"
$Form.Top = 22
$Form.Width = 481
;**************************************

;************* OUCombo **************
$OUCombo = $Form.Controls.ComboBox("", 10, 15, 449, 21)
$OUCombo.DropDownWidth = 121
$OUCombo.Sorted = "True"
$OUCombo.OnClick = "ComboClick"
;**************************************

;************* ComputerListView **************
$ComputerListView = $Form.Controls.ListView("ListViewEx1", 10, 50, 317, 342)
$ComputerListView.AutoArrange = "True"
$ComputerListView.CheckBoxes = "True"
$ComputerListView.FullRowSelect = "True"
$ComputerListView.GridLines = "True"
$ComputerListView.OnDoubleClick = "DoubleClick"
;**************************************

;************* QueryButton **************
$QueryButton = $Form.Controls.Button("Check OU for SpyBot", 340, 100, 120, 25)
$QueryButton.ToolTipText = "Check software on online PCs"
$QueryButton.OnClick = "QueryOU"
;**************************************

;************* Begin **************
$Begin = $Form.Controls.Button("Begin Job", 340, 368, 120, 25)
$Begin.OnClick = "Begin"
;**************************************

;************* SBLogo **************
$SBLogo = $Form.Controls.PictureBox("PictureBox1", 340, 50, 120, 34)
$SBLogo.BackColor = 212,208,200
$SBLogo.BorderStyle = 0
$SBLogo.Picture = "@scriptdir\SpyBot.bmp"
;**************************************

;************* Install **************
$Install = $Form.Controls.CheckBox("Install Spybot", 340, 140, 104, 20)
$Install.BackColor = 0,142,231
$Install.CheckAlign = 16
$Install.Checked = "True"
$Install.CheckState = 1
;**************************************

;************* Update **************
$Update = $Form.Controls.CheckBox("Install Updates", 340, 170, 104, 20)
$Update.BackColor = 0,142,231
$Update.CheckAlign = 16
$Update.Checked = "True"
$Update.CheckState = 1
;**************************************

;************* Uninstall **************
$Uninstall = $Form.Controls.CheckBox("Uninstall Spybot", 340, 280, 116, 20)
$Uninstall.BackColor = 0,142,231
$Uninstall.CheckAlign = 16
$Uninstall.Checked = "True"
$Uninstall.CheckState = 1
;**************************************

;************* AutoClean **************
$AutoClean = $Form.Controls.RadioButton("Autofix All", 340, 200, 100, 20)
$AutoClean.BackColor = 0,142,231
$AutoClean.Checked = "False"
$AutoClean.TabStop = "False"
;**************************************

;************* SpywareOnly **************
$SpywareOnly = $Form.Controls.RadioButton("Spyware Only", 340, 220, 100, 20)
$SpywareOnly.BackColor = 0,142,231
$SpywareOnly.Checked = "True"
;**************************************

;************* DisplayLog **************
$DisplayLog = $Form.Controls.CheckBox("Display Log", 340, 310, 104, 20)
$DisplayLog.BackColor = 0,142,231
$DisplayLog.CheckAlign = 16
$DisplayLog.Checked = "True"
$DisplayLog.CheckState = 1
;**************************************

;************* DontClean **************
$DontClean = $Form.Controls.RadioButton("Do Not Clean", 340, 240, 100, 20)
$DontClean.BackColor = 0,142,231
$DontClean.Checked = "False"
$DontClean.TabStop = "False"
;**************************************


;KD END

;************* ProgForm **************
$ProgForm = $System.Form()
$ProgForm.FormBorderStyle = 0
$ProgForm.Height = 60
$ProgForm.Text = ""
$ProgForm.TopMost = "True"
$ProgForm.Width = 300
;**************************************

;************* PBar1 **************
$PBar1 = $ProgForm.Controls.ProgressBar("PBar1", 15, 30, 267, 11)
;**************************************

;************* Label1 **************
$PBarLabel1 = $ProgForm.Controls.Label("Searching AD for Computer OUs", 60, 10, 170, 16)

; Fix Height for XP
$Form.Height = $Form.Height + IIf(InStr(@producttype,'XP'),15,0)

$colwidth = ($ComputerListView.ClientWidth - 35) / 2
$_ = $ComputerListView.Columns.Add("",20)
$_ = $ComputerListView.Columns.Add("PC Name",$colwidth+5)
$_ = $ComputerListView.Columns.Add("Status",$colwidth-10)

$Form.Show
	$ProgForm.Show
	$ldap="LDAP://"+@domain+"/"+GetObject("LDAP://rootDSE").Get("defaultNamingContext")
	$ou = EnumOUs($ldap, 'computer')
	For Each $item in Split($ou,'|')
		$OUCombo.AddItem($item)
		Next
	$OUCombo.AddItem("IP Subnet Range")
	$OUCombo.listindex = 0
	$ProgForm.Hide

While $Form.Visible
   $=Execute($Form.DoEvents())
Loop
Exit 1

;**********************************************************************************************************************
Function EnumOUs($LDAP, $Filter)
	Dim $aFilter[0], $pos,  $objOU, $i, $j

	If $Filter <> 'user'		$Filter = 'computer'		EndIf
	$objOU = GetObject($LDAP)
	If NOT VarTypeName($objOU)='Object'	Exit 1		EndIf

	$aFilter[0] = $Filter
	$objOU.Filter = $aFilter
	For Each $item in $objOU	$PBar1.Value = IIf($PBar1.Value < $PBar1.Max,$PBar1.Value + 1,0)     ;for progress bar only
		If $item.class = $Filter
			$i = $LDAP
			GoTo jump
			EndIf
		Next
	:jump
          $aFilter[0] = "organizationalUnit"
          $objOU.Filter = $aFilter
          For Each $item in $objOU
               $PBar1.Value = IIf($PBar1.Value < $PBar1.Max,$PBar1.Value + 1,0)     ;for progress bar only
               $Name = $item.Name
               $pos = InStrRev($LDAP,"/")
               $DN = Left($LDAP,$pos) + $Name + ", " + SubStr($LDAP, $pos+1)
               $j = EnumOUs($DN, $Filter)
               If $j
                    $i = IIf($i,$i +"|"+ $j,$j)
                    EndIf
               Next
      $EnumOUs = $i
     EndFunction

Function ComboClick()
	If $OUCombo.Text = "IP Subnet Range"
		$IPForm.Show
	Else
		EnumOU
		EndIf
	EndFunction

Function EnumOU()
	Dim $name, $cn, $item
	$ComputerListView.Items.Clear
	$checkComplete=0
	For Each $Item in GetObject($OUCombo.Text)
		$cn = $Item.name
		$name = Right($cn, Len($cn)-3)
		$Item = $ComputerListView.Items.Add('')
		$Item.IsChecked = False
		$Item.SubItems(1).Text = $Name
		Next
	$ComputerListView.SetFocus
	EndFunction

Function QueryOU()
	$ComputerListView.SetFocus
	For Each $item in $ComputerListView.Items
		$item.selected = 1
		$ComputerListView.EnsureVisible($item.index)
		$Computer=$Item.SubItems(1).Text
		If WSHPing($computer,2)[1]>1
			$SBVer = GetFileVersion('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe','ProductVersion')
			$Item.SubItems(2).Text = IIf(@error,'Not Detected',$SBVer)
		Else
			$Item.SubItems(2).Text = 'off-line'
			EndIf
		$item.selected = 0
		Next
	EndFunction

Function DoubleClick
	$target = $ComputerListView.FocusedItem.Subitems(2).text
	For Each $item in $ComputerListView.Items
		$item.checked = IIf($Item.SubItems(2).Text = $target,1,0)
		If $Item.SubItems(2).Text = 'off-line' OR $Item.SubItems(2).Text = ''
			$item.checked = 0
			EndIf
		Next
	EndFunction

Function Begin
	$ComputerListView.SetFocus
	For Each $item in $ComputerListView.Items
		If $item.checked 
		$Computer=$Item.SubItems(1).Text
		if WSHPing($computer,2)[1]>1
			$item.selected = 1
			$ComputerListView.EnsureVisible($item.index)
			$command='@@echo Off'+@crlf
			If not Exist('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe') and $Install.Checked
				If NOT Exist(@scriptdir+'/spybotsd12.exe')
					DownloadSB
					EndIf
				Copy @scriptdir+'\Configuration.ini' '\\'+$computer+'\c$$'
				Copy @scriptdir+'\Default configuration.ini' '\\'+$computer+'\c$$'
				Copy @scriptdir+'\spybotsd12.exe' '\\'+$computer+'\c$$'
				If NOT @error
					$command=$command+@crlf+'c:\spybotsd12.exe /verysilent /nocancel /noicons /components="main"'
					$command=$command+@crlf+'sleep 3'
					$command=$command+@crlf+'move c:\Default configuration.ini %ProgramFiles%\Spybot - Search & Destroy\ /y'
					$command=$command+@crlf+'move c:\configuration.ini "%ALLUSERSPROFILE%\Application Data\Spybot - Search & Destroy\" /y'
					EndIf
				EndIf
			If $Update.Checked
				If NOT Exist(@scriptdir+'\spybotsd_includes.exe') OR NOT Exist(@scriptdir+'\spybotsd_tools.exe')
					DownloadUpdates
					EndIf
				If Exist('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe') or $Install.Checked
					Copy @scriptdir+'\spybotsd_includes.exe' '\\'+$computer+'\c$$'
					If NOT @error
						$command=$command+@crlf+'c:\spybotsd_includes.exe /S /D:"%ProgramFiles%\Spybot - Search & Destroy\"'
						$command=$command+@crlf+'sleep 3'
						EndIf
					Copy @scriptdir+'\spybotsd_tools.exe' '\\'+$computer+'\c$$'
					If NOT @error
						$command=$command+@crlf+'c:\spybotsd_tools.exe /S /D:"%ProgramFiles%\Spybot - Search & Destroy\"'
						$command=$command+@crlf+'sleep 3'
						EndIf
					EndIf
				EndIf
			If $AutoClean.Checked
				If Exist('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe') or $Install.Checked
					$command=$command+@crlf+'"%ProgramFiles%\Spybot - Search & Destroy\SpybotSD.exe" /autoimmunize /taskbarhide /autocheck /autofix /autoclose'
					$command=$command+@crlf+'sleep 3'
					EndIf
				EndIf
			If $SpywareOnly.Checked
				If Exist('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe') or $Install.Checked
					$command=$command+@crlf+'"%ProgramFiles%\Spybot - Search & Destroy\SpybotSD.exe" /autoimmunize /taskbarhide /onlyspyware /autocheck /autofix /autoclose'
					$command=$command+@crlf+'sleep 3'
					EndIf
				EndIf
			If $Uninstall.Checked
				If Exist('\\'+$computer+'\c$$\Program Files\Spybot - Search & Destroy\SpybotSD.exe') OR $Install.Checked
					$command=$command+@crlf+'"%ProgramFiles%\Spybot - Search & Destroy\unins000.exe" /silent'
					$command=$command+@crlf+'sleep 10'
					$command=$command+@crlf+'RD "%ProgramFiles%\Spybot - Search & Destroy" /s /q'
					$command=$command+@crlf+'sleep 3'
					EndIf
				EndIf
			If $Install.Checked
				$command=$command+@crlf+'del c:\spybotsd12.exe'
				EndIf
			If $Update.Checked
				$command=$command+@crlf+'del c:\spybotsd_includes.exe'
				$command=$command+@crlf+'del c:\spybotsd_tools.exe'
				EndIf
			del '\\'+$computer+'\c$$\SB.cmd'
			$=WriteFile('\\'+$computer+'\c$$\SB.cmd',Split($command,@crlf))
			$=rmtexec($computer,'c:\SB.cmd')

			EndIf
			endif
		Next
	EndFunction

Function DownloadSB
	$=FTPget('http://home.comcast.net/~bz1usa/spybotsd12.exe', @scriptdir+'/spybotsd12.exe')
	EndFunction

Function DownloadUpdates
	$=FTPget('http://spybot.eon.net.au/files/spybotsd_includes.exe', @scriptdir+'/spybotsd_includes.exe')
	$=FTPget('http://spybot.eon.net.au/files/spybotsd_tools.exe', @scriptdir+'/spybotsd_tools.exe')
	EndFunction


Function FTPget($sURL, $sTargetFile, optional $sUser, optional $sPass)
	Dim $oFTP, $oStream
	$sUser=""+$sUser
	$oFTP = CreateObject("Microsoft.XMLHTTP")	If @error $ftpget=1 Exit 1 EndIf
	$oStream = CreateObject("ADODB.Stream")		If @error $ftpget=2 Exit 2 EndIf
	If $sUser
		$oFTP.Open("GET", $sURL, NOT 1, $sUser, $sPass)
	Else
		$oFTP.Open("GET", $sURL, NOT 1)
		EndIf
	If @error $ftpget=3 Exit 3 EndIf
	$oFTP.Send
	$oStream.Type = 1
	$oStream.Mode = 3
	$oStream.Open
	$oStream.Write($oFTP.responseBody)		If @error $ftpget=4 Exit 4 EndIf
	$oStream.SaveToFile($sTargetFile, 2)		If @error $ftpget=5 Exit 5 EndIf
	$oStream.Close
	EndFunction

Function RMTEXEC($computer, $command)
	Dim $Connect
	$Connect = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer/root/cimv2:Win32_Process")
	$RMTEXEC = $Connect.Create($Command)
	Exit @error
	$Connect = 0
	EndFunction

Function WSHPing($Computer,optional $replies)
     Dim $ip, $l, $r, $count, $Return, $line ,$pos, $avg, $err
     If NOT $replies          $replies=1     EndIf
     $ip=$computer          $Count=0
     $Shell='%comspec% /c %windir%\system32\ping $Computer -n $replies -w 100'
     $Return=WSHPipe($Shell,1)
     If NOT @error AND NOT InStr($Return[0],'unknown')
          For Each $line in $Return
               Select
                    Case InStr($line,"[")		$ip=Split(Split($line,'[')[1],']')[0]
                    Case InStr($line,"reply from")	$Count=$Count+1
                    Case InStr($line,"Average")		$pos=InStr($line,"Average")+8
							$avg=Val(Right("$line",Len($line)-$pos))
                    EndSelect
               If InStr($line,"timed out")     $Count=$Count-1          EndIf
               Next
	$err=IIf($count < 1,1,0)
          $WSHPing=$ip,$count,$avg
	Exit $err
     Else
          $WSHPing="0.0.0.0","0","0"
          Exit(487)
          EndIf
     EndFunction

Function WshPipe($ShellCMD, OPTIONAL $NoEcho)
	Dim $oExec, $Output
	$oExec = CreateObject("WScript.Shell").Exec($ShellCMD)
	If NOT VarType($oExec)=9 $WshPipe="WScript.Shell Exec Unsupported" Exit 10 EndIf
	$Output = $oExec.StdOut.ReadAll + $oExec.StdErr.ReadAll
	If NOT $NoEcho $Output EndIf
	$WshPipe=Split($Output,@CRLF)
	Exit($oExec.ExitCode)
	EndFunction

Function WriteFile($file,$array)
	Dim $, $f, $line
	If Not VarType($Array) & 8192    Exit(1)        EndIf
	$f=freefilehandle
	$=open($f,$file,5)
		if @error   exit @error   endif
		for each $line in $array
			$=writeline($f,$line+@crlf)
			if @error   exit @error   endif
			next
		$=close($f)
	EndFunction


Function RMTEXEC($computer, $command)
	Dim $Connect
	$Connect = GetObject("winmgmts:{impersonationLevel=impersonate}!//$computer/root/cimv2:Win32_Process")
	$RMTEXEC = $Connect.Create($Command)
	Exit @error
	$Connect = 0
	EndFunction
 

Quote:

---

hotbar has a uninstaller program that you have to download from their site.

---