Forsaken World – QOL Multi account EZ script 2019

OK PWslave

1 – Copy and paste this code into .txt file

2 – Change value by insert your ARC base dir (basepath = “C:\Program Files (x86)\Arc\” )

3 – Save and rename the file in FUPW.vbs

4 – Dbl-click on file to insta open a new FW session login

5 – For lazy ppl download it (DOWNLOAD ALERT MAY BE APPEAR): new_pem_session.zip

_____________________________

On Error Resume Next

''====================================================
'' PLEASE FILL THIS VALUE WITH YOUR ARC PATH !!!!!
'' To be sure the script work properly run it as Administrator user 
basepath = "C:\Program Files (x86)\Arc\"
''====================================================

''''''Kill Arc.exe

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'Arc.exe'")

For Each objProcess in colProcessList

    objProcess.Terminate()

Next

''''''Kill ArcChat.exe

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("SELECT * FROM Win32_Process WHERE Name = 'ArcChat.exe'")

For Each objProcess in colProcessList

    objProcess.Terminate()

Next

Set WshShell = WScript.CreateObject("WScript.Shell")

''''Restart Arc 

fullpath = basepath & "ArcLauncher.exe"

WshShell.run Chr(34) & fullpath & Chr(34)


''''Clean

set WshShell=nothing

Wscript.Quit

Leave a Reply

Your email address will not be published. Required fields are marked *

Comment moderation is enabled. Your comment may take some time to appear.