نقل قول نوشته شده توسط atf1379 مشاهده تاپیک
بیشتر از ی کوچولو تلاش شد !
بعد از خارج کردن فایل از حالت زیپ اون رو در درایو C کپی کردم
با راست کلیک بر روی فایل مطابق تصویر زیر سه گزینه در ابتدای منوی شناور نمایش داده میشود :


Script.png

نتیجه انتخاب گزینه اول ، دوم و سوم مطابق تصاویر ضمیمه:
در حالت دوم با درج حرف Y و بعد ENTER باید در کنترل پنل زبان به فارسی تبدیل میشد که تغییر حاصل نشد حتی بعد از ریستارت کردن کامپیوتر
در واقع علت عدم تغییر در تصویر شماره 3 بصورت سیستمی توضیح داده شده
قرار نیست از این فایل استفاده مستقیم بشه
شما کافیه از این کد در اکسس استفاده کنید :
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