ご返信ありがとうございます。今は「Result = AdjustTokenPrivileges(hToken, False, MyPrives, 0, 0, 0)」にエラー発生しています。
Option Strict On
Imports System.Runtime.InteropServices
Public Class Class1
Const ANYSIZE_ARRAY As Integer = 1
Const TOKEN_ADJUST_PRIVILEGES As Integer = &H20
Const SE_PRIVILEGE_ENABLED As Integer = &H2
<DllImport("kernel32.dll", EntryPoint:="CloseHandle", SetLastError:=True)>
Private Shared Function CloseHandle(ByVal hObject As IntPtr) As <MarshalAsAttribute(UnmanagedType.Bool)> Boolean
End Function
<StructLayout(LayoutKind.Sequential)>
Public Structure LUID
Public LowPart As UInt32
Public HighPart As UInt32
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure LUID_AND_ATTRIBUTES
Public Luid As LUID
Public Attributes As UInt32
End Structure
<StructLayout(LayoutKind.Sequential)>
Public Structure TOKEN_PRIVILEGES
Public PrivilegeCount As UInt32
<MarshalAs(UnmanagedType.ByValArray, SizeConst:=ANYSIZE_ARRAY)>
Public Privileges() As LUID_AND_ATTRIBUTES
Public Sub New(count As Integer)
PrivilegeCount = CUInt(count)
Privileges = New LUID_AND_ATTRIBUTES(count - 1) {}
End Sub
End Structure
<DllImport("advapi32.dll", SetLastError:=True)>
Shared Function LookupPrivilegeValue(ByVal lpSystemName As String, ByVal lpName As String, ByRef lpLuid As LUID) As Boolean
End Function
<DllImport("advapi32.dll", SetLastError:=True)>
Shared Function OpenProcessToken(ByVal ProcessHandle As IntPtr, ByVal DesiredAccess As Integer, <Out> ByRef TokenHandle As IntPtr) As Boolean
End Function
<DllImport("advapi32.dll", SetLastError:=True)>
Shared Function AdjustTokenPrivileges(ByVal TokenHandle As IntPtr, ByVal DisableAllPrivileges As Boolean,
NewState As TOKEN_PRIVILEGES, ByVal BufferLength As Long,
ByVal PreviousState As Long, <Out> ByRef ReturnLength As Integer) As Boolean
End Function
Public Shared Function ModifyState(Privilege As String, Enable As Boolean) As Boolean
Dim MyPrives As New TOKEN_PRIVILEGES(ANYSIZE_ARRAY)
Dim PrivilegeId As LUID
Dim hToken As IntPtr
Dim Result As Boolean
Dim hProc As IntPtr = Process.GetCurrentProcess().Handle
Result = OpenProcessToken(hProc, TOKEN_ADJUST_PRIVILEGES, hToken)
If (Result = False) Then
ModifyState = False
Exit Function
End If
Result = LookupPrivilegeValue(vbNullString, Privilege, PrivilegeId)
If (Result = False) Then
ModifyState = False
Exit Function
End If
MyPrives.Privileges(0).Luid = PrivilegeId
MyPrives.PrivilegeCount = 1
If (Enable) Then
MyPrives.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
Else
MyPrives.Privileges(0).Attributes = 0
End If
'If MyPrives.Privileges Is Nothing OrElse MyPrives.Privileges.Length = 0 Then
Result = AdjustTokenPrivileges(hToken, False, MyPrives, 0, 0, 0)
If (Result = False OrElse Err.LastDllError <> 0) Then
ModifyState = False
Console.WriteLine("AdjustTokenPrivileges failed with error code " & Err.LastDllError)
Exit Function
End If
'End If
CloseHandle(hToken)
ModifyState = True
End Function
Shared Sub Main(ByVal abc() As String)
ModifyState("SeBackupPrivilege", True)
Console.WriteLine("End!")
Console.ReadKey()
End Sub
End Class
SeBackupPrivilegeについて
