Windows 10: Find Task list entries with VBS

I want to detect if a given program App is running.


I have made the following VB-Script to list all "programs" running:


Sub ListPGMs
Dim WMIService
Dim ProcessList
dim objSWbemObject
Set WMIService = GetObject"winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2"
Set ProcessList = WMIService.ExecQuery "SELECT * FROM Win32_Service"
For Each objSWbemObject In ProcessList
call Append_to_LogFile"Name: " & objSWbemObject.Name, "PGMlist.txt"
Next
end sub


Append_to_LogFile is just a utility that writes to a txt-file.


I get a lot of names in this file - like all the background and windows processes - but I can't identify the Apps that I have running.


How do I do that?

:)

 

Task scheduler user account list includes user accounts that have already been deleted from the computer.

Thanks for providing the results of the troubleshooting steps we provided. Since the credentials are still showing up in task scheduler, we suggest that you follow the steps below to check the entries in the credential manager and delete the entries manually:

• Type the words Credential Manager in Cortana or the search box.
• From the list of results select Credential Manager
• From this screen, you can manage Web Credentials and
  Windows Credentials.

Once you have the screen open verify if any of the credentials you saw in task scheduler is present and manually delete them.

Regards.

 

Running a VB Script File Using Windows 10 Task Scheduler

Here is my VB Script code:

Option Explicit    

Dim objExcel, strPathExcel

Set objExcel = CreateObject("Excel.Application")

strPathExcel = "C:\Users\John J\Documents\Great Oaks\2018 Season\Handicap Test.xlsm"

objExcel.DisplayAlerts = False

objExcel.Workbooks.Open strPathExcel

objExcel.Application.Run "'Handicap Test.xlsm'!HandicapRunTrial"

objExcel.ActiveWorkbook.SaveAs strPathExcel

objExcel.Workbooks.close

objExcel.Application.Quit

WScript.Quit

In Task Scheduler Library, created a folder called "GOCC"

I than hit "Create Basic Task", name it and give brief description/

From the "Trigger" menu, I give a start date and time.

From the "Action" menu, I hit "Start", and browse for my vbs file. I click on it and the full path command is listed. The task is listed in the Scheduler.

Then I double click on the task, I keep the user account as "John J", click on " Run whether or not user is logged on or not, click

"Run with highest privileges", click on "Hidden" and then configure the task for "Windows 10." I hit "OK" which the computer prompts me for my password. I enter it and hit "ok."

The problem is that the vbs never runs at the designated date and time. I do not understand why it does not work.

Thanks

 

VBS Msgbox

Denis,

• I was too lazy to compute the size programmatically. And, it the 2005 version the message box always came up hidden, so I always used 0 for the top. It's also part of my OCD to be able to control everything.
• I personally don't need it to timeout. I used this in vbs files to ask to continue to the next step, skip the next step or cancel the vbs. BTW, I added the code back in but keep it assign it to 0.
• Sound was calling Windows Media Player: WshShell.Run "C:\Users\donast\desktop\sndrec32.lnk",7,false the lnk is a shortcut on my old desktop that had: "C:\Program Files (x86)\Windows Media Player\wmplayer.exe"
  "C:\Users\Public\Music\Wavefiles\Twilight.wav"
• Yes. The value is the number of the button in the order specified when calling it.
• Never really thought about it as all my VBS/VBA code is relatively simple and I add comments in the file as necessary to remind me what is going on. I don't usually have anyone to share my code.

FYI I use a VBS to call it. Here's a line from a test vbs I use to run your version:

choice=Wshshell.run("custommsgbox.vbs " & wscript.scriptname & " ""CopyFiles.vbs done. Continue with UnArchVista.vbs?"" ""White"" ""Black"" 40 ""Yes"" ""No"" ""Cancel""",1,true)

Copy it to a text editor to see all the spaces, etc. Took me a while back the to figure it out.

Don