Hi Christian,
I can not reproduce the problem.
I can run the code below on both Windows 2000+SP4 and Windows XP+SP1.
Can you show me your code for me to reproduce the problem?
Here is my code you may have a test.(The Commandline argument is 259
characters)
#Region "Structs"
<StructLayout(LayoutKind.Sequential)> _
Public Structure PROCESS_INFORMATION
Dim hProcess As System.IntPtr
Dim hThread As System.IntPtr
Dim dwProcessId As Integer
Dim dwThreadId As Integer
End Structure
<StructLayout(LayoutKind.Sequential)> _
Public Structure STARTUPINFO
Dim cb As Integer
Dim lpReserved As System.IntPtr
Dim lpDesktop As System.IntPtr
Dim lpTitle As System.IntPtr
Dim dwX As Integer
Dim dwY As Integer
Dim dwXSize As Integer
Dim dwYSize As Integer
Dim dwXCountChars As Integer
Dim dwYCountChars As Integer
Dim dwFillAttribute As Integer
Dim dwFlags As Integer
Dim wShowWindow As Short
Dim cbReserved2 As Short
' you had this as a byte, but it is LPBYTE or byte*
' so should be an IntPtr
Dim lpReserved2 As System.IntPtr
Dim hStdInput As System.IntPtr
Dim hStdOutput As System.IntPtr
Dim hStdError As System.IntPtr
End Structure
#End Region
#Region "APIINFO"
Private Const LOGON_NETCREDENTIALS_ONLY As Integer = &H2
Private Const NORMAL_PRIORITY_CLASS As Integer = &H20
Private Const CREATE_DEFAULT_ERROR_MODE As Integer = &H4000000
Private Const CREATE_NEW_CONSOLE As Integer = &H10
Private Const CREATE_NEW_PROCESS_GROUP As Integer = &H200
Private Const LOGON_WITH_PROFILE As Integer = &H1
Private Declare Unicode Function CreateProcessWithLogon Lib "Advapi32"
Alias "CreateProcessWithLogonW" _
(ByVal lpUsername As String, _
ByVal lpDomain As String, _
ByVal lpPassword As String, _
ByVal dwLogonFlags As Integer, _
ByVal lpApplicationName As String, _
ByVal lpCommandLine As String, _
ByVal dwCreationFlags As Integer, _
ByVal lpEnvironment As System.IntPtr, _
ByVal lpCurrentDirectory As System.IntPtr, _
ByRef lpStartupInfo As STARTUPINFO, _
ByRef lpProcessInfo As PROCESS_INFORMATION) As Integer
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As
System.IntPtr) As Integer
#End Region
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim szApp As String = "c:\windows\notepad.exe"
Dim szCmdLine As String = "
c:\kKKKKKKKKKKKKKKKKKKKKKKKKKKKKKNOTEpadqweritlkjglkjfspvnmcvjhdfuyogfhjkhgk
jxhvjskjdhfwerkhfjsdnvkjhdsfiuyewkjfhjsdvbkjsdhfuiweyfkjshfjknsdvkcjsdhfuies
hfjsdnfkjsdhfsiudhfskdjfhjskdnkjcnskjdncjksndckjsdfuisdhfskjdfhjdsncjsncjksn
dkjncsiudcnskjdnc.EXEfffff.xml" 'String.Empty"
Dim szUser As String = "user"
Dim szPass As String = "pass"
Dim szDomain As String = "domain"
Dim siStartup As STARTUPINFO
Dim piProcess As PROCESS_INFORMATION
siStartup.cb = Marshal.SizeOf(siStartup)
siStartup.dwFlags = 0
Dim ret As Integer = CreateProcessWithLogon(szUser, szDomain,
szPass, LOGON_WITH_PROFILE, szApp, szCmdLine, _
NORMAL_PRIORITY_CLASS Or CREATE_DEFAULT_ERROR_MODE Or
CREATE_NEW_CONSOLE Or CREATE_NEW_PROCESS_GROUP, _
IntPtr.Zero, IntPtr.Zero, siStartup, piProcess)
If ret = 0 Then
MessageBox.Show(New
System.ComponentModel.Win32Exception(Marshal.GetLastWin32Error()).Message)
End If
CloseHandle(piProcess.hProcess)
CloseHandle(piProcess.hThread)
End Sub
If you have concern on this issue,please post here.
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.
