Visual Basic

'Draw your rectangle, then do something like this:
For x = 0 to rectangleWidth Step spacing
    DrawLine( x+rectangleLeft, 0, x+rectangleLeft, rectangleHeight )
Next

For x = 0 to rectangleHeight Step spacing
    DrawLine( 0, x+rectangleTop, rectangleWidth, x+rectangleHeight )
Next

Try
   Dim searcher As New ManagementObjectSearcher( _
   "root\CIMV2", _
   "SELECT * FROM Win32_GroupUser WHERE PartComponent = " & Chr(34) & "Win32_UserAccount.Domain=\" & Chr(34) & "DOMAIN\" & Chr(34) & ",Name=\" & Chr(34) & "USER\" & Chr(34) & Chr(34))
   For Each queryObj As ManagementObject In searcher.Get()

      Console.WriteLine("-----------------------------------")
      Console.WriteLine("Win32_GroupUser instance")
      Console.WriteLine("-----------------------------------")
      Console.WriteLine("GroupComponent: {0}", queryObj("GroupComponent"))
      Console.WriteLine("PartComponent: {0}", queryObj("PartComponent"))
   Next
Catch err As ManagementException
   MessageBox.Show("An error occurred while querying for WMI data: " & err.Message)
End Try

-----------------------------------
Win32_GroupUser instance
-----------------------------------
GroupComponent: \\NC8000\root\cimv2:Win32_Group.Domain="DOMAIN",Name="Administrators"
PartComponent: \\NC8000\root\cimv2:Win32_UserAccount.Domain="DOMAIN",Name="USER"
-----------------------------------
Win32_GroupUser instance
-----------------------------------
GroupComponent: \\NC8000\root\cimv2:Win32_Group.Domain="DOMAIN",Name="Debugger Users"
PartComponent: \\NC8000\root\cimv2:Win32_UserAccount.Domain="DOMAIN",Name="USER"

archangel_26 wrote:

I've found a bit of code that almost works.

' Get the current prinicpal this thread is running under
Dim userPrincipal As IPrincipal = System.Threading.Thread.CurrentPrincipal

' Check if this principal is a member, through any number of nested groups
' and permissions, of the local Administrators group.  For instance, if in
' a domain environment, a user can be a member of the Domain Admins domain
' group, which in turn can be a member of the local machines Administrators
' group.  This line would return true if that user was running this code.
Dim result As Boolean = userPrincipal.IsInRole("Administrators")

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