Visual Basic

HKEY_CURRENT_USER\Software\Microsoft\Office\x.x

prubyholl wrote:

vb2005 and asp.net and would like to get certified, but am confused as to which of the above certs.

Public Class SePrivilege
    Public Const SeCount As Integer = 35
    Public Const SeCreateTokenPrivilege As String = "SeCreateTokenPrivilege"
    Public Const SeAssignPrimaryTokenPrivilege As String = "SeAssignPrimaryTokenPrivilege"
    Public Const SeLockMemoryPrivilege As String = "SeLockMemoryPrivilege"
    Public Const SeIncreaseQuotaPrivilege As String = "SeIncreaseQuotaPrivilege"
    Public Const SeUnsolicitedInputPrivilege As String = "SeUnsolicitedInputPrivilege"
    Public Const SeMachineAccountPrivilege As String = "SeMachineAccountPrivilege"
    Public Const SeTcbPrivilege As String = "SeTcbPrivilege"
    Public Const SeSecurityPrivilege As String = "SeSecurityPrivilege"
    Public Const SeTakeOwnershipPrivilege As String = "SeTakeOwnershipPrivilege"
    Public Const SeLoadDriverPrivilege As String = "SeLoadDriverPrivilege"
    Public Const SeSystemProfilePrivilege As String = "SeSystemProfilePrivilege"
    Public Const SeSystemtimePrivilege As String = "SeSystemtimePrivilege"
    Public Const SeProfileSingleProcessPrivilege As String = "SeProfileSingleProcessPrivilege"
    Public Const SeIncreaseBasePriorityPrivilege As String = "SeIncreaseBasePriorityPrivilege"
    Public Const SeCreatePagefilePrivilege As String = "SeCreatePagefilePrivilege"
    Public Const SeCreatePermanentPrivilege As String = "SeCreatePermanentPrivilege"
    Public Const SeBackupPrivilege As String = "SeBackupPrivilege"
    Public Const SeRestorePrivilege As String = "SeRestorePrivilege"
    Public Const SeShutdownPrivilege As String = "SeShutdownPrivilege"
    Public Const SeDebugPrivilege As String = "SeDebugPrivilege"
    Public Const SeAuditPrivilege As String = "SeAuditPrivilege"
    Public Const SeSystemEnvironmentPrivilege As String = "SeSystemEnvironmentPrivilege"
    Public Const SeChangeNotifyPrivilege As String = "SeChangeNotifyPrivilege"
    Public Const SeRemoteShutdownPrivilege As String = "SeRemoteShutdownPrivilege"
    Public Const SeUndockPrivilege As String = "SeUndockPrivilege"
    Public Const SeSyncAgentPrivilege As String = "SeSyncAgentPrivilege"
    Public Const SeEnableDelegationPrivilege As String = "SeEnableDelegationPrivilege"
    Public Const SeManageVolumePrivilege As String = "SeManageVolumePrivilege"
    Public Const SeImpersonatePrivilege As String = "SeImpersonatePrivilege"
    Public Const SeCreateGlobalPrivilege As String = "SeCreateGlobalPrivilege"
    Public Const SeTrustedCredManAccessPrivilege As String = "SeTrustedCredManAccessPrivilege"
    Public Const SeRelabelPrivilege As String = "SeRelabelPrivilege"
    Public Const SeIncreaseWorkingSetPrivilege As String = "SeIncreaseWorkingSetPrivilege"
    Public Const SeTimeZonePrivilege As String = "SeTimeZonePrivilege"
    Public Const SeCreateSymbolicLinkPrivilege As String = "SeCreateSymbolicLinkPrivilege"
End Class

[Flags()] Public Enum SePrivilegeAction
    EnabledByDefault = 1
    Enabled = 2
    Removed = 4
    UsedForAccess = &H80000000
End Enum

[StructLayout(LayoutKind.Sequential)] Public Structure LUID

    Public LowPart As Integer
    Public HighPart As Integer

    Public Shared ReadOnly Zero = New LUID

    Public Shared Function FromPrivilegeName(ByVal PrivilegeName As String) As LUID
        Dim Luid As New [Structure].LUID()
        Advapi32.LookupPrivilegeValue(Nothing, PrivilegeName, Luid)
        Return Luid
    End Function

End Structure

[StructLayout(LayoutKind.Sequential)] Public Structure LUIDAndAttributes
    Public LUID As LUID
    Public Attributes As SePrivilegeAction
End Structure

[StructLayout(LayoutKind.Sequential)] Public Structure TokenPrivileges
    Public PrivilegeCount As Integer
    [MarshalAs(UnmanagedType.ByValArray, SizeConst:=SePrivilege.SeCount)] Public Privileges() As LUIDAndAttributes
End Structure

Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" (ByVal tokenhandle As IntPtr, ByVal disableprivs As Boolean, ByVal Newstate As IntPtr, ByVal bufferlength As Integer, ByVal PreivousState As TokenPrivileges, ByRef Returnlength As Integer) As Boolean

 Public Class TokenPrivileges
     Inherits List(Of LUIDAndAttributes)
     Implements IDisposable

     Dim P As IntPtr

     Public Function AllocHGlobal() As IntPtr
         FreeHGlobal()

         P = Marshal.AllocHGlobal(Marshal.SizeOf(GetType(Integer)) + Marshal.SizeOf(GetType(LUIDAndAttributes)) * Count)
         Dim P2 As IntPtr = P

         Marshal.WriteInt32(P2, 0, Count)
         P2 = Sum(P2, Marshal.SizeOf(Count.GetType))

         For Each LUIDAndAttributes As LUIDAndAttributes In Me
             Marshal.StructureToPtr(LUIDAndAttributes, P2, False)
             P2 = Sum(P2, Marshal.SizeOf(LUIDAndAttributes.GetType))
         Next

         Return P
     End Function

     Public Sub FreeHGlobal()
         If P <> IntPtr.Zero Then
             Marshal.FreeHGlobal(P)
             P = IntPtr.Zero
         End If
     End Sub

 End Class

 Public Shared Function Sum(ByVal P As IntPtr, ByVal I As Integer) As IntPtr
     If IntPtr.Size = 4 Then
         Return New IntPtr(P.ToInt32 + I)
     Else
         Return New IntPtr(P.ToInt64 + I)
     End If
 End Function

matjame wrote:

Anymore suggestions guys?

ankur0101 wrote:

i searched on the internet for this coding but i failed..