Problems with Process Class after WaitforExit

[Christian Billig]

Hi,
well i've a problem and i don't know how to solve it.

I wrote a function, which starts a Process for a user by using the API
CreateProcessWi thLogon.

Afterwards i want to know if the process already ended and with what
exitcode it has finished.
So i created an process class object and used the function GetProcessbyID in
order to get more information about the process.

Here's my problem, if the process already finished i can get the property
ExitCode but if i have to wait by using the method waitforexit i get an
error when trying to get the property.

Invalid Operation
The Object hasn't started the process.

Where is the difference between getting the propertie before or after a
threadsleep ?

thanks

christian

[Peter Huang]

Hi Christian,

Where is the difference between getting the propertie before or after a
threadsleep ? If you mean call the GetProcessByID before or after a threadsleep, I think
there is no different.
Here's my problem, if the process already finished i can get the property
ExitCode but if i have to wait by using the method waitforexit i get an
error when trying to get the property. If you call the waitforexit , the thread will block, then when will you
call the GetProcessByID to get the process properties.

Can you post your code as simple as possible for me to reproduce the
problem?
I will appreciate your efforts.

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.
--------------------Reply-To: "Christian Billig" <ng****@veda.ne t>
From: "Christian Billig" <ng****@veda.ne t>
Subject: Problems with Process Class after WaitforExit
Date: Mon, 10 Nov 2003 14:24:50 +0100
Lines: 28
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <es************ **@TK2MSFTNGP09 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: pns.veda.de 217.6.189.98
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!TK2 MSFTNGP09.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:155505
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

Hi,
well i've a problem and i don't know how to solve it.

I wrote a function, which starts a Process for a user by using the API
CreateProcessW ithLogon.

Afterwards i want to know if the process already ended and with what
exitcode it has finished.
So i created an process class object and used the function GetProcessbyID inorder to get more information about the process.

Here's my problem, if the process already finished i can get the property
ExitCode but if i have to wait by using the method waitforexit i get an
error when trying to get the property.

Invalid Operation
The Object hasn't started the process.

Where is the difference between getting the propertie before or after a
threadsleep ?

thanks

christian

[Christian Billig]

Hi Peter,

here's my code :

Public Function BefehlalsUser(B yVal sCMD As String, ByVal sLogonName As
String, ByVal sDomain As String, ByVal sPassWord As String)
Dim i As Int16
sApplicationNam e = Trim$(sCMD)

i = InStr(sCMD, ":\")
If i <> 0 Then
sDirectory = Mid$(sCMD, 1, 3)
Else
sDirectory = "C:\"
End If
sb = &H0&

sEnviroment = &H0&

startInfo.cb = Marshal.SizeOf( startInfo)
startInfo.dwFla gs = 0&
Process_Init_St atus = CreateProcessWi thLogon(sLogonN ame, sDomain,
sPassWord, LOGON_WITH_PROF ILE, sApplicationNam e, sb,
CREATE_DEFAULT_ ERROR_MODE Or CREATE_NEW_CONS OLE Or CREATE_NEW_PROC ESS_GROUP,
_

Marshal.StringT oBSTR(sEnvirome nt), sDirectory, startInfo, processInfo)

If (Process_Init_S tatus = False) Then
Process_Init_Er rorID = Marshal.GetLast Win32Error()
Dim Win32Err As New
System.Componen tModel.Win32Exc eption(Process_ Init_ErrorID)
Process_Init_Er ror_MSG = Win32Err.Messag e
Process_Init_Er ror_HelpLink = Win32Err.HelpLi nk
Process_Init_Er ror_Source = Win32Err.Source
Process_Init_Pr ocessID = 0
Else
Process_Init_Er rorID = 0
Process_Init_Er ror_MSG = ""
Process_Init_Er ror_HelpLink = ""
Process_Init_Er ror_Source = ""
Process_Init_Pr ocessID = processInfo.dwP rocessId
End If

End Function

Public Function Process_Trace() As Boolean
'Prozess verfolgen
'Bei Beendigung muß der ExitCode abgefragt werden
'Erste Schritt Prozess in Zugriff nehmen
Dim Running_Process As New Process()

Running_Process = Process.GetProc essById(Process _Init_ProcessID )

If Running_Process .WaitforExit(30 000) = True Then
Process_End_Sta tus = True
Process_Trace = True
Process_End_Exi tCode = Running_Process .ExitCode
Else
Process_End_Sta tus = False
Process_Trace = False
Process_End_Exi tCode = 0
End If

Running_Process = Nothing

End Function

[Peter Huang]

Hi Christian,

It seems that you have not set the EnableRaisingEv ents to true.
There are two ways of being notified when the associated process exits:
synchronously and asynchronously. Synchronous notification relies on
calling the WaitForExit method to pause the processing of your application
until the associated component exits. Asynchronous notification relies on
the Exited event. In either case, EnableRaisingEv ents must be set to true
for the Process component to receive notification that the process has
exited.
For more detailed information, please take a look at the link below.
http://msdn.microsoft.com/library/de...us/cpref/html/
frlrfsystemdiag nosticsprocessc lassexitcodetop ic.asp

Here is my test code.
Module Module1
Sub Main()
Dim ps As Process
Dim myProcess As Process
myProcess = Process.Start(" NotePad.exe")
ps = Process.GetProc essById(myProce ss.Id)
'you may try to comment the code line below to have a test.
ps.EnableRaisin gEvents = True
While ps.WaitForExit( 3000) = False
Console.WriteLi ne("running")
'Close the new created notepad, and the program will exit the
loop
End While
Console.WriteLi ne(ps.ExitCode)
End Sub
End Module

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.
--------------------

Reply-To: "Christian Billig" <ng****@veda.ne t>
From: "Christian Billig" <ng****@veda.ne t>
References: <es************ **@TK2MSFTNGP09 .phx.gbl> <nl************ **@cpmsftngxa06 .phx.gbl>Subject: Re: Problems with Process Class after WaitforExit
Date: Tue, 11 Nov 2003 10:51:56 +0100
Lines: 69
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <u$************ **@tk2msftngp13 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: pns.veda.de 217.6.189.98
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!tk2 msftngp13.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:155826
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

Hi Peter,

here's my code :

Public Function BefehlalsUser(B yVal sCMD As String, ByVal sLogonName As
String, ByVal sDomain As String, ByVal sPassWord As String)
Dim i As Int16
sApplicationNam e = Trim$(sCMD)

i = InStr(sCMD, ":\")
If i <> 0 Then
sDirectory = Mid$(sCMD, 1, 3)
Else
sDirectory = "C:\"
End If
sb = &H0&

sEnviroment = &H0&

startInfo.cb = Marshal.SizeOf( startInfo)
startInfo.dwFla gs = 0&
Process_Init_St atus = CreateProcessWi thLogon(sLogonN ame, sDomain,
sPassWord, LOGON_WITH_PROF ILE, sApplicationNam e, sb,
CREATE_DEFAULT _ERROR_MODE Or CREATE_NEW_CONS OLE Or CREATE_NEW_PROC ESS_GROUP,_

Marshal.String ToBSTR(sEnvirom ent), sDirectory, startInfo, processInfo)

If (Process_Init_S tatus = False) Then
Process_Init_Er rorID = Marshal.GetLast Win32Error()
Dim Win32Err As New
System.Compone ntModel.Win32Ex ception(Process _Init_ErrorID)
Process_Init_Er ror_MSG = Win32Err.Messag e
Process_Init_Er ror_HelpLink = Win32Err.HelpLi nk
Process_Init_Er ror_Source = Win32Err.Source
Process_Init_Pr ocessID = 0
Else
Process_Init_Er rorID = 0
Process_Init_Er ror_MSG = ""
Process_Init_Er ror_HelpLink = ""
Process_Init_Er ror_Source = ""
Process_Init_Pr ocessID = processInfo.dwP rocessId
End If

End Function

Public Function Process_Trace() As Boolean
'Prozess verfolgen
'Bei Beendigung muß der ExitCode abgefragt werden
'Erste Schritt Prozess in Zugriff nehmen
Dim Running_Process As New Process()

Running_Process = Process.GetProc essById(Process _Init_ProcessID )

If Running_Process .WaitforExit(30 000) = True Then
Process_End_Sta tus = True
Process_Trace = True
Process_End_Exi tCode = Running_Process .ExitCode
Else
Process_End_Sta tus = False
Process_Trace = False
Process_End_Exi tCode = 0
End If

Running_Process = Nothing

End Function

[Christian Billig]

Hi Peter,

your hint solved the problem.
Everything works fine now thanks a lot.

bye

christian
"Peter Huang" <v-******@online.m icrosoft.com> schrieb im Newsbeitrag
news:AI******** *******@cpmsftn gxa06.phx.gbl.. .

Hi Christian,

It seems that you have not set the EnableRaisingEv ents to true.
There are two ways of being notified when the associated process exits:
synchronously and asynchronously. Synchronous notification relies on
calling the WaitForExit method to pause the processing of your application
until the associated component exits. Asynchronous notification relies on
the Exited event. In either case, EnableRaisingEv ents must be set to true
for the Process component to receive notification that the process has
exited.
For more detailed information, please take a look at the link below.
http://msdn.microsoft.com/library/de...us/cpref/html/ frlrfsystemdiag nosticsprocessc lassexitcodetop ic.asp

Here is my test code.
Module Module1
Sub Main()
Dim ps As Process
Dim myProcess As Process
myProcess = Process.Start(" NotePad.exe")
ps = Process.GetProc essById(myProce ss.Id)
'you may try to comment the code line below to have a test.
ps.EnableRaisin gEvents = True
While ps.WaitForExit( 3000) = False
Console.WriteLi ne("running")
'Close the new created notepad, and the program will exit the
loop
End While
Console.WriteLi ne(ps.ExitCode)
End Sub
End Module

Regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! www.microsoft.com/security
This posting is provided "as is" with no warranties and confers no rights.
--------------------

Reply-To: "Christian Billig" <ng****@veda.ne t>
From: "Christian Billig" <ng****@veda.ne t>
References: <es************ **@TK2MSFTNGP09 .phx.gbl>

<nl************ **@cpmsftngxa06 .phx.gbl>

Subject: Re: Problems with Process Class after WaitforExit
Date: Tue, 11 Nov 2003 10:51:56 +0100
Lines: 69
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Message-ID: <u$************ **@tk2msftngp13 .phx.gbl>
Newsgroups: microsoft.publi c.dotnet.langua ges.vb
NNTP-Posting-Host: pns.veda.de 217.6.189.98
Path: cpmsftngxa06.ph x.gbl!TK2MSFTNG P08.phx.gbl!tk2 msftngp13.phx.g bl
Xref: cpmsftngxa06.ph x.gbl microsoft.publi c.dotnet.langua ges.vb:155826
X-Tomcat-NG: microsoft.publi c.dotnet.langua ges.vb

Hi Peter,

here's my code :

Public Function BefehlalsUser(B yVal sCMD As String, ByVal sLogonName AsString, ByVal sDomain As String, ByVal sPassWord As String)
Dim i As Int16
sApplicationNam e = Trim$(sCMD)

i = InStr(sCMD, ":\")
If i <> 0 Then
sDirectory = Mid$(sCMD, 1, 3)
Else
sDirectory = "C:\"
End If
sb = &H0&

sEnviroment = &H0&

startInfo.cb = Marshal.SizeOf( startInfo)
startInfo.dwFla gs = 0&
Process_Init_St atus = CreateProcessWi thLogon(sLogonN ame, sDomain,
sPassWord, LOGON_WITH_PROF ILE, sApplicationNam e, sb,
CREATE_DEFAULT _ERROR_MODE Or CREATE_NEW_CONS OLE Or

CREATE_NEW_PROC ESS_GROUP,

_

Marshal.String ToBSTR(sEnvirom ent), sDirectory, startInfo, processInfo)

If (Process_Init_S tatus = False) Then
Process_Init_Er rorID = Marshal.GetLast Win32Error()
Dim Win32Err As New
System.Compone ntModel.Win32Ex ception(Process _Init_ErrorID)
Process_Init_Er ror_MSG = Win32Err.Messag e
Process_Init_Er ror_HelpLink = Win32Err.HelpLi nk
Process_Init_Er ror_Source = Win32Err.Source
Process_Init_Pr ocessID = 0
Else
Process_Init_Er rorID = 0
Process_Init_Er ror_MSG = ""
Process_Init_Er ror_HelpLink = ""
Process_Init_Er ror_Source = ""
Process_Init_Pr ocessID = processInfo.dwP rocessId
End If

End Function

Public Function Process_Trace() As Boolean
'Prozess verfolgen
'Bei Beendigung muß der ExitCode abgefragt werden
'Erste Schritt Prozess in Zugriff nehmen
Dim Running_Process As New Process()

Running_Process = Process.GetProc essById(Process _Init_ProcessID )

If Running_Process .WaitforExit(30 000) = True Then
Process_End_Sta tus = True
Process_Trace = True
Process_End_Exi tCode = Running_Process .ExitCode
Else
Process_End_Sta tus = False
Process_Trace = False
Process_End_Exi tCode = 0
End If

Running_Process = Nothing

End Function