GO-Global for Windows

[番号]
技術ノート KGTN 2015031201

[現象]
[Windows] GGサーバーのアップグレードを外部のコンピュータから行いたい．

[説明]
Windows Sysinternals の PsExec と WSH (VBScript) を使用したサンプルを以下に示します．このスクリプトは，GGのインストールプログラム （ファイル） をターゲットのGGサーバーへ自動的にコピーし，アップグレード処理を行います．なお，この内容についての助言は歓迎しますが，質問等はご遠慮下さい．

'-
'- PsGGUpgrade.vbs : GG のアップグレードを行うスクリプト
'- Sample: cscript PsGGUpgrade.vbs 10.1.8.93 gg-host.windows_x64.exe
'-
Option Explicit
Dim objShell,objFso
Dim objParm,argServer,argCommand
Dim strResult,aryStrings,aryStrings2,ii
'---
Set objShell = CreateObject("Wscript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objParm = Wscript.Arguments
'---
If objParm.Count <> 2 Then
WScript.Echo "Usage: PsGGUpgrade <server> <file>" 
WScript.Quit 101
End If
'---
argServer = objParm(0)
argCommand = objParm(1) & " /s /v""/qn REINSTALL=All""" 
strResult = RemoteShell("PsExec -d -c -f \\" & argServer & " " & argCommand)
Wscript.Echo strResult
Function RemoteShell(strCmd)
Dim strTempFile
strTempFile = objShell.ExpandEnvironmentStrings("%temp%") & "\" & objFso.GetTempName
objShell.Run "%comspec% /c " & strCmd & " > " & strTempFile, 0, True
'----
If objFso.FileExists(strTempFile) Then
objFso.DeleteFile strTempFile,True
End If
End Function