WinXPの制限ユーザでシステム日付を変更するには？ (ID:77987)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

このような感じではないですか？動作保証は致しませんので、
実行して何かしらの不具合が発生しても、責任は負いかねます。
自分の責任で実行してみて下さい。

Option Explicit
Private Declare Function LogonUser Lib "advapi32.dll" Alias "LogonUserA" _
(ByVal lpszUsername As String, ByVal lpszDomain As String, _
ByVal lpszPassword As String, ByVal dwLogonType As Long, _
ByVal dwLogonProvider As Long, phToken As Long) As Long
Private Declare Function ImpersonateLoggedOnUser Lib "advapi32.dll" _
(ByVal hToken As Long) As Long
Private Declare Function RevertToSelf Lib "advapi32.dll" () As Long
Private Const LOGON32_LOGON_INTERACTIVE = 2&
Private Const LOGON32_PROVIDER_DEFAULT = 0&
Private Sub SampleProc(ByVal sUserID As String, _
                       ByVal sPassword As String, _
                       ByVal sDomain As String)
  Dim lTokenHandle    As Long
  Dim lLogonType      As Long
  Dim lLogonProvider  As Long
  Dim bResult         As Boolean
  lLogonType = LOGON32_LOGON_INTERACTIVE
  lLogonProvider = LOGON32_PROVIDER_DEFAULT
  bResult = RevertToSelf()
  bResult = LogonUser(sUserID, sDomain, sPassword, lLogonType, lLogonProvider, lTokenHandle)
  bResult = ImpersonateLoggedOnUser(lTokenHandle)
  
  '* ここに、日時を変更する処理を記述
  'なんとかかんとか
  
  bResult = RevertToSelf()
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る