Visual Basic

Imports System.Security.Principal
Imports System.Security.Permissions
Imports System.Runtime.InteropServices
Imports System.ComponentModel
 
.
.
.
 
    Private Const LOGON32_PROVIDER_DEFAULT As Integer = 0
    Private Const LOGON32_LOGON_INTERACTIVE As Integer = 2

    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 CloseHandle Lib "kernel32.dll" ( _
        ByVal handle As IntPtr) _
            As Boolean
 
    Private Function IsUserAnAdmin(ByVal username As String, ByVal password As String, ByVal domain As String) As Boolean
        Dim returnValue As Boolean = False
 
        Dim tokenHandle As New IntPtr(0)
 
        ' Call the Win32 LogonUser function to get a security token.
        ' If the call succeeds, LogonReturn will be True.  In the credentials supplied
        ' are bad, this will return False.
        Dim LogonReturn As Boolean
        LogonReturn = LogonUser(username, domain, password, LOGON32_LOGON_INTERACTIVE, _
            LOGON32_PROVIDER_DEFAULT, tokenHandle)
 
        Try
            If False = LogonReturn Then
                ' If the Logon failed, you can either throw an exception back to the caller
                ' or just set returnValue to False.  This code does both for no good reason.
                Dim errorCode As Integer = Marshal.GetLastWin32Error()
                Throw New Win32Exception(errorCode)
                returnValue = False
            Else
                ' LogonUser worked!  User the returned security token to create a new
                ' WindowsIdentity object...
                Dim newIdentity As New WindowsIdentity(tokenHandle)
 
                ' Then create an impersonation context out of that so we can revert
                ' back to being our normal logged in user...
                Dim impersonatedUser As WindowsImpersonationContext = newIdentity.Impersonate()
 
                ' The create a new Principal object so we can check role membership...
                Dim newPrincipal As New WindowsPrincipal(newIdentity)
 
                ' Is the new user an Admin???
                returnValue = newPrincipal.IsInRole("Administrators")

                ' Forget we logged in as this new person and revert back to
                ' the original user.
                impersonatedUser.Undo()
                CloseHandle(tokenHandle)
            End If
        End Try
 
        ' Tell the caller what happened...
        Return returnValue
    End Function

<br />
Set SysVarReg = WScript.CreateObject("WScript.Shell")<br />
accessLoc= SysVarReg.RegRead ("HKLM\SOFTWARE\Microsoft\Office\8.0\BinDirPath")+"\msaccess.exe"<br />

gt2 wrote:

dim dataadapter as new oledb.oledbadapter("Select * from ITEM where dateAcquired between '9/20/2004' and '9/20/2007'