rsviper

Just downloaded and looking good! Testing now and noticed it's collecting a lot more than just the user data.... Looking at the scanstate switches later to day in the code to see why.... User profile is only 250 mb and for some reason the tool backed up 1+gb of folders that may need to be excluded...

Hi - Have been looking for something like this for some time now! This is really cool... Have a question, I downloaded the original code and made a few mods to use custom XML but wanted to know if the USMT5extras posted above would be for the same code? Don't see any reference in the code for the new USMT files. If $XPMode == True Then If @OSArch == "X86" Then FileInstall("USMT301x86.7z", @TempDir & "\USMT301x86.7z", 1) ShellExecuteWait(@TempDir & "\7z.exe", "e " & @TempDir & "\USMT301x86.7z", @TempDir & "\USMT") Else FileInstall("USMT301x64.7z", @TempDir & "\USMT301x64.7z", 1) ShellExecuteWait(@TempDir & "\7z.exe", "e " & @TempDir & "\USMT301x64.7z", @TempDir & "\USMT") EndIf Else If @OSArch == "X86" Then FileInstall("USMT401x86.7z", @TempDir & "\USMT401x86.7z", 1) ShellExecuteWait(@TempDir & "\7z.exe", "e " & @TempDir & "\USMT401x86.7z", @TempDir & "\USMT") Else FileInstall("USMT401x64.7z", @TempDir & "\USMT401x64.7z", 1) ShellExecuteWait(@TempDir & "\7z.exe", "e " & @TempDir & "\USMT401x64.7z", @TempDir & "\USMT") EndIf EndIf

Working on it.... ty! Yes - I Manage Symantec Endpoint Encryption Console and looking to put a tool together to check remote PCs that do not report into the console now. I am using the standalone option to verify when I am logged on to the PCs, but some users are remote and too busy for me to logon to their PCs....

Ty Melba - Will remember for next post...

I am using this code to view and kill process remotely now.... trying to use the initial portion for the remote PC Const $ForReading = 0 Const $ForWriting = 2 Const $ForAppending = 1 Global $type = "Process" Global $pslist = @ComSpec & ' /c "' & @ScriptDir & '\pslist.exe"' Global $pskill = @ScriptDir & "\pskill.exe" Dim $pscommand, $psfileread, $pskill, $pslist Dim $ComputerName, $CheckType, $ProcessCtrl, $ServiceCtrl, $GoButton, $ItemCtrl $ComputerName = @ComputerName ; GUI GUICreate("Remote Process Manager", 400, 400) ; LABEL GUICtrlCreateLabel("Computer Name :", 5, 8, 48, 40) ; INPUT $CNameInput = GUICtrlCreateInput($ComputerName, 55, 10, 130, 22) ; LABEL GUICtrlCreateLabel("Select type :", 200, 8, 48, 40) ; COMBO $CheckType = GUICtrlCreateCombo("Process", 250, 10, 120, 100) GUICtrlSetData(-1, "Service") $ActionInput = GUICtrlCreateCombo("Search For", 5, 45, 120, 100) GUICtrlSetData(-1, "Kill") $Tinput = GUICtrlCreateInput("", 130, 45, 180, 22) GUICtrlSetState(-1, $GUI_DROPACCEPTED); to allow drag and dropping ; LIST VIEW $listView = GUICtrlCreateListView("Target|ID|Result", 5, 75, 305, 300) ; BUTTON $GoButton = GUICtrlCreateButton("Go", 340, 340, 40, 30) ; GUI MESSAGE LOOP GUISetState() While GUIGetMsg() <> $GUI_EVENT_CLOSE $Msg = GUIGetMsg() Select Case $Msg = $CheckType $type = GUICtrlRead($CheckType) Select Case $type = "Process" GUICtrlSetData($ItemCtrl, "|Search For|Kill", "Search For") Case $type = "Service" GUICtrlSetData($ItemCtrl, "|Search For|Stop|Start|Restart|Delete", "Search For") EndSelect Case $Msg = $GoButton $type = GUICtrlRead($CheckType) Select Case $type = "Process" ProType() Case $type = "Service" SerType() EndSelect EndSelect WEnd Func ProType() $ComputerName = GUICtrlRead($CNameInput) $Action = GUICtrlRead($ActionInput) $Target = GUICtrlRead($Tinput) $Result = "Process Not Found" $PID = "NA" $i = 3 GUICtrlDelete($listView) ; LIST VIEW $listView = GUICtrlCreateListView("Target|ID|Result", 5, 75, 305, 300) Select Case $Action = "Search For" $pscommand = $pslist & " \\" & $ComputerName & " " & $Target & " > pslist.txt" RunWait($pscommand, "", @SW_HIDE) $pslistfile = FileOpen("pslist.txt", $ForReading) $psfileread = FileRead($pslistfile) $pslistfound = StringInStr($psfileread, "CPU Time") If $pslistfound > 0 Then $Result = "Process Exists" Do $i = $i + 1 $line = FileReadLine($pslistfile, $i) If @error = -1 Then ExitLoop ;MsgBox(0,"File Line",$line) Do $line = StringReplace($line, " ", " ") Until @extended = 0 $lineitems = StringSplit($line, " ") GUICtrlCreateListViewItem($lineitems[1] & "|" & $lineitems[2] & "|" & $Result, $listView) Until @error = -1 Else GUICtrlCreateListViewItem($Target & "|" & $PID & "|" & $Result, $listView) EndIf Case $Action = "Kill" $prokill = ShellExecuteWait($pskill, "\\" & $ComputerName & " -t " & $Target, "", "", @SW_HIDE) If $prokill = 0 Then $Result = "Process killed" Else $Result = $prokill EndIf GUICtrlCreateListViewItem($Target & "|" & $PID & "|" & $Result, $listView) EndSelect EndFunc ;==>ProType Func SerType() EndFunc ;==>SerType

Ditto! I like too... Now I am working on add support to call the same code to run against a remote PC and running into some roadblocks, any ideas would be appreciated!

I am loving the code by ZombieKillz; does exactly what I am looking for!!!! I am adding some additional services and testing tonight.... Have many Zombie Services to check now....LOL

OMG - I cannot thank you all enough for the updates - hacking away at the samples now to mold as needed! Thank you, Thank you, Thank you! Will report back shortly!

Downloaded Koda but not sure how to begin... Is there a smample around the code I have now I can mold within Koda? Maybe just one MSG box with service name and status would be fine.

I managed to get this much together but having trouble cleaning up the script to display all the services and tasks into one msg box with status and green check box for running services and red X for failed services. Is that even possible? HELP! ConsoleWrite(_IsServiceRunning('RSMgmtSrvc') & @CRLF) ConsoleWrite(_IsServiceRunning('RemovableStorageService') & @CRLF) ConsoleWrite(_IsServiceRunning('EAFRCliNP') & @CRLF) ConsoleWrite(_IsServiceRunning('EAFRCliManager') & @CRLF) ; Check if a service is running. Func _IsServiceRunning($sService) Local $oShell = ObjCreate('shell.application') If @error Then Return SetError(1, 0, False) EndIf Return $oShell.IsServiceRunning($sService) EndFunc ;==>_IsServiceRunning ; Check if Process is running. $ProcessName1 = "RemovableStorageMgmtService.exe" If ProcessExists($ProcessName1) Then MsgBox(0,"Running",$ProcessName1 & " is running.") Else MsgBox(0,"Not Running",$ProcessName1 & " is not running.") EndIf $ProcessName2 = "EAFRCliStart.exe" If ProcessExists($ProcessName2) Then MsgBox(0,"Running",$ProcessName2 & " is running.") Else MsgBox(0,"Not Running",$ProcessName2 & " is not running.") EndIf $ProcessName3 = "RemovableStorageService.exe" If ProcessExists($ProcessName3) Then MsgBox(0,"Running",$ProcessName3 & " is running.") Else MsgBox(0,"Not Running",$ProcessName3 & " is not running.") EndIf $ProcessName4 = "EACommunicatorSrv.exe" If ProcessExists($ProcessName4) Then MsgBox(0,"Running",$ProcessName4 & " is running.") Else MsgBox(0,"Not Running",$ProcessName4 & " is not running.") EndIf $ProcessName5 = "EAFRCliManager.exe" If ProcessExists($ProcessName5) Then MsgBox(0,"Running",$ProcessName5 & " is running.") Else MsgBox(0,"Not Running",$ProcessName5 & " is not running.") EndIf $ProcessName6 = "RSGUIProvider.exe" If ProcessExists($ProcessName6) Then MsgBox(0,"Running",$ProcessName6 & " is running.") Else MsgBox(0,"Not Running",$ProcessName6 & " is not running.") EndIf