Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>I ran into this same problem at work and was able to solve it with impersonation. just add a new class with the following:</p> <pre><code> '***************************************************************************************** '***************************************************************************************** ' Contents: AliasAccount Class ' ' This Class is a template class that provides all the functionality to impersonate a user ' over a designated instance. '***************************************************************************************** '***************************************************************************************** Public Class AliasAccount Private _username, _password, _domainname As String Private _tokenHandle As New IntPtr(0) Private _dupeTokenHandle As New IntPtr(0) Private _impersonatedUser As System.Security.Principal.WindowsImpersonationContext Public Sub New(ByVal username As String, ByVal password As String) Dim nameparts() As String = username.Split("\") If nameparts.Length &gt; 1 Then _domainname = nameparts(0) _username = nameparts(1) Else _username = username End If _password = password End Sub Public Sub New(ByVal username As String, ByVal password As String, ByVal domainname As String) _username = username _password = password _domainname = domainname End Sub Public Sub BeginImpersonation() 'Const LOGON32_PROVIDER_DEFAULT As Integer = 0 'Const LOGON32_LOGON_INTERACTIVE As Integer = 2 Const LOGON32_LOGON_NEW_CREDENTIALS As Integer = 9 Const LOGON32_PROVIDER_WINNT50 As Integer = 3 Const SecurityImpersonation As Integer = 2 Dim win32ErrorNumber As Integer _tokenHandle = IntPtr.Zero _dupeTokenHandle = IntPtr.Zero If Not LogonUser(_username, _domainname, _password, LOGON32_LOGON_NEW_CREDENTIALS, LOGON32_PROVIDER_WINNT50, _tokenHandle) Then win32ErrorNumber = System.Runtime.InteropServices.Marshal.GetLastWin32Error() Throw New ImpersonationException(win32ErrorNumber, GetErrorMessage(win32ErrorNumber), _username, _domainname) End If If Not DuplicateToken(_tokenHandle, SecurityImpersonation, _dupeTokenHandle) Then win32ErrorNumber = System.Runtime.InteropServices.Marshal.GetLastWin32Error() CloseHandle(_tokenHandle) Throw New ImpersonationException(win32ErrorNumber, "Unable to duplicate token!", _username, _domainname) End If Dim newId As New System.Security.Principal.WindowsIdentity(_dupeTokenHandle) _impersonatedUser = newId.Impersonate() End Sub Public Sub EndImpersonation() If Not _impersonatedUser Is Nothing Then _impersonatedUser.Undo() _impersonatedUser = Nothing If Not System.IntPtr.op_Equality(_tokenHandle, IntPtr.Zero) Then CloseHandle(_tokenHandle) End If If Not System.IntPtr.op_Equality(_dupeTokenHandle, IntPtr.Zero) Then CloseHandle(_dupeTokenHandle) End If End If End Sub Public ReadOnly Property username() As String Get Return _username End Get End Property Public ReadOnly Property domainname() As String Get Return _domainname End Get End Property Public ReadOnly Property currentWindowsUsername() As String Get Return System.Security.Principal.WindowsIdentity.GetCurrent().Name End Get End Property #Region "Exception Class" Public Class ImpersonationException Inherits System.Exception Public ReadOnly win32ErrorNumber As Integer Public Sub New(ByVal win32ErrorNumber As Integer, ByVal msg As String, ByVal username As String, ByVal domainname As String) MyBase.New(String.Format("Impersonation of {1}\{0} failed! [{2}] {3}", username, domainname, win32ErrorNumber, msg)) Me.win32ErrorNumber = win32ErrorNumber End Sub End Class #End Region #Region "External Declarations and Helpers" Private Declare Auto Function LogonUser Lib "advapi32.dll" (ByVal lpszUsername As [String], _ ByVal lpszDomain As [String], ByVal lpszPassword As [String], _ ByVal dwLogonType As Integer, ByVal dwLogonProvider As Integer, _ ByRef phToken As IntPtr) As Boolean Private Declare Auto Function DuplicateToken Lib "advapi32.dll" (ByVal ExistingTokenHandle As IntPtr, _ ByVal SECURITY_IMPERSONATION_LEVEL As Integer, _ ByRef DuplicateTokenHandle As IntPtr) As Boolean Private Declare Auto Function CloseHandle Lib "kernel32.dll" (ByVal handle As IntPtr) As Boolean &lt;System.Runtime.InteropServices.DllImport("kernel32.dll")&gt; _ Private Shared Function FormatMessage(ByVal dwFlags As Integer, ByRef lpSource As IntPtr, _ ByVal dwMessageId As Integer, ByVal dwLanguageId As Integer, ByRef lpBuffer As [String], _ ByVal nSize As Integer, ByRef Arguments As IntPtr) As Integer End Function Private Function GetErrorMessage(ByVal errorCode As Integer) As String Dim FORMAT_MESSAGE_ALLOCATE_BUFFER As Integer = &amp;H100 Dim FORMAT_MESSAGE_IGNORE_INSERTS As Integer = &amp;H200 Dim FORMAT_MESSAGE_FROM_SYSTEM As Integer = &amp;H1000 Dim messageSize As Integer = 255 Dim lpMsgBuf As String = "" Dim dwFlags As Integer = FORMAT_MESSAGE_ALLOCATE_BUFFER Or FORMAT_MESSAGE_FROM_SYSTEM Or FORMAT_MESSAGE_IGNORE_INSERTS Dim ptrlpSource As IntPtr = IntPtr.Zero Dim prtArguments As IntPtr = IntPtr.Zero Dim retVal As Integer = FormatMessage(dwFlags, ptrlpSource, errorCode, 0, lpMsgBuf, messageSize, prtArguments) If 0 = retVal Then Throw New System.Exception("Failed to format message for error code " + errorCode.ToString() + ". ") End If Return lpMsgBuf End Function #End Region End Class </code></pre> <p>This will allow you to impersonate a designated user for a session. so you would than change your code to:</p> <pre><code>Dim domain, username, passwordStr, remoteServerName As String Dim password As New Security.SecureString Dim command As New Process domain = "domain.com" username = "username" passwordStr = "password" remoteServerName = "serverName" Dim impersonator As New AliasAccount(username, password) For Each c As Char In passwordStr.ToCharArray password.AppendChar(c) Next command.StartInfo.FileName = "explorer.exe" command.StartInfo.Arguments = "\\" &amp; serverName &amp; "\admin$\Temp" command.StartInfo.UserName = username command.StartInfo.Password = password command.StartInfo.Domain = domain command.StartInfo.Verb = "open" command.StartInfo.UseShellExecute = False impersonator.BeginImpersonation() command.Start() impersonator.EndImpersonation() </code></pre>
    singulars
    1. This table or related slice is empty.
    1. POOpen remote shared folder with credentials
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USChris Santiago
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POOpen remote shared folder with credentials
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTAcceptedByOriginator
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COI believe its because even though you're giving the process the correct credentials its only the process that will use the credentials. The problem is that your session will use your credentials, the impersonation will impersonate that same user for the code block between the begin and end impersonation.
      singulars
      1. PO
      1. USChris Santiago
    2. COThat's exactly right.
      singulars
      1. PO
      1. USMatt Hanson
    3. COThank you, it worked
      singulars
      1. PO
      1. USMitchel
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload