GO-Global for Windows

[番号]
技術ノート KGTN 2014122603

[現象]
[GGH4.X] 拡張パックの GGPdfPrint をActiveXおよびWindowsクライアントへ組み込む方法は？

[説明]
GGPdfPrint の２つのファイル pdfprint.exe と pdfprint.ini が置かれたフォルダで，下記の内容のファイルInstallGGPdfPrint.vbs を作成し，それを実行して下さい．

Option Explicit
On Error Resume Next
Dim objShell, objFso
Dim windir
Dim pathX64,pathX86,pathTarget
'---
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
'--- ActiveX Client ---
windir = objShell.ExpandEnvironmentStrings("%WINDIR%")
objFso.CopyFile "pdfprint.exe", windir&"\Downloaded Program Files\pdfprint.exe", True
objFso.CopyFile "pdfprint.ini", windir&"\Downloaded Program Files\pdfprint.ini", True
'--- Windows Client ---
pathX64 = objShell.RegRead("HKLM\SOFTWARE\Wow6432Node\GraphOn\GO-Global\client")
pathX86 = objShell.RegRead("HKLM\SOFTWARE\GraphOn\GO-Global\client")
pathTarget = "" 
If pathX64 <> "" Then
pathTarget = objFso.GetParentFolderName(pathX64)
End If
If pathX86 <> "" Then
pathTarget = objFso.GetParentFolderName(pathX86)
End If
If pathTarget <> "" Then
objFso.CopyFile "pdfprint.exe", pathTarget&"\pdfprint.exe", True
objFso.CopyFile "pdfprint.ini", pathTarget&"\pdfprint.ini", True
End If
'---
Set objShell = Nothing
Set objFso = Nothing
'---