JP1/NETM/DM 運用ガイド1 (Windows(R)用)
Function main() ' DMP_AUTO_BUILD DECLARE-DIM START Dim ResourceName As String Dim ResourceVersion As String Dim CommandFile As String Dim ActiveVersion As String Dim OsVersion As String Dim InstallBeforeProgram As String Dim InstallAfterProgram As String Dim InstallErrorProgram As String Dim Capacity As Integer Dim ForceDelivery As System Dim ProcessorType As System Dim CoProcessor As System Dim OsKind As System Dim PremiseVersion As String ' DMP_AUTO_BUILD DECLARE-DIM END ' DMP_AUTO_BUILD DECLARE-ON_INSTALLERROR START On InstallError Do InstallErrorProgram = "C:\USERS\DEFAULT\error.exe" Shell(InstallErrorProgram) Restore() End ' DMP_AUTO_BUILD DECLARE-ON_INSTALLERROR END ' DMP_AUTO_BUILD RESOURCE_INFORMATION-GET START ResourceName = GetResourceName() ResourceVersion = GetResourceVersion() ' DMP_AUTO_BUILD RESOURCE_INFORMATION-GET END ' DMP_AUTO_BUILD FORCE_INSTALL-CHECK START ForceDelivery = DmInfo(FORCE_DELIVERY, 0) If ForceDelivery = FORCE Then Goto SKIP_VERSION_CHECK End If ' DMP_AUTO_BUILD FORCE_INSTALL-CHECK END ' DMP_AUTO_BUILD VERSION-CHECK START ActiveVersion = VerInfo(ACTIVE_VERSION, ResourceName) If ActiveVersion = "" Then Goto SKIP_VERSION_CHECK End If If ActiveVersion = ResourceVersion Then Exit End If ' DMP_AUTO_BUILD VERSION-CHECK END SKIP_VERSION_CHECK: ' DMP_AUTO_BUILD INSTALL-CHECK START ProcessorType = SysInfoCpuType() If ProcessorType <> I_PENTIUM Then DmSetStatus(INSTALL_HENVERROR) ErrorExit End If Capacity = SysInfoHDEmpty("C:") If Capacity < 100 Then DmSetStatus(INSTALL_CAPAERROR) ErrorExit End If Capacity = SysInfoMemory(REAL_MEMORY) If Capacity < 32 Then DmSetStatus(INSTALL_HENVERROR) ErrorExit End If OsVersion = SysInfoOSVersion(WINDOWS) If OsVersion < "0400" Then DmSetStatus(INSTALL_SENVERROR) ErrorExit End If ' DMP_AUTO_BUILD INSTALL-CHECK END INSTALL_NO_CHECK: ' DMP_AUTO_BUILD SOFTWARE-CHECK START PremiseVersion = VerInfoEx(PACKAGE_ID, "TEST01") If PremiseVersion <> "" Then DmSetStatus(INSTALL_PSVRERROR) ErrorExit End If PremiseVersion = VerInfoEx(PACKAGE_NAME, "集計データ001") If PremiseVersion < "0000 0000" Then DmSetStatus(INSTALL_PSVRERROR) ErrorExit End If PremiseVersion = VerInfoEx(PACKAGE_ID, "TEST02") If PremiseVersion = "0100 0000" Then DmSetStatus(INSTALL_PSVRERROR) ErrorExit End If ' DMP_AUTO_BUILD SOFTWARE-CHECK END ' DMP_AUTO_BUILD AUTO-INSTALL START InstallBeforeProgram = "C:\USERS\DEFAULT\before.exe" Shell(InstallBeforeProgram) Backup() Install("C:\USERS\DEFAULT") DelBackup() InstallAfterProgram = "C:\USERS\DEFAULT\after.exe" Shell(InstallAfterProgram) ' DMP_AUTO_BUILD AUTO-INSTALL END ' DMP_AUTO_BUILD CREATE-SHORTCUT START CreateShortCut("c:windows\デスクトップ※", "c: \USERS\DEFAULT\test01.exe", "業務用テストツール") ' DMP_AUTO_BUILD CREATE-SHORTCUT END End Function
注※ 「デスクトップ」は半角のかたかなを使用してください。
Function main() ' DMP_AUTO_BUILD DECLARE-DIM START Dim CollectBeforeProgram As String Dim CollectAfterProgram As String Dim CollectErrorProgram As String ' DMP_AUTO_BUILD DECLARE-DIM END ' DMP_AUTO_BUILD DECLARE-ON_COLLECTIONERROR START On CollectionError Do CollectErrorProgram = "C:\USERS\DEFAULT\ERROR.exe" Shell(CollectErrorProgram) '収集失敗時の実行プログラムを起動 End ' DMP_AUTO_BUILD DECLARE-ON_COLLECTIONERROR END ' DMP_AUTO_BUILD AUTO-COLLECTION START CollectBeforeProgram = "C:\USERS\DEFAULT\BEFORE.exe" Shell(CollectBeforeProgram) '収集前の実行プログラムを起動 Collection(COLLECTION_START) '収集設定の初期化 Collection("C:\USERS\DEFAULT\user.data") '収集ファイルの設定 Collection("%WINDOWS%\WIN.INI") Collection("%SYSTEM%\DRIVERS\ETC") '収集ディレクトリの設定 Collection(COLLECTION_END) '収集の実行 CollectAfterProgram = "C:\USERS\DEFAULT\AFTER.exe" Shell(CollectAfterProgram) '収集後の実行プログラムを起動 ' DMP_AUTO_BUILD AUTO-COLLECTION END End Function
All Rights Reserved. Copyright (C) 2009, 2013, Hitachi, Ltd.
Copyright, patent, trademark, and other intellectual property rights related to the "TMEng.dll" file are owned exclusively by Trend Micro Incorporated.