18 lines
560 B
Plaintext
18 lines
560 B
Plaintext
' terminate gamefarm
|
|
|
|
Set locator = CreateObject("WbemScripting.SWbemLocator")
|
|
Set service = locator.ConnectServer()
|
|
Set props = service.ExecQuery _
|
|
("select name, description from Win32_Process where name = 'GameFarmServer.exe'")
|
|
num = props.Count
|
|
for each GameFarmServer in props
|
|
GameFarmServer.terminate
|
|
next
|
|
|
|
' tortoise svn update
|
|
|
|
Dim WshShell, oExec
|
|
Set WshShell = CreateObject("WScript.Shell")
|
|
|
|
Set oExec = WshShell.Exec("C:\Program Files\TortoiseSVN\bin\TortoiseProc.exe /notempfile /closeonend:0 /command:update /path:.*../sdk")
|