Run As Different User

[cssriraman]

Hi,

I would like to run my program as different user. Let's say I have following code which will open Run dialog:

Private Declare Function SHRunDialog Lib "shell32" Alias "#61" (ByVal hwnd As Long, ByVal I_dont_know_1 As Long, ByVal I_dont_know_2 As Long, ByVal dTitle As String, ByVal dPrompt As String, ByVal uFlags As Long) As Long
 
Private Sub Form_Load()
    SHRunDialog hwnd, 0, 0, "", "", 2
    Unload Me
End Sub

If we double click the executable of this program it will run in current windows user. I want to run this with different user. To do that normally we right click on exe file and click run as. Then we will enter the user name and password.

I would like to automate this process some how.

Thanks in advance.

[bushmobile]

perhaps this will be of some use: MSDN KB: How to start a process as another user from Visual Basic

[jcis]

This seems to work, but using the console and sendkeys..

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Private Sub Command1_Click()
    Shell "runas.exe /profile /user:[B]administrator[/B] notepad.exe"
    Sleep (1000) 'Wait for runas.exe to load
    SendKeys ("[B]password[/B]" & "{ENTER}")
End Sub

in bold user and password, if you enter correct values there notepad will open

[i00]

ok - below is a class that will let you emulate other windows accounts

clsNMC

'See attached file (note the file is a text file as i dont have vb on this comp)

and you will need to do this to impersonate the user:

Dim cNMC As New clsNMC
cNMC.User_Impersonate "User", "Password", "." '.=local windows account (domain)

this will make your prog have that users access to files etc

you can also run another prog as another user by:

Dim cNMC As New clsNMC
cNMC.User_RunAs "User", "Password",".","c:\windows\explorer.exe"

[alkater]

I faced some errors thru the defining of that code , Ps advice me how to can I define it

[Shoshana Michel]

I tried to import this class into my project, and I'm getting a million errors. Anyone using this has a successful version I could use?

[wqweto]

Import? Is this a VBA project you are talking about? For VBA7 compatibility all API declares has to be first converted to the new x86+x64 compatible format.

Btw, here is the final version of this class: https://github.com/Planet-Source-Cod...ter/clsNMC.cls

cheers,
</wqw>

[Shoshana Michel]

This is a vb solution/project (visual studio) doing something very simple, but since I don't always having the rights to a network drive I need, I wanted to try to run the vb executable as a different user.

[LeoFar]

perhaps this will be of some use: MSDN KB: How to start a process as another user from Visual Basic

The link seem to be wrong, and go to another page...

[Arnoutdv]

This is a vb solution/project (visual studio) doing something very simple, but since I don't always having the rights to a network drive I need, I wanted to try to run the vb executable as a different user.

Then you are using VB.Net, the given sample is for VB6

[Eduardo-]

The link seem to be wrong, and go to another page...

It is no longer valid because it was posted on year 2006.
There is a stored version here and a new page here.

[LeoFar]

It is no longer valid because it was posted on year 2006.
There is a stored version here and a new page here.

Thank.