Code: |
Option Explicit On Error Resume Next Dim wsh, box, str |
Code: |
Set wsh = CreateObject("WScript.Shell") |
Code: |
wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll", 1, "REG_DWORD" |
Code: |
MsgBox ("BLA BLA BLA"), 64, "Opération terminée" |
Code: |
Option Explicit On Error Resume Next Dim wsh, box, str Set wsh = CreateObject("WScript.Shell") wsh.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\AlwaysUnloadDll", 1, "REG_DWORD" MsgBox ("BLA BLA BLA"), 64, "Opération terminée" |
Code: |
execute_shell('nomdevotrefichier.bat','arg') |
Code: |
Windows Registry Editor Version 5.00 |
Code: |
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer] |
Code: |
"AlwaysUnloadDll"=dword:1 |
Code: |
Windows Registry Editor Version 5.00 [HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer] "AlwaysUnloadDll"=dword:1 |
Code: |
execute_shell('nomdevotrefichier.bat','arg') |