تغییر آیتم Current System Locale در قسمت Region از طریق کد نویسی

[ARData]

برای اینکه بخواهیم موقتا اختیارات کاربر را از نوع administrator کنیم و پس از اعمال تغییرات آن را به حالت قبلی برگردانیم نیاز هست از یک اسکریپت استفاده کنیم

Option Explicit



Public Sub RunPowerShellScript()

    Dim strScriptPath As String

    Dim strCommand As String

    Dim shell As Object



    ' مسیر کامل به اسکریپت PowerShell

    strScriptPath = "C:\Path\To\TemporaryAdmin.ps1"



    ' دستور PowerShell برای اجرای اسکریپت

    strCommand = "powershell.exe -ExecutionPolicy Bypass -File """ & strScriptPath & """"



    ' ایجاد شیء Shell برای اجرای دستور

    Set shell = CreateObject("WScript.Shell")

    shell.Run strCommand, 1, True



    ' پیام موفقیت

    MsgBox "PowerShell script executed successfully!", vbInformation

End Sub

این کد بدون استفاده از sendkeys System Locate را به Persian بر می گرداند فقط کافی فایل ضمیمه را از حالت زیپ دربیارید و در درایو مثلا c کپیش کنید .