Stuart McLachlan
stuart at lexacorp.com.pg
Mon Sep 21 22:40:44 CDT 2009
Possibly run your Access application from a command line using "RUNAS" with the admin
credentials?
--
Stuart
On 22 Sep 2009 at 11:51, Darren - Active Billing wrote:
> Hi Stuart
>
> Now I am getting Permission Denied
> I have admin account details
> any one have a clue how I should pass them?
>
> Thanks DD
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
> Sent: Tuesday, 22 September 2009 10:51 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] A2003:Is a Scheduled Task Running
>
> Google is your friend. Turns out to be real simple.
>
> I found some code at
> http://www.bigresource.com/VB-Stop-running-process-on-remote-machine--
> A6WPLr1Jnz.html#r7cwGQQdTK
>
> With a few minor mods, we end up with the following which works fine for me. I
> suspect you
> will need admin rights on the Server for it to work.
>
> Just insert your own values for server and process in CheckRunning.
>
>
> Option Explicit
>
> Function IsProcessRunning(strServer As String, strProcess As String) As Boolean
> Dim Process As Object
> Dim strObject As String
> IsProcessRunning = False
> strObject = "winmgmts://" & strServer
> For Each Process In GetObject(strObject).InstancesOf("win32_process")
> If UCase(Process.Name) = UCase(strProcess) Then
> IsProcessRunning = True
> Exit Function
> End If
> Next
> End Function
>
> Public Sub CheckRunning()
> Dim strComputer As String
> Dim strProcess As String
> strComputer = "LEXACORP-MOB1"
> strProcess = "Explorer.exe"
> If (IsProcessRunning(strComputer, strProcess) = True) Then
> Debug.Print strProcess & " " & "is running"
> Else
> Debug.Print strProcess & " " & "is Not running"
> End If
>
> End Sub
>
> Cheers,
> Stuart
>
>
>
> On 22 Sep 2009 at 10:21, Darren - Active Billing wrote:
>
> > Hi Stuart
> >
> > Thanks for the quick reply
> > That's way over my head that stuff
> > Also my access app won't be on that server either
> > I was hoping to pass in a known server name and a known ProcessName or
> ProcessID
> > for the Scheduled task and get back a result.
> >
> > Too optimistic me thinks <grin>
> >
> > DD
> >
> >
> > -----Original Message-----
> > From: accessd-bounces at databaseadvisors.com
> > [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Stuart McLachlan
> > Sent: Tuesday, 22 September 2009 10:11 AM
> > To: Access Developers discussion and problem solving
> > Subject: Re: [AccessD] A2003:Is a Scheduled Task Running
> >
> > If you VBA is going to be run on the Server, it's quite easy.
> >
> > You just need to identify a running process.
> >
> > There's a load of code at
> > http://www.answers.com/topic/enumerate-processes
> >
> > which you can just cut and paste into a VBA module.
> >
> > Comment out the "Sub Load" and call GetProcess with the name of an
> application.
> >
> > As written, it does a Debug.Print of the process name if it is running, you
> can
> > easily modify
> > that to do whatever you want.
> >
> > --
> > Stuart
> >
> >
> >
> > On 22 Sep 2009 at 9:49, Darren - Active Billing wrote:
> >
> > > Hi team
> > >
> > >
> > >
> > > I need to know if a scheduled task on a server is running or not.
> > >
> > > Can this sort of thing be done via VBA?
> > >
> > >
> > >
> > > The net is full of how to set up scheduled tasks but nothing (I can find) on
> > how
> > > to see if a scheduled task is running
> > >
> > >
> > >
> > > The rationale is this
> > >
> > > We have scheduled tasks that create and upload files to servers in the U.S.
> > (We
> > > are in Australia)
> > >
> > > If the scheduled task is running and file X exists in folder Y at the same
> > time
> > > - Cool
> > >
> > > If file X in folder Y exists and the scheduled task IS NOT running then it
> did
> > > not go well
> > >
> > >
> > >
> > > I have no control whatsoever over the scheduled tasks, nor the creation of
> the
> > > file/s.
> > >
> > > In fact I have nothing to do with the activities of this server
> > >
> > >
> > >
> > > I just need to write a wrapper in Access to test the following every 20
> > minutes
> > > or so
> > >
> > > If the file exists and the task is running - Cool - Do nothing
> > >
> > > If the file exists and the task is not running - Alert me (So I can alert
> > > others)
> > >
> > > The others will do all the work in resolving - I just need a simple alert
> > > nothing more
> > >
> > > Sounds simple eh?
> > >
> > > Many thanks in advance
> > >
> > >
> > >
> > > Darren
> > >
> > >
> > >
> > > --
> > > AccessD mailing list
> > > AccessD at databaseadvisors.com
> > > http://databaseadvisors.com/mailman/listinfo/accessd
> > > Website: http://www.databaseadvisors.com
> >
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
> >
> > --
> > AccessD mailing list
> > AccessD at databaseadvisors.com
> > http://databaseadvisors.com/mailman/listinfo/accessd
> > Website: http://www.databaseadvisors.com
>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com