GO-Global for Windows

[番号]
技術ノート KGTN 2014122602

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

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

Option Explicit
On Error Resume Next
Dim objShell, objFso
Dim pathX64,pathX86,pathTarget
'---
Set objShell = WScript.CreateObject("WScript.Shell")
Set objFso = CreateObject("Scripting.FileSystemObject")
pathX64 = objShell.RegRead("HKLM\SOFTWARE\Wow6432Node\GraphOn\GO-Global\client")
pathX86 = objShell.RegRead("HKLM\SOFTWARE\GraphOn\GO-Global\client")
pathTarget = "" 
If pathX64 <> "" Then
' WScript.Echo pathX64
pathTarget = objFso.GetParentFolderName(pathX64)
End If
If pathX86 <> "" Then
' WScript.Echo pathX86
pathTarget = objFso.GetParentFolderName(pathX86)
End If
'---
' WScript.Echo "pathTarget = '" & pathTarget & "'" 
'---
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
'---