' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' ●パソコン内のアプリケーションソフトを取得して台帳を表示するスクリプト●
'
' ●対応システム
'  Windows2000/XP/Vista/7が動作しているパソコン
'  Server版も対応しているはずですが未検証です。64bit版も対応です。
' Windows98/me/NTは対応しません。
'
' ●更新履歴
'  2006/08/07 初版
'  2006/08/10 adobe/Justsystem キーおよびソフトウエア対応
'  2006/08/21 exeファイル取得対応
'  2006/08/24 場所・名前入力対応
'  2006/08/25 Windows98/ME対応
'  2007/03/08 一太郎・花子・三四郎2007対応
'             WindowsVista(WSH5.7)対応
'  2007/07/25 起動フォルダ、HDD選択の自動化
'  2007/08/21 SYLK表記正規化、Justsystem表示不具合対処
'  2007/11/06 開放ポートおよびhostsファイル取得の設定
'  2007/11/07 HDDドライブ名が異なる場合のバグ修正（PCView.ini)
'             設定ファイルの外部化
'  2007/11/15 変数見直し
'  2007/11/21 サイレント設定追加・ユーザー質問項目のIniファイル設定
'             ログ出力設定
'  2007/11/22 MS-Office未インストール時の表示改善
'             プログレス表示改善
'  2007/11/26 Adobeソフトウエア対応
'  2007/12/10 メッセージ表示追加（タイトルバー）
'  2007/12/11 WindowsNT4.0(Sp6a)対応
'  2007/12/14 produkey(スパイウエア疑惑)無しでの動作対応
'  2007/12/17 MS製ソフトのオープンライセンス、製品版区分対応
'  2008/01/18 Dドライブが存在しないPCに対応
'  2009/10/23 SLK形式出力の最適化
'  2009/11/13 Pcviewを不要に。SLK管理台帳変更(2009年北大用修正版_ファイル名変更)
'  2009/11/19 修正（起動ドライブのファイルコピー不要に）
'
' ●起動方法
'   appinfo.vbsを直接起動。
'
' ●エラーコード一覧
'   010 WSHバージョンエラー
'   020 起動ハードディスクエラー
'   040 ファイルの展開エラー
'   050 INIファイルエラー
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'**Start Encode**
Option Explicit
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' 変数・定数定義
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
' オブジェクト関係関数
Dim objShells   '          シェルオブジェクト
dim objApples
Dim objFsystm   '          ファイルシステムオブジェクト
' スクリプト基幹関係
Dim strStartt   '          スクリプト開始時刻
Dim strWshver   '          スクリプトバージョン
Dim strWinver   '          Windowsバージョン
Dim strWinNam   '          Windows名称
Dim strWinPid   '          WindowsProductID
Dim strWinSps   '          SystemPath
Dim strErrcod   '          エラーコード
Dim strPrgnam   '          プログラム名称（タイトルバー）
Dim strTmpdel   '          tempファイル削除可否（「Yes」で削除）
Dim strWshvok   '          開始メッセージ
Dim strOkmsg1   '          正常終了メッセージ
Dim strErrmsg   '          異常終了メッセージ
' 本スクリプトが使用するファイル関係の定義
Dim objPcvlog   '          ログ収集用
Dim strScfold   ' (e:\)    スクリプト実行開始フォルダ（最終的にこのフォルダに制御が戻る）
Dim strSctemp   ' (e:\*.*) スクリプトおよびPCViewプログラムファイルなどの場所
Dim strScdata   ' (e:\data)作成された出力ファイルの最終設置場所
Dim strDriveC   ' (2)      Cドライブ情報(HDDか否か、HDDなら2)
Dim strDriveD   ' (2)      Dドライブ情報(HDDか否か、HDDなら2)
Dim strHdrive   ' (C:\)    ハードディスクドライブ名
Dim strTmpfld   ' (C:\$$$temp_app_data$$$)             HDD一時ファイル展開場所
dim strExcelok  ' Excelインストール確認用

Dim objQfeSet
Dim strQfeSet
Dim objLocatr
Dim objServce
Dim strMacadr   '          取得されたMACアドレス
Dim strIPadrs   '          取得されたIPアドレス
Dim objOSeset
Dim objOSytm
Dim objWMISvc
Dim strWinMan
Dim syrWinIdy
' just関係
Dim objJstfil   ' (just.txt)                           Just製品取得用ファイルオープン用
Dim strAdapn2   ' 既存CSVからのアプリケーション名取得
' csv(出力ファイル)関係
Dim strCsvfil   ' (Macaddr.csv)                        出力ファイル名
Dim strCsvfiN   ' (Macaddr2.csv)                       出力ファイル修正名
Dim objCsvfil   ' (Macaddr.csv)                        ファイル読み込み用
Dim objCsvfiN   ' (Macaddr2.csv)                       各種key挿入済みファイル書き出し用
Dim objApmfil   '
Dim strCsvlin   '          ファイル読み込み行
Dim strCsvjli   '          justファイル読み込み行
' slkファイル出力関係
Dim strSilkYN   '          SLKファイル生成可否
Dim strSlknoa(19) '        SLK除外アプリケーション
Dim strSlklop   '          除外アプリケーション添え字用
Dim objSlkfil   ' (desktop\macaddr.slk)                ファイル書き出し用
Dim strSlkcli   '          csvファイル読み込み行
Dim strSlktxt   '          slkfileヘッダー情報表記
Dim strSlklno   '          slkファイルのソフトウエア表示の行設定(ヘッダー部が14行で終了したためソフトウエアは15から）
Dim strSlksft   '          ソフトウエア表示しないもの特定のため（intstr検索の関係）
Dim strSlkook   '          1のときだけファイル出力
Dim strSlkkom   '          ファイルを各項目に分割するための配列変数
Dim strSlkkey   '          配列項目キー（macadd）
Dim strSlkgro   '          配列項目グループ（soft・LAN等）
Dim strSlkitm   '          配列項目アイテム（Application・Adapter等）
Dim strSlksim   '          配列項目サブアイテム（ソフト名・サブ項目等）
Dim strSlkcts   '          配列項目内容（ヴァージョン・OS名等）
Dim strSlkcts2  '          配列項目内容（ヴァージョン・OS名等）OS追記用
Dim strSlkunt   '          配列項目unit（単位とか）
Dim strSlkday   '          配列項目入力日付
Dim strSlkout   '          slkfileに出力する内容
Dim strSlkfyn   '          slkfileが存在した場合に上書き確認用
dim strSlkOldd  '          slkfileが存在した場合にファイル更新時刻確認用
' 定数定義
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8   ' ファイルオープン時の添字

'デフォ値登録
strTmpdel     ="Yes"            ' テンポラリ削除（FTP対応）
strSilkYN     ="Yes"            ' Silk台帳ファイルの出力可否（「Yes」で出力）
strSlknoa(0)  =".NET Framework" ' Silkファイル除外Appデータ
strSlknoa(1)  ="(KB"            ' Silkファイル除外Appデータ
strSlknoa(2)  ="- KB"           ' Silkファイル除外Appデータ
strSlknoa(3)  ="Update"         ' Silkファイル除外Appデータ
strSlknoa(4)  ="Service Pack"   ' Silkファイル除外Appデータ
strSlknoa(5)  ="runtime"        ' Silkファイル除外Appデータ
strSlknoa(6)  ="MUI"            ' Silkファイル除外Appデータ
strSlknoa(7)  ="Driver"         ' Silkファイル除外Appデータ
strSlknoa(8)  ="ドライバ"       ' Silkファイル除外Appデータ
strSlknoa(9)  ="ﾄﾞﾗｲﾊﾞ"         ' Silkファイル除外Appデータ
'strSlknoa(10) =""       ' Silkファイル除外Appデータ
'strSlknoa(11) =""       ' Silkファイル除外Appデータ
'strSlknoa(12) =""       ' Silkファイル除外Appデータ
'strSlknoa(13) =""       ' Silkファイル除外Appデータ
'strSlknoa(14) =""       ' Silkファイル除外Appデータ
'strSlknoa(15) =""       ' Silkファイル除外Appデータ
'strSlknoa(16) =""       ' Silkファイル除外Appデータ
'strSlknoa(17) =""       ' Silkファイル除外Appデータ
'strSlknoa(18) =""       ' Silkファイル除外Appデータ
'strSlknoa(19) =""       ' Silkファイル除外Appデータ

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' 各種初期設定
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
' 実行開始時間生成
strStartt = Time

' WSHバージョンチェック(IE6なら5.6 vistaなら5.7なので、これ以外を拒否）なお、バージョンエラー時はメッセージ出力し終了
strWshver = WScript.Version
If	strWshver < 5.6 Then
	strErrcod = "code:010 WSHバージョンエラー(" & strWshver & ")"
	subError
	WScript.quit
End If

' ネットワーク・シェル・ファイルシステム使用の定義
Set objShells = WScript.CreateObject("WScript.Shell")
Set objFsystm = WScript.CreateObject("Scripting.FileSystemObject")
'MACaddress/IPaddess収集用
Set objLocatr = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objWMISvc = GetObject("winmgmts:")
Set objServce = objLocatr.ConnectServer
Set objQfeSet = objServce.ExecQuery("Select * From Win32_NetworkAdapterConfiguration")
Set objOSeset = objWMISvc.ExecQuery("Select * from Win32_OperatingSystem")

' Windowsバージョンチェック
subWinVer

' WindowsVista以上の場合は権限の引き上げを行う
do while WScript.Arguments.Count = 0 and strWshver >= 5.7   'WSHバージョンが5.7以上で
    if left(strWinver,3) < 6.0 then                         'OSヴァージョンが6.0(Vista)以上
        exit do
    end if
  '権限を引き上げた上でvista添字でスクリプト再起動
  Set objApples=WScript.CreateObject("Shell.Application")
  objApples.ShellExecute "wscript.exe","""" & WScript.ScriptFullName & """ vista","","runas",1
  WScript.Quit
loop

' このスクリプトが起動されたフォルダを確認し、変数をセットする
strScfold = objShells.CurrentDirectory
strSctemp = objShells.CurrentDirectory & "\*.*"                       ' スクリプトおよびプログラムファイルなどの場所
strScdata = objShells.CurrentDirectory & "\data"                      ' 作成された出力ファイルの場所

' CドライブがHDDか調べ、HDDと確認できればC:\をセット、DならDをセット、それ以外なら終了
Hddrv

' 作業フォルダ定義
strtmpFld = strHdrive & "$$$temp_app_data$$$"                         ' 一時ファイル展開場所

' ローカルの作業フォルダ(c:\$$$temp_app_data$$$)を作成・初期化(CSVファイル削除)
If Not objFsystm.FolderExists(strTmpfld) Then
	objFsystm.CreateFolder(strTmpfld)
Else
	Set objCsvfil = objFsystm.OpenTextFile(strTmpfld & "\" &  "app.csv",ForWriting,True)
	objCsvfil.Close
	objFsystm.DeleteFile strTmpfld & "\*.csv" , True
End If

' 実行ログ取得開始
Set objPcvlog = objFsystm.OpenTextFile(strTmpfld & "\" &  "appinfo.log",ForWriting,True)
	objPcvlog.Write time & ":実行開始      :" & strStartt & vbcrlf
	objPcvlog.Write time & ":Wsh バージョン:" & strWshver & vbcrlf
	objPcvlog.Write time & ":起動フォルダ  :" & strScfold & vbcrlf
	objPcvlog.Write time & ":実行フォルダ  :" & strtmpFld & vbcrlf

' カレントディレクトリを作業フォルダに移動
objShells.CurrentDirectory = strTmpfld

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' 取得プログラム実行
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'MACaddress/IPaddress収集
For Each strQfeSet In objQfeSet
    If strQfeSet.IPEnabled = True Then
        strMacadr = replace(strQfeSet.MACAddress,":","-")
        strIPadrs = strQfeSet.IPAddress(0)
    End If
Next

'作成ファイルチェック
If objFsystm.FileExists(objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk") Then
	strSlkfyn = MsgBox("デスクトップに台帳ファイルが存在します。上書きしてもよろしいですか？", 291 , "上書き確認")
	Select Case strSlkfyn
		' キャンセルなら終了
		Case "2"
		strErrcod = "code:099 ユーザーによる終了(" & strMacadr & "_w.slk存在)"
		objPcvlog.Write time & ":Error         :" & strErrcod & vbcrlf
		MsgBox strErrcod,48,"インストールソフトウエア情報表示プログラム"
		WScript.Quit
		' 「はい」なら続行（ファイル上書き）
		Case "6"
		'	上書き
		' 「いいえ」なら続行（ファイル名は元ファイル更新日付時刻Macaddress_w.slk変更の上）
		Case "7"
		Set objSlkfil = objFsystm.Getfile(objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk")
		strSlkOldd = objSlkfil.DateLastModified
		strSlkOldd = Replace(strSlkOldd,"/","")
		strSlkOldd = Replace(strSlkOldd,":","")
		strSlkOldd = Replace(strSlkOldd," ","")
		objFsystm.Copyfile objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk" _
				 , objShells.SpecialFolders("Desktop") & "\" & strSlkOldd & "_" & strMacadr & "_w.slk"
		MsgBox "既存の台帳ファイルを「" & strSlkOldd & "_" & strMacadr & "_w.slk」に変更しました",64,"インストールソフトウエア情報表示プログラム"
	End Select
End If

' 実行開始メッセージ
	strWshvok = "パソコン内部の設定データを取得します。「正常終了しました」のメッセージが出るまでしばらくお待ちください"
	msgbox strWshvok ,64,"インストールソフトウエア情報表示プログラム"                              ' iniファイルMsgSilent=yesがなければ内容表示

'MACaddress情報を定義
	strCsvfil = strMacadr & ".csv"
	strCsvfiN = strMacadr & "2.csv"
	objPcvlog.Write time & ":Macaddress    :" & strMacadr & vbcrlf
	objPcvlog.Write time & ":IPaddress     :" & strIPadrs & vbcrlf
	objPcvlog.Write time & ":WindowsVersion:" & strWinNam & vbcrlf

'ネットワークアドレス取得できなかったら終了
If strMacadr = "" Then
	strErrcod = "code:060 MacAddress未取得"
	objPcvlog.Write time & ":Error         :" & strErrcod & vbcrlf
	subError
	WScript.Quit
End If

'--レジストリからアプリケーション名等収集---------------------
subAppname
'-------------------------------------------------------------
'アプリケーションレジストリ情報(Adobe/Justsystem)を取得(サブルーチン)
Subreg                                                                ' Adobe/Justアプリ取得サブ
objPcvlog.Write time & ":レジストリ情報:取得終了" & vbcrlf

' 各ソフトでできあがったファイル開き、完成CSV生成
	Set objJstfil = objFsystm.OpenTextFile(strTmpfld & "\" &  "just.txt",ForReading)
	Set objCsvfil = objFsystm.OpenTextFile(strTmpfld & "\" &  strCsvfil ,ForReading)
	Set objCsvfiN = objFsystm.OpenTextFile(strTmpfld & "\" &  strCsvfiN ,ForWriting,True)
' CSVファイルにJustsystem取得情報を付加
Do Until objCsvfil.AtEndOfStream
	strCsvlin = objCsvfil.ReadLine
	strAdapn2 = Split(strCsvlin,",")                      ' CSV分割して取り出す

	If instr(strCsvlin,"Application,JUSTSYSTEM") > 0 Then     ' Justだったら(1)
			objCsvfiN.Write strCsvlin & vbCrLf            ' 普通の行も書き込みしておく
		Do Until objJstfil.AtEndOfStream                      ' キーファイルの登録
			strCsvjli = objJstfil.ReadLine                ' 1行読み込む
			objCsvfiN.Write strCsvjli & vbCrLf 
		Loop
	ElseIf instr(strCsvlin,"Application,JustSystems") > 0 Then    ' Justだったら(2)
			objCsvfiN.Write strCsvlin & vbCrLf            ' 普通の行も書き込みしておく
		Do Until objJstfil.AtEndOfStream                      ' キーファイルの登録
			strCsvjli = objJstfil.ReadLine                ' 1行読み込む
			objCsvfiN.Write strCsvjli & vbCrLf 
		Loop
	Else
			objCsvfiN.Write strCsvlin & vbCrLf            ' 普通の行はそのまま書き込み
	End If
Loop

' ファイルクローズ
objCsvfil.Close
objCsvfiN.Close
objJstfil.Close
objPcvlog.Write time & ":CSV生成       :終了" & vbcrlf

' デスクトップslkファイル作成
If strSilkYN = "Yes" Then                                             ' iniファイルUsrLedgerがYesのときだけSLK出力
On Error Resume Next
Set objSlkfil = objFsystm.OpenTextFile(objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk",ForWriting,True)
If Err.Number <> 0 Then
	strErrcod = "code:040 ファイル書き込みできません"
	objPcvlog.Write time & ":Error         :" & strErrcod & vbcrlf
	subError
	WScript.Quit
End If
On Error Goto 0

strSlktxt = ( _
"ID;PWXL;N;E" & vbCrLf & _
"P;PGeneral" & vbCrLf & _
"P;P0" & vbCrLf & _
"P;P0.00" & vbCrLf & _
"P;P#,##0" & vbCrLf & _
"P;P#,##0.00" & vbCrLf & _
"P;P#,##0;;\-#,##0" & vbCrLf & _
"P;P#,##0;;[Red]\-#,##0" & vbCrLf & _
"P;P#,##0.00;;\-#,##0.00" & vbCrLf & _
"P;P#,##0.00;;[Red]\-#,##0.00" & vbCrLf & _
"P;P""$""#,##0;;""$""\-#,##0" & vbCrLf & _
"P;P""$""#,##0;;[Red]""$""\-#,##0" & vbCrLf & _
"P;P""$""#,##0.00;;""$""\-#,##0.00" & vbCrLf & _
"P;P""$""#,##0.00;;[Red]""$""\-#,##0.00" & vbCrLf & _
"P;P0%" & vbCrLf & _
"P;P0.00%" & vbCrLf & _
"P;P0.00E+00" & vbCrLf & _
"P;P##0.0E+0" & vbCrLf & _
"P;P#\ ?/?" & vbCrLf & _
"P;P#\ ??/??" & vbCrLf & _
"P;Pyyyy/m/d" & vbCrLf & _
"P;Pd\-mmm\-yy" & vbCrLf & _
"P;Pd\-mmm" & vbCrLf & _
"P;Pmmm\-yy" & vbCrLf & _
"P;Ph:mm\ AM/PM" & vbCrLf & _
"P;Ph:mm:ss\ AM/PM" & vbCrLf & _
"P;Ph:mm" & vbCrLf & _
"P;Ph:mm:ss" & vbCrLf & _
"P;Pyyyy/m/d\ h:mm" & vbCrLf & _
"P;Pmm:ss" & vbCrLf & _
"P;Pmm:ss.0" & vbCrLf & _
"P;P@" & vbCrLf & _
"P;P[h]:mm:ss" & vbCrLf & _
"P;P_ ""$""* #,##0_ ;;_ ""$""* \-#,##0_ ;;_ ""$""* ""-""_ ;;_ @_ " & vbCrLf & _
"P;P_ * #,##0_ ;;_ * \-#,##0_ ;;_ * ""-""_ ;;_ @_ " & vbCrLf & _
"P;P_ ""$""* #,##0.00_ ;;_ ""$""* \-#,##0.00_ ;;_ ""$""* ""-""??_ ;;_ @_ " & vbCrLf & _
"P;P_ * #,##0.00_ ;;_ * \-#,##0.00_ ;;_ * ""-""??_ ;;_ @_ " & vbCrLf & _
"P;P\$#,##0_);;\(\$#,##0\)" & vbCrLf & _
"P;P\$#,##0_);;[Red]\(\$#,##0\)" & vbCrLf & _
"P;P\$#,##0.00_);;\(\$#,##0.00\)" & vbCrLf & _
"P;P\$#,##0.00_);;[Red]\(\$#,##0.00\)" & vbCrLf & _
"P;Pm/d/yy" & vbCrLf & _
"P;Pyyyy""年""m""月""d""日""" & vbCrLf & _
"P;Ph""時""mm""分""" & vbCrLf & _
"P;Ph""時""mm""分""ss""秒""" & vbCrLf & _
"P;P[$-411]rr\.m\.d" & vbCrLf & _
"P;P[$-411]rr""年""m""月""d""日""" & vbCrLf & _
"P;Pyyyy""年""m""月""" & vbCrLf & _
"P;Pm""月""d""日""" & vbCrLf & _
"P;P[$-411]rr\.m\.d" & vbCrLf & _
"P;P[$-411]rr""年""m""月""d""日""" & vbCrLf & _
"P;P[$-411]rr""年""m""月""d""日"";;@" & vbCrLf & _
"P;Pyyyy/m/d;;@" & vbCrLf & _
"P;Pyyyy/mm/dd" & vbCrLf & _
"P;FＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;FＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;FＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;FＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M120" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M400" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M280" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M280;SB" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M320" & vbCrLf & _
"P;EHG創英角ｺﾞｼｯｸUB;M480" & vbCrLf & _
"P;EHG創英角ｺﾞｼｯｸUB;M360" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SU;L13" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SU;L37" & vbCrLf & _
"P;EHG創英角ｺﾞｼｯｸUB;M440" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200;SB;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200;SB;L13" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M360;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L10" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L61" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L21" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L53" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L11" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M300;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M260;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L57" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L9" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SB;L64" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;SI;L24" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L63" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220;L18" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M280" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M180" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M240" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M320" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M160" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M120" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M120" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M320" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M180" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M120" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M320" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M160" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M200" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M120" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M180" & vbCrLf & _
"P;EＭＳ Ｐゴシック;M220" & vbCrLf & _
"F;P0;DG0G8;M270" & vbCrLf & _
"B;Y84;X19;D0 0 83 18" & vbCrLf & _
"O;L;D;V0;K47;G100 0.001" & vbCrLf & _
"F;W1 1 36" & vbCrLf & _
"F;W2 2 26" & vbCrLf & _
"F;W3 3 27" & vbCrLf & _
"F;W4 4 30" & vbCrLf & _
"F;W5 5 0" & vbCrLf & _
"F;W6 6 17" & vbCrLf & _
"F;W7 7 9" & vbCrLf & _
"F;W8 8 5" & vbCrLf & _
"F;W9 9 37" & vbCrLf & _
"F;W10 10 5" & vbCrLf & _
"F;W11 11 45" & vbCrLf & _
"F;W12 12 14" & vbCrLf & _
"F;W13 13 15" & vbCrLf & _
"F;P0;FG0L;C1" & vbCrLf & _
"F;M420;R1" & vbCrLf & _
"F;M375;R2" & vbCrLf & _
"F;M570;R4" & vbCrLf & _
"F;M840;R5" & vbCrLf & _
"F;M375;R6" & vbCrLf & _
"F;M375;R7" & vbCrLf & _
"F;M345;R8" & vbCrLf & _
"F;M345;R9" & vbCrLf & _
"F;M345;R10" & vbCrLf & _
"F;M345;R11" & vbCrLf & _
"F;M345;R12" & vbCrLf & _
"F;M345;R13" & vbCrLf & _
"F;M345;R14" & vbCrLf & _
"F;M345;R15" & vbCrLf & _
"F;M345;R16" & vbCrLf & _
"F;M345;R17" & vbCrLf & _
"F;M345;R18" & vbCrLf & _
"F;M0;R19" & vbCrLf & _
"F;M0;R20" & vbCrLf & _
"F;M0;R21" & vbCrLf & _
"F;M0;R22" & vbCrLf & _
"F;M0;R23" & vbCrLf & _
"F;M0;R24" & vbCrLf & _
"F;M0;R25" & vbCrLf & _
"F;M345;R26" & vbCrLf & _
"F;M810;R27" & vbCrLf & _
"F;M810;R28" & vbCrLf & _
"F;M1080;R29" & vbCrLf & _
"F;M345;R37" & vbCrLf & _
"F;M345;R44" & vbCrLf & _
"F;M810;R47" & vbCrLf & _
"F;SM185;R49" & vbCrLf & _
"F;M810;R51" & vbCrLf & _
"F;M345;R53" & vbCrLf & _
"F;M345;R54" & vbCrLf & _
"F;M0;R79" & vbCrLf & _
"F;M0;R80" & vbCrLf & _
"F;M0;R81" & vbCrLf & _
"F;M0;R82" & vbCrLf & _
"F;M0;R83" & vbCrLf & _
"F;M0;R84" & vbCrLf & _
"NN;NPrint_Area;ER1C1:R77C13" & vbCrLf & _
"F;SM184;Y1;X1" & vbCrLf & _
"C;K""様式１""" & vbCrLf & _
"F;SM175;X2" & vbCrLf & _
"F;SM175;X3" & vbCrLf & _
"F;P0;FG0C;SM179;X4" & vbCrLf & _
"F;P0;FG0C;SM179;X5" & vbCrLf & _
"F;X6" & vbCrLf & _
"F;SM175;X7" & vbCrLf & _
"F;SM175;X8" & vbCrLf & _
"F;SM175;X9" & vbCrLf & _
"F;SM175;X10" & vbCrLf & _
"F;P52;FG0G;SLRTBM239;X11" & vbCrLf & _
"C;K""1 台帳作成（更新）年月日　注１""" & vbCrLf & _
"F;P52;FG0C;SLTBSM182;X12" & vbCrLf & _
"F;P52;FG0C;SRTBSM182;X13" & vbCrLf & _
"F;SM175;Y2;X1" & vbCrLf & _
"F;SM175;X2" & vbCrLf & _
"F;SM175;X3" & vbCrLf & _
"F;SM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SM175;X7" & vbCrLf & _
"F;SM175;X8" & vbCrLf & _
"F;SM175;X9" & vbCrLf & _
"F;SM175;X10" & vbCrLf & _
"F;P0;FG0L;SBM182;X11" & vbCrLf & _
"C;K""整　　　理　　　番　　　号""" & vbCrLf & _
"F;STBM0;X12" & vbCrLf & _
"F;STBM0;X13" & vbCrLf & _
"F;SM175;Y3;X1" & vbCrLf & _
"F;SM175;X2" & vbCrLf & _
"F;SM175;X3" & vbCrLf & _
"F;SM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SM175;X7" & vbCrLf & _
"F;SM175;X8" & vbCrLf & _
"F;SM175;X9" & vbCrLf & _
"F;SM185;X11" & vbCrLf & _
"C;K""（※　提出後に、別途、情報企画課で付番します。）""" & vbCrLf & _
"F;P0;FG0C;STBM197;X12" & vbCrLf & _
"F;P0;FG0C;STBM197;X13" & vbCrLf & _
"F;Y4;X1" & vbCrLf & _
"F;X2" & vbCrLf & _
"F;P0;FG0L;SM183;X3" & vbCrLf & _
"C;K""PC等管理台帳""" & vbCrLf & _
"F;P0;FG0C;SM183;X4" & vbCrLf & _
"F;P0;FG0C;SM183;X5" & vbCrLf & _
"F;P0;FG0C;SM183;X6" & vbCrLf & _
"F;P0;FG0C;SM183;X7" & vbCrLf & _
"F;SM183;X8" & vbCrLf & _
"F;SM183;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SLRTM240;X12" & vbCrLf & _
"C;K""ソフトウェア管理担当者""" & vbCrLf & _
"F;P0;FG0C;SLRTM175;X13" & vbCrLf & _
"C;K""使用者""" & vbCrLf & _
"F;Y5;X1" & vbCrLf & _
"F;P0;FG0L;SBM188;X2" & vbCrLf & _
"C;K""（PC等の所有が本学及び教職員の場合[教職員の私物のPC等を含む]）""" & vbCrLf & _
"F;P0;FG0C;SBM188;X3" & vbCrLf & _
"F;P0;FG0C;SBM188;X4" & vbCrLf & _
"F;P0;FG0C;SBM188;X5" & vbCrLf & _
"F;P0;FG0C;SBM188;X6" & vbCrLf & _
"F;P0;FG0C;SBM188;X7" & vbCrLf & _
"F;SM183;X8" & vbCrLf & _
"F;SM183;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;SLRTBM197;X12" & vbCrLf & _
"F;SLRTBM197;X13" & vbCrLf & _
"F;SM175;Y6;X1" & vbCrLf & _
"F;SLTM234;X2" & vbCrLf & _
"C;K""　「PC等」とは、Windows2000/XP/Vista/7やMacOS及びLinux、Unix、Solaris等のOSにより起動しているコンピュータやサーバなどの情報機器を指します""" & vbCrLf & _
"F;STM178;X3" & vbCrLf & _
"F;STM178;X4" & vbCrLf & _
"F;STM178;X5" & vbCrLf & _
"F;STM178;X6" & vbCrLf & _
"F;STM178;X7" & vbCrLf & _
"F;STM175;X8" & vbCrLf & _
"F;STM0;X9" & vbCrLf & _
"F;STM0;X10" & vbCrLf & _
"F;SRTM0;X11" & vbCrLf & _
"F;P0;FG0C;STM175;X12" & vbCrLf & _
"F;P0;FG0C;STM175;X13" & vbCrLf & _
"F;SM175;Y7;X1" & vbCrLf & _
"F;SLM230;X2" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM226;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y8;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""＜本台帳作成対象のPC等＞""" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""＜「３．インストールソフトウェア情報」への記入対象＞""" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y9;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　１）　公費及び寄付金で購入・リース・レンタルしているPC等は、全て、本台帳の作成対象となります""" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　１）　有償ソフトウェアのみを記入対象とします（＝無償ソフトウェアは、記入の必要はありません。）""" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y10;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　２）　教職員の私物のPC等が、以下の１つ以上の項目に該当する場合は、本台帳の作成対象となります""" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　２）　PC等を入手時に既にインストールされていた有償ソフトウェアは対象となります""" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y11;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　　　　　　ア　HINES(ハイネス)に接続する許可を得ている""" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""【重要：本調査票を保存及び添付ファイルとして提出する際の注意】""" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y12;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　　　　　　イ　研究・教育活動や業務のために本学に持ち込んでいる""" & vbCrLf & _
"F;SM178;X3" & vbCrLf & _
"F;SM178;X4" & vbCrLf & _
"F;SM178;X5" & vbCrLf & _
"F;SM178;X6" & vbCrLf & _
"F;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　１）　本台帳は、PC等毎に１つのExcelファイルとして作成ください""" & vbCrLf & _
"F;SM178;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y13;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　　　　　　ウ　公費や寄付金により購入したソフトウェアを１つ以上インストールしている""" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　２）　ファイル名は、「23 MACアドレス」と同じにしてください""" & vbCrLf & _
"F;SM178;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y14;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　３）　他大学や企業等から、貸与されているPC等は、当該PC等の受入教員の私物のPC等とみなします""" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　　　　例）　MACアドレスが　01-02-3C-01-05−AB　の場合""" & vbCrLf & _
"F;SM178;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y15;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　４）　入手経路が不明のPC等であっても、研究室や事務室等に置いている或いは同室等で使用しているものは本台帳の作成対象となります""" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　　　　　　　　　　　→ 　ファイル名は、　 01-02-3C-01-05−AB　　となります""" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y16;X1" & vbCrLf & _
"F;SLM235;X2" & vbCrLf & _
"C;K""　　５）　現在使用していなくこれからも使用する予定のないPC等で、且つ、様式５「廃棄及び内蔵ハードディスク全消去対象PC等調査」に記入のものは、""" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"C;K""　　　　　※　なお、台帳作成支援ツール（専用ページhttp://ict.general.hokudai.ac.jp/hp-file/index.html参照）を""" & vbCrLf & _
"F;SM178;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;SRM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;SM175;Y17;X1" & vbCrLf & _
"F;SLBM235;X2" & vbCrLf & _
"C;K""　　　　　本台帳の作成対象外となります""" & vbCrLf & _
"F;P0;FG0C;SBM178;X3" & vbCrLf & _
"F;P0;FG0C;SBM178;X4" & vbCrLf & _
"F;P0;FG0C;SBM178;X5" & vbCrLf & _
"F;P0;FG0C;SBM178;X6" & vbCrLf & _
"F;P0;FG0C;SBM178;X7" & vbCrLf & _
"F;SBM235;X8" & vbCrLf & _
"C;K""　　　　　　　使用した場合は、ファイル名は自動的に作成されますので当該ファイル名をそのままご利用ください""" & vbCrLf & _
"F;SBM0;X9" & vbCrLf & _
"F;SBM0;X10" & vbCrLf & _
"F;SRBM0;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y18;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y19;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y20;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y21;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y22;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y23;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y24;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SM175;Y25;X1" & vbCrLf & _
"F;SM244;X2" & vbCrLf & _
"F;P0;FG0C;SM178;X3" & vbCrLf & _
"F;P0;FG0C;SM178;X4" & vbCrLf & _
"F;P0;FG0C;SM178;X5" & vbCrLf & _
"F;P0;FG0C;SM178;X6" & vbCrLf & _
"F;P0;FG0C;SM178;X7" & vbCrLf & _
"F;SM235;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SDM180;Y26;X1" & vbCrLf & _
"C;K""１．設置場所等情報""" & vbCrLf & _
"F;SM237;X2" & vbCrLf & _
"C;K""（※　12 〜 14 は欠番）""" & vbCrLf & _
"F;SM175;X3" & vbCrLf & _
"F;SM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SM175;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;P0;FG0C;SM175;X12" & vbCrLf & _
"F;P0;FG0C;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTBM237;Y27;X1" & vbCrLf & _
"C;K""2 設置(使用)建物名　注２ :　※　私物のPC等にあっては、主な使用 :　　場所となっている建物名""" & vbCrLf & _
"F;P0;FG0L;SLTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBSM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTBM237;Y28;X1" & vbCrLf & _
"C;K""3 設置（使用）部屋番号等　注３ :　※　私物のPC等にあっては、主な使用 :　　場所となっている部屋番号等""" & vbCrLf & _
"F;P0;FG0L;SLTBSM175;X2" & vbCrLf & _
"F;P0;FG0L;STBSM175;X3" & vbCrLf & _
"F;P0;FG0L;SRTBSM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTM237;Y29;X1" & vbCrLf & _
"C;K""4 ソフトウェア管理担当者名　　　　注４ :　（当該PC等の管理者名） : :""" & vbCrLf & _
"F;P0;FG0L;SLRTSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""5 所属部局等名 :（教員以外の職員は、部課（室）等名を記入）""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRM228;Y30;X1" & vbCrLf & _
"C;K""※　私物のPC等にあっては、所有者名""" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""6 職名""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SLRTBM175;X8" & vbCrLf & _
"F;P0;FG0C;SLRTBM175;X9" & vbCrLf & _
"C;K""塗りつぶし箇所の説明""" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;P0;FG0L;X16" & vbCrLf & _
"F;P0;FG0L;X17" & vbCrLf & _
"F;P0;FG0L;X18" & vbCrLf & _
"F;P0;FG0L;X19" & vbCrLf & _
"F;SLRM175;Y31;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""7 職員番号　注５""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SLRTBSM0;X8" & vbCrLf & _
"F;P0;FG0L;SLRTBM0;X9" & vbCrLf & _
"C;K""記入する箇所です""" & vbCrLf & _
"F;SLRM0;Y32;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""8 内線番号""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRBM175;Y33;X1" & vbCrLf & _
"F;P0;FG0L;SLRBSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;N;K""9 メールアドレス""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SM237;Y34;X1" & vbCrLf & _
"C;K""<以下 10 〜 17 については当該PC等の使用者が教員以外の場合のみ記入ください。""" & vbCrLf & _
"F;P0;FG0L;SM175;X2" & vbCrLf & _
"F;P0;FG0L;SM175;X3" & vbCrLf & _
"F;P0;FG0L;SM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;P0;FG0L;SLRTM175;X8" & vbCrLf & _
"C;N;K""注１""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X9" & vbCrLf & _
"C;N;K""西暦年月日（西暦4桁/月2桁/日2桁の半角数字）で記入願います。""" & vbCrLf & _
"F;P0;FG0L;STM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM228;Y35;X1" & vbCrLf & _
"C;K""　なお、使用者が、学部学生、院生、聴講生等及び学外者の場合は記入の必要はありません>""" & vbCrLf & _
"F;P0;FG0L;SM175;X2" & vbCrLf & _
"F;P0;FG0L;SM175;X3" & vbCrLf & _
"F;P0;FG0L;SM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;P0;FG0L;SLRBM175;X8" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SLBM228;X9" & vbCrLf & _
"C;N;K""月や日が不明な場合、該当箇所は「99」と記入願います。全て不明の場合は一文字で「9」と記入願います""" & vbCrLf & _
"F;P0;FG0L;SBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTM237;Y36;X1" & vbCrLf & _
"C;K""10 PC等の使用者名""" & vbCrLf & _
"F;P0;FG0L;SLRTSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""11 職名""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRTM175;X8" & vbCrLf & _
"C;K""注２""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X9" & vbCrLf & _
"C;N;K""当該PC等を設置、または主に使用する建物の名称を記入願います""" & vbCrLf & _
"F;P0;FG0L;STBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRM175;Y37;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""12 ※　記入不要""" & vbCrLf & _
"F;P0;FG0L;SLRTBM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;SLRTBM175;X8" & vbCrLf & _
"C;K""注３""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X9" & vbCrLf & _
"C;N;K""当該PC等を設置、または主に使用する建物の階数及び部屋番号・部屋名称を記入願います""" & vbCrLf & _
"F;P0;FG0L;STBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;SM178;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM178;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SLRM175;Y38;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""13 ※　記入不要""" & vbCrLf & _
"F;P0;FG0L;SLRTBM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRTM175;X8" & vbCrLf & _
"C;K""注４""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X9" & vbCrLf & _
"C;N;K""ソフトウェア管理者とは、当該PC等の管理者を指し、教員または、課、室の専門員・専門職員及び係長のことです""" & vbCrLf & _
"F;P0;FG0L;STBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRM175;Y39;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""14 ※　記入不要""" & vbCrLf & _
"F;P0;FG0L;SLRTBM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRTBM175;X8" & vbCrLf & _
"C;K""注５""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X9" & vbCrLf & _
"C;N;K""8桁の職員番号（「SSOID」、「給与番号」と同じ番号です）を記入願います""" & vbCrLf & _
"F;P0;FG0L;STBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SM175;X16" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X17" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X18" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X19" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRM175;Y40;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""15 職員番号　注５""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;P0;FG0L;SLRTM175;X8" & vbCrLf & _
"C;K""注６""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X9" & vbCrLf & _
"C;N;K""LANカードを2つ以上持つようなPC等で、2つともHINES登録をしている場合は、""" & vbCrLf & _
"F;P0;FG0L;STM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRM175;Y41;X1" & vbCrLf & _
"F;P0;FG0L;SLRSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""16 内線番号""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;P0;FG0L;SM175;X5" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;P0;FG0L;SLRBM175;X8" & vbCrLf & _
"F;P0;FG0L;SLBM228;X9" & vbCrLf & _
"C;N;K""２つめのMACアドレスを記入願います。３つめからは必要ありません""" & vbCrLf & _
"F;P0;FG0L;SBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRBM175;Y42;X1" & vbCrLf & _
"F;P0;FG0L;SLRBSM175;X2" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;K""17 メールアドレス""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRTBM237;X8" & vbCrLf & _
"C;K""注７""" & vbCrLf & _
"F;P0;FG0L;SLBM228;X9" & vbCrLf & _
"C;N;K""Linuxの場合、ディストリービューション（配布形態）を記入願います〔例　Linux Fedora、Linux Ubuntuなど〕""" & vbCrLf & _
"F;P0;FG0L;STBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;Y43;X1" & vbCrLf & _
"F;P0;FG0L;SM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SM175;X3" & vbCrLf & _
"F;SM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;P0;FG0R;SM175;X6" & vbCrLf & _
"F;SLRTM0;X8" & vbCrLf & _
"C;K""注８""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X9" & vbCrLf & _
"C;K""PC等の種類は以下から選択願います""" & vbCrLf & _
"F;P0;FG0L;STM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SDM180;Y44;X1" & vbCrLf & _
"C;K""２．PC等情報""" & vbCrLf & _
"F;SM175;X2" & vbCrLf & _
"F;SM175;X3" & vbCrLf & _
"F;SM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;SLRBM0;X8" & vbCrLf & _
"F;P0;FG0L;SLBM228;X9" & vbCrLf & _
"C;K""1.一般PC　2.サーバ　3.ワークステーション　4.その他""" & vbCrLf & _
"F;P0;FG0L;SBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRTBM237;Y45;X1" & vbCrLf & _
"C;K""18 機種名""" & vbCrLf & _
"F;P0;FG0L;SLTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBSM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM181;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTM237;X8" & vbCrLf & _
"C;K""注９""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X9" & vbCrLf & _
"C;K""入手経路は以下から選択願います""" & vbCrLf & _
"F;P0;FG0L;STM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRTBM237;Y46;X1" & vbCrLf & _
"C;K""19 メーカ名""" & vbCrLf & _
"F;P0;FG0L;SLTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBSM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRBM237;X8" & vbCrLf & _
"F;P0;FG0L;SLBM228;X9" & vbCrLf & _
"C;K""1.公費や寄附金等による購入・レンタル・リース　2.私費による購入（私物）　3.寄附　4.譲り受け　5.その他　6.不明""" & vbCrLf & _
"F;P0;FG0L;SBM175;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SBM175;X11" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRBM175;X12" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X15" & vbCrLf & _
"F;SLRTBM237;Y47;X1" & vbCrLf & _
"C;K""20 PC等の種類　注８""" & vbCrLf & _
"F;SLTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTBM237;X3" & vbCrLf & _
"C;N;K""21 PC等の種類（その他） :　※　20で、「4.その他」を選択　 :　　した場合のみ記入ください""" & vbCrLf & _
"F;SRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM181;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;SM175;X13" & vbCrLf & _
"F;X14" & vbCrLf & _
"F;X15" & vbCrLf & _
"F;X16" & vbCrLf & _
"F;X17" & vbCrLf & _
"F;X18" & vbCrLf & _
"F;X19" & vbCrLf & _
"F;SLRTBM237;Y48;X1" & vbCrLf & _
"C;K""22 IPアドレス""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X13" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;Y49;X1" & vbCrLf & _
"C;K""23 MACアドレス""" & vbCrLf & _
"F;P0;FG0L;SLRTBM185;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SLRTBM237;X3" & vbCrLf & _
"C;N;K""24 MACアドレス2　注6""" & vbCrLf & _
"F;P0;FG0L;SLRTBSM185;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM0;X8" & vbCrLf & _
"F;SM0;X9" & vbCrLf & _
"F;SLRTBM237;Y50;X1" & vbCrLf & _
"C;K""25 OS名　注７""" & vbCrLf & _
"F;P0;FG0L;SLTBM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;STBM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SRTBM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X13" & vbCrLf & _
"F;SLRTBM237;Y51;X1" & vbCrLf & _
"C;K""26 入手経路　注９""" & vbCrLf & _
"F;SLTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SLRTBM241;X3" & vbCrLf & _
"C;N;K""27入手経路（その他） :　※　26 で、「5.その他」を選択 :     した場合のみ記入ください""" & vbCrLf & _
"F;SLRTBSM175;X4" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM181;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;SLRTBM237;Y52;X1" & vbCrLf & _
"C;N;K""28 入手年月日　注１""" & vbCrLf & _
"F;P30;FG0L;SLRTBSM175;X2" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM181;X3" & vbCrLf & _
"F;SM181;X4" & vbCrLf & _
"F;P0;FG0R;SM175;X5" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0L;SM175;X6" & vbCrLf & _
"F;SM175;X8" & vbCrLf & _
"F;SM175;Y53;X1" & vbCrLf & _
"F;SM181;X2" & vbCrLf & _
"F;P0;FG0R;SM175;X3" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM181;X4" & vbCrLf & _
"F;P0;FG0R;SM175;X5" & vbCrLf & _
"F;P0;FG0L;SM175;X6" & vbCrLf & _
"C;N" & vbCrLf & _
"F;P0;FG0R;SM175;X7" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM175;X8" & vbCrLf & _
"F;P0;FG0L;SM175;X9" & vbCrLf & _
"C;N" & vbCrLf & _
"F;SM178;X10" & vbCrLf & _
"C;N" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;SDM180;Y54;X1" & vbCrLf & _
"C;K""３．インストールソフトウェア情報""" & vbCrLf & _
"F;SM237;X2" & vbCrLf & _
"C;K""（※　31は欠番）""" & vbCrLf & _
"F;X3" & vbCrLf & _
"F;SBM175;X4" & vbCrLf & _
"F;SM175;X5" & vbCrLf & _
"F;SM175;X6" & vbCrLf & _
"F;SM175;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;SM175;X13" & vbCrLf & _
"F;P0;FG0C;SLTM228;Y55;X1" & vbCrLf & _
"C;K""29　ソフトウェア情報""" & vbCrLf & _
"F;P0;FG0C;STM175;X2" & vbCrLf & _
"F;P0;FG0C;SRTM175;X3" & vbCrLf & _
"F;SLRTM237;X4" & vbCrLf & _
"C;K""30 ソフトウェアの""" & vbCrLf & _
"F;SRTBM175;X5" & vbCrLf & _
"C;K""?ソフトウェアのアンインストール年月日""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X6" & vbCrLf & _
"C;K""32 企画部情報企画課が管理""" & vbCrLf & _
"F;P0;FG0L;SRTM175;X7" & vbCrLf & _
"F;SLTM228;X8" & vbCrLf & _
"C;K""33 ソフトウェア入手経路""" & vbCrLf & _
"F;P0;FG0C;SRTM175;X9" & vbCrLf & _
"F;P0;FG0L;SLTM228;X10" & vbCrLf & _
"C;K""34 当該ソフトウェアのライセンス証書の所有状況""" & vbCrLf & _
"F;P0;FG0L;STM175;X11" & vbCrLf & _
"F;P0;FG0L;STM175;X12" & vbCrLf & _
"F;P0;FG0L;SRTM175;X13" & vbCrLf & _
"F;SLM228;Y56;X1" & vbCrLf & _
"C;K""　　※　有償ソフトウェアのみを記入対象としていますので、無償ソフトウェア（フリーウェアなど）""" & vbCrLf & _
"F;P0;FG0C;SM175;X2" & vbCrLf & _
"F;P0;FG0C;SRM175;X3" & vbCrLf & _
"C;X4;K""インストール年月日　注１""" & vbCrLf & _
"F;SRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""しているインストールメディア等""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLM228;X8" & vbCrLf & _
"C;K""※　32に「1」を入力している場合は、""" & vbCrLf & _
"F;P0;FG0C;SRM175;X9" & vbCrLf & _
"F;P0;FG0L;SLM228;X10" & vbCrLf & _
"C;K""※　なお、当該ソフトウェア分のライセンス証書であるかについては、ソフト""" & vbCrLf & _
"F;P0;FG0L;SM175;X11" & vbCrLf & _
"F;P0;FG0L;SM175;X12" & vbCrLf & _
"F;P0;FG0L;SRM175;X13" & vbCrLf & _
"F;SLM228;Y57;X1" & vbCrLf & _
"C;K""　　　　は記入する必要はありません""" & vbCrLf & _
"F;P0;FG0C;SM175;X2" & vbCrLf & _
"F;P0;FG0C;SRM175;X3" & vbCrLf & _
"F;SRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""によりインストールした""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLM237;X8" & vbCrLf & _
"C;K""　　記入の必要はありません""" & vbCrLf & _
"F;P0;FG0C;SRM175;X9" & vbCrLf & _
"F;P0;FG0L;SLM228;X10" & vbCrLf & _
"C;K""　　ウェアに梱包されたライセンス証書等により確認してください""" & vbCrLf & _
"F;P0;FG0L;SM175;X11" & vbCrLf & _
"F;P0;FG0L;SM175;X12" & vbCrLf & _
"F;P0;FG0L;SRM175;X13" & vbCrLf & _
"F;SLM228;Y58;X1" & vbCrLf & _
"C;K""　　※　PC等を入手時に既にインストールされていた有償ソフトウェアは記入の対象とします""" & vbCrLf & _
"F;P0;FG0C;SM175;X2" & vbCrLf & _
"F;P0;FG0C;SRM175;X3" & vbCrLf & _
"F;SRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""ソフトウェアについて""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;P0;FG0C;SLM175;X8" & vbCrLf & _
"F;P0;FG0C;SRM175;X9" & vbCrLf & _
"F;P0;FG0L;SLM228;X10" & vbCrLf & _
"C;K""※　32に「1」を入力している場合は、記入の必要はありません""""" & vbCrLf & _
"F;P0;FG0L;SM175;X11" & vbCrLf & _
"F;P0;FG0L;SM175;X12" & vbCrLf & _
"F;P0;FG0L;SRM175;X13" & vbCrLf & _
"F;P0;FG0C;SLRTM228;Y59;X1" & vbCrLf & _
"F;P0;FG0C;SLRTM228;X2" & vbCrLf & _
"F;P0;FG0C;SLRTM228;X3" & vbCrLf & _
"F;SLRM228;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"C;K""アンインストール年月日　注１""" & vbCrLf & _
"F;P0;FG0L;SLTM228;X6" & vbCrLf & _
"F;P0;FG0L;SRTM175;X7" & vbCrLf & _
"F;SLRTM228;X8" & vbCrLf & _
"F;SLRTM181;X9" & vbCrLf & _
"C;K""１．プリインストール１""" & vbCrLf & _
"F;SLTM228;X10" & vbCrLf & _
"F;P0;FG0L;SLTM181;X11" & vbCrLf & _
"C;K""１．当該ソフトウェア分のライセンス証書が手元にある""" & vbCrLf & _
"F;P0;FG0L;STM185;X12" & vbCrLf & _
"F;P0;FG0L;SRTM185;X13" & vbCrLf & _
"F;P47;FG0C;SLRM228;Y60;X1" & vbCrLf & _
"C;K""29-1""" & vbCrLf & _
"F;P47;FG0C;SLRM228;X2" & vbCrLf & _
"C;K""29-2""" & vbCrLf & _
"F;P47;FG0C;SLRM228;X3" & vbCrLf & _
"C;K""29-3""" & vbCrLf & _
"F;SLRM228;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""以下に該当するソフトウェア""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLRM238;X9" & vbCrLf & _
"C;K""　　（確実に、当該PC等の入手時にインストール""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM228;Y61;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""の場合は「1」を記入願います""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLRM238;X9" & vbCrLf & _
"C;K""　　されていたソフトウェア）""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""２．ライセンス証書は紛失したが、台帳作成（更新）時において確実に当該ソフトウェア分の""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y62;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　ライセンスを所有している""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y63;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM228;X6" & vbCrLf & _
"C;K""・　企画部情報企画課のインス""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""２．プリインストール２""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y64;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　トールメディアを借りて、イン""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLRM242;X9" & vbCrLf & _
"C;K""　　（当該PC等の入手時にインストールされて""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""３．ライセンス証書は所持していないが、PC等を入手した時点で、既にインストールされていた""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y65;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM0;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　ストールしたソフトウェア（マ""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"F;SLRM242;X9" & vbCrLf & _
"C;K""　　いた可能性が高いソフトウェア）""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　ソフトである（＝プリインストールソフトウェア）""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y66;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM0;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　イクロソフト、アドビ、ロー""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"C;K""選""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"C;K""選""" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM228;Y67;X1" & vbCrLf & _
"C;K""ソフトウェア名称""" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"C;K""バージョン""" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"C;K""製造メーカ""" & vbCrLf & _
"F;SLRM175;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　タス）""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"C;K""択""" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""３．当該PC等の入手後に、別途、公費や寄附金""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"C;K""択""" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""４．部局等で一括購入したソフトウェアライセンスを使用""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y68;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM175;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM228;X8" & vbCrLf & _
"C;K""肢""" & vbCrLf & _
"F;SLRM238;X9" & vbCrLf & _
"C;K""　　により購入・レンタル・リース""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"C;K""肢""" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""※　本項でいう「一括購入」とは、ライセンス（ソフトウェア商品を使う権利）をまとめて購入すること""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y69;X1" & vbCrLf & _
"F;SLRM0;X2" & vbCrLf & _
"C;K""＜注意＞""" & vbCrLf & _
"F;SLRM0;X3" & vbCrLf & _
"C;K""＜注意＞""" & vbCrLf & _
"F;SLRM228;X4" & vbCrLf & _
"C;K""＜注意＞""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"C;K""・　企画部情報企画課宛に""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　で余分なパッケージやマニュアルまで購入する必要が無いという購入方法のことであり、パソコ""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y70;X1" & vbCrLf & _
"F;SLRM0;X2" & vbCrLf & _
"C;K""台帳作成支援ツールで取得""" & vbCrLf & _
"F;SLRM0;X3" & vbCrLf & _
"C;K""台帳作成支援ツールで取得""" & vbCrLf & _
"F;SLRM228;X4" & vbCrLf & _
"C;K""OSの機能や台帳作成支援ツール""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　申込し、インストールしたウ""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""４．私費（私物）""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　ンの台数分のパッケージを購入すると意味ではありませんのでご注意ください。""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y71;X1" & vbCrLf & _
"F;SLRM0;X2" & vbCrLf & _
"C;K""できなかった場合は、記入の""" & vbCrLf & _
"F;SLRM0;X3" & vbCrLf & _
"C;K""できなかった場合は、記入の""" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"C;K""を利用して調べた場合は、インス""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　イルス対策のソフトウェア""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""※　本項を選択した場合は、ソフトウェア購入責任者（様式４「一括購入ソフトウェア管理台帳」の""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y72;X1" & vbCrLf & _
"F;SLRM0;X2" & vbCrLf & _
"C;K""必要はありません""" & vbCrLf & _
"F;SLRM0;X3" & vbCrLf & _
"C;K""必要はありません""" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"C;K""トール年月日の部分に当該ソフト""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　（トレンドマイクロ、シマン""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""５．（欠番）""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　「2購入責任者名」）に、当該ソフトウェアライセンス使用者に係る情報（4に記入の情報、5所属""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y73;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"C;K""ウェアの更新年月日が表示されて""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM241;X6" & vbCrLf & _
"C;K""　　テック）""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　部局等名、7職員番号、職区分(様式４の18を参照)、8内線番号、25MACアドレス）を報告を""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y74;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM237;X4" & vbCrLf & _
"C;K""いる場合が有りますので注意ください""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""６．譲り受け""" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""　　願います。""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y75;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM0;X4" & vbCrLf & _
"C;K""また、台帳作成支援ツールで取得""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"C;K""・　J-Lisence加入分（企画部""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"F;SLM228;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y76;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM0;X4" & vbCrLf & _
"C;K""できなかった場合は、記憶の範囲""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"C;K""　　情報企画課宛申込分）の一""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"C;K""７．他のソフトウェアをコピーした""" & vbCrLf & _
"F;SLM175;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"C;K""５．当該ソフトウェア分のライセンスを所有しているか不明""" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRM175;Y77;X1" & vbCrLf & _
"F;P0;FG0C;SLRM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRM175;X3" & vbCrLf & _
"F;SLRM175;X4" & vbCrLf & _
"C;K""で記入願います""" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLM237;X6" & vbCrLf & _
"C;K""　　太郎等のジャストシステム""" & vbCrLf & _
"F;P0;FG0L;SRM175;X7" & vbCrLf & _
"F;SLRM175;X8" & vbCrLf & _
"F;SLRM181;X9" & vbCrLf & _
"F;SLM175;X10" & vbCrLf & _
"F;P0;FG0L;SLM181;X11" & vbCrLf & _
"F;P0;FG0L;SM185;X12" & vbCrLf & _
"F;P0;FG0L;SRM185;X13" & vbCrLf & _
"F;P0;FG0C;SLRBM175;Y78;X1" & vbCrLf & _
"F;P0;FG0C;SLRBM175;X2" & vbCrLf & _
"F;P0;FG0C;SLRBM175;X3" & vbCrLf & _
"F;SLRBM175;X4" & vbCrLf & _
"F;SLRTM175;X5" & vbCrLf & _
"F;P0;FG0L;SLBM237;X6" & vbCrLf & _
"C;K""　　ソフトウェア""" & vbCrLf & _
"F;P0;FG0L;SRBM175;X7" & vbCrLf & _
"F;SLRBM175;X8" & vbCrLf & _
"F;SLRBM181;X9" & vbCrLf & _
"C;K""８．不明""" & vbCrLf & _
"F;SLBM175;X10" & vbCrLf & _
"F;P0;FG0L;SLBM181;X11" & vbCrLf & _
"C;K""６．当該ソフトウェア分のライセンスを所有していない""" & vbCrLf & _
"F;P0;FG0L;SBM185;X12" & vbCrLf & _
"F;P0;FG0L;SRBM185;X13" & vbCrLf & _
"F;Y79;X1" & vbCrLf & _
"F;X2" & vbCrLf & _
"F;X3" & vbCrLf & _
"F;X4" & vbCrLf & _
"F;X5" & vbCrLf & _
"F;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
"F;Y80;X1" & vbCrLf & _
"F;X2" & vbCrLf & _
"F;X3" & vbCrLf & _
"F;X4" & vbCrLf & _
"F;X5" & vbCrLf & _
"F;X6" & vbCrLf & _
"F;X7" & vbCrLf & _
"F;X8" & vbCrLf & _
"F;X9" & vbCrLf & _
"F;X10" & vbCrLf & _
"F;X11" & vbCrLf & _
"F;X12" & vbCrLf & _
"F;X13" & vbCrLf & _
vbCrLf )

' SLKファイルヘッダー部書き込み
objSlkfil.WriteLine strSlktxt

strSlklno=86                                                          ' slkファイルのソフトウエア表示の行設定（最初は23）
Set objCsvfiN = objFsystm.OpenTextFile(strTmpfld & "\" & strCsvfiN ,ForReading)
Do Until objCsvfiN.AtEndOfStream
	strSlksft = 1
	strSlkook = 0
	strSlkcli = objCsvfiN.ReadLine                                ' 入力ファイルを1行読み込む
'作成する管理台帳に含まない項目を指定
	For strSlklop = 0 to 19
		strSlksft = strSlksft + InStr(strSlkcli , strSlknoa(strSlklop))
	Next
If strSlksft < 20 Then                                                ' この数字は上の含まない項目の行数に合わせること
	strSlkkom = Split(strSlkcli, ",")                             ' まず１行読む
	strSlkkey = strSlkkom(0)                                      ' キー（macadd）
	strSlkgro = strSlkkom(1)                                      ' グループ（soft・LAN等）
	strSlkitm = strSlkkom(2)                                      ' アイテム（Application・Adapter等）
	strSlksim = strSlkkom(3)                                      ' サブアイテム（ソフト名・サブ項目等）
	strSlkcts = strSlkkom(4)                                      ' 内容（ヴァージョン・OS名等）
	strSlkunt = strSlkkom(5)                                      ' unit（単位とか）
	strSlkday = strSlkkom(6)                                      ' 入力日付

' ここからは読み出した内容によって変わるもの
' 日付、時刻
If strSlkgro = "Create" Then
	strSlkout = Array("F;Y1;P0;FG0R;X12" & vbcrlf & "C;K""" & strSlksim & """")
	strSlkook=1
End If
' IPアドレス
If strSlkitm = "Adapter" and strSlksim = "IPアドレス" Then
	strSlkout = Array("C;Y48;X2;K""" & strSlkcts & """")
	strSlkook=1
End If
If strSlkitm = "Adapter2" and strSlksim = "IPアドレス" Then
	strSlkout = Array("C;Y48;X4;K""" & strSlkcts & """")
	strSlkook=1
End If
' MACアドレス
If strSlkitm = "Adapter" and strSlksim = "MACアドレス" Then
	strSlkout = Array("C;Y49;X2;K""" & strSlkcts & """")
	strSlkook=1
End If
If strSlkitm = "Adapter2" and strSlksim = "MACアドレス" Then
	strSlkout = Array("C;Y49;X4;K""" & strSlkcts & """")
	strSlkook=1
End If
' OS
If strSlkitm = "Windows" and strSlksim = "Version" Then
	strSlkout = Array("C;Y50;X2;K""" & strSlkcts , strSlkunt & """")
	strSlkcts2 = strSlkcts
	strSlkook=1
End If
' ソフトウエア名等
If strSlkitm = "Application" Then
	If InStr(strSlkunt,":\") <> 0 Then
	strSlkunt = ""
	End If
	objSlkfil.WriteLine     "F;SLRTBM235;Y" & strSlklno & ";X1" & vbcrlf & _
				"F;SRTBM235;X2" & vbcrlf & _
				"F;SRTBM235;X3"  & vbcrlf & _
				"F;SRTBM235;X4" & vbcrlf & _
				"F;SRTBM235;X5" & vbcrlf & _
				"F;STBM235;X6" & vbcrlf & _
				"F;SRTBM235;X7" & vbcrlf & _
				"F;SRTBM235;X8" & vbcrlf & _
				"F;SRTBM235;X9" & vbcrlf & _
				"F;SRTBM235;X10" & vbcrlf & _
				"F;STBM235;X11" & vbcrlf & _
				"F;STBM235;X12" & vbcrlf & _
				"F;SRTBM235;X13"
	strSlkout = Array( "C;Y" & strSlklno & ";X1;K""" & strSlksim & """")          'ソフトウエア名
	If strSlkcts <> "" Then
		objSlkfil.WriteLine "C;Y" & strSlklno & ";X2;K""" & strSlkcts & """"  'バージョン
	End If
	If strSlkunt <> "" Then
		objSlkfil.WriteLine "C;Y" & strSlklno & ";X3;K""" & strSlkunt & """"  'ベンダー名
	End If
	If strSlkday <> "" Then
		objSlkfil.WriteLine "C;Y" & strSlklno & ";X4;K""" & left(strSlkday,4) & "/" &  mid(strSlkday,5,2) & "/" & right(strSlkday,2) & """"  'インストール日
	End If
	strSlklno=strSlklno+1                                         ' 行番号を1増やす
	strSlkook=1
End If
If strSlkook=1 Then
	objSlkfil.WriteLine Join(strSlkout, " ")                      ' Join関数で連結、連結文字" "出力ファイルに書き出す
End If
End If
Loop
'OS項目は42行目（ソフトウエアの一番上）にくる
objSlkfil.WriteLine	"F;SLRTBM235;Y85;X1" & vbcrlf & _ 
			"F;SRTBM235;X2" & vbcrlf & _
			"F;SRTBM235;X3"  & vbcrlf & _
			"F;SRTBM235;X4" & vbcrlf & _
			"F;SRTBM235;X5" & vbcrlf & _
			"F;STBM235;X6" & vbcrlf & _
			"F;SRTBM235;X7" & vbcrlf & _
			"F;SRTBM235;X8" & vbcrlf & _
			"F;SRTBM235;X9" & vbcrlf & _
			"F;SRTBM235;X10" & vbcrlf & _
			"F;STBM235;X11" & vbcrlf & _
			"F;STBM235;X12" & vbcrlf & _
			"F;SRTBM235;X13"
objSlkfil.WriteLine "C;Y85;X1;K""" & strSlkcts2 & """"        'OS名
objSlkfil.WriteLine "C;Y85;X2;K""" & strWinver & """"         'OSバージョン
objSlkfil.WriteLine "C;Y85;X3;K""" & strWinMan & """"         'ベンダー名
objSlkfil.WriteLine "C;Y85;X4;K""" & left(syrWinIdy,4) & "/" &  mid(syrWinIdy,5,2) & "/" & right(syrWinIdy,2) & """"         'インストール日
objSlkfil.WriteLine "E"

'ファイルクローズ
objCsvfiN.close
objSlkfil.close
'objNamfil.close
objPcvlog.Write time & ":SLK生成       :終了" & vbcrlf
Else
objPcvlog.Write time & ":SLK生成       :未生成" & vbcrlf
End If

objPcvlog.Write time & ":正常終了      :" & vbcrlf
objPcvlog.Close

'結果ファイルをスクリプト起動ドライブ内の指定位置にコピー
If Not objFsystm.FolderExists(strScdata) Then
	objFsystm.CreateFolder(strScdata)
End If
objFsystm.CopyFile strTmpfld & "\" & strCsvfiN , strScdata & "\" & strCsvfil
objFsystm.CopyFile strTmpfld & "\" & "appinfo.log" , strScdata & "\" & strMacadr & ".log"
objFsystm.CopyFile objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk" , strScdata & "\" & strMacadr & "_w.slk"

		strOkmsg1 = "正常終了しました。引き続きライセンス等の入力をお願い致します"
	msgbox strOkmsg1 & vbcrlf & " " ,64,"インストールソフトウエア情報表示プログラム"                    ' iniファイルMsgSilent=yesがなければ内容表示

' 元のディレクトリに戻り作業フォルダ削除
	objShells.CurrentDirectory = strScfold
If strTmpdel = "Yes" Then
On Error Resume Next
	objFsystm.DeleteFolder strTmpfld , True
If Err.Number <> 0 Then
	strErrcod = "code:040 正常終了しましたが一時フォルダの削除ができません"
	subError
	WScript.Quit
End If
On Error Goto 0
End If


' Excelがインストールされているか調べ、存在したらExcel起動
On Error Resume Next
'32bit対応
	objShells.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\Excel\") 
    If Err.Number = -2147024894 Then
	strExcelok = strExcelok + 0
    ElseIf Err.Number = 0 Then
	strExcelok = strExcelok + 1
    End If
    Err.Clear
'64bit対応
	objShells.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\Excel\")
    If Err.Number = -2147024894 Then
	strExcelok = strExcelok + 0
    ElseIf Err.Number = 0 Then
	strExcelok = strExcelok + 1
    End If
    Err.Clear
On Error Goto 0

    If strExcelok = 0 Then
        Msgbox "表計算ソフトウエアなどでデスクトップの「" & strMacadr & "_w.slk」ファイルを開いてください。",48,"インストールソフトウエア情報表示プログラム" 
    Else
	'存在する場合Excel起動
    objShells.Run "rundll32.exe url.dll,FileProtocolHandler " & objShells.SpecialFolders("Desktop") & "\" & strMacadr & "_w.slk" , 3 , False
    End If

'動作終了
WScript.Quit

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
'Adobe・ジャストシステム社アプリケーション用レジストリ検索（この部分のみエラーレジュームになってることを注意）
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
Sub Subreg
On Error Resume Next

'ジャストシステムアプリケーション情報
Set objJstfil = objFsystm.OpenTextFile(strTmpfld & "\just.txt",ForWriting,True)
'一太郎１０
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\10.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",10.0,株式会社ジャストシステム,," & vbCrLf
'一太郎１１
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\11.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",11.0,株式会社ジャストシステム,," & vbCrLf
'一太郎１２
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\12.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",12.0,株式会社ジャストシステム,," & vbCrLf
'一太郎１３
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\13.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",13.0,株式会社ジャストシステム,," & vbCrLf
'一太郎2004
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\14.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",14.0,株式会社ジャストシステム,," & vbCrLf
'一太郎2005
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\15.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",15.0,株式会社ジャストシステム,," & vbCrLf
'一太郎2006
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\16.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",16.0,株式会社ジャストシステム,," & vbCrLf
'一太郎2007
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\TARO\17.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",17.0,株式会社ジャストシステム,," & vbCrLf
'花子１０
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\10.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",10.0,株式会社ジャストシステム,," & vbCrLf
'花子１１
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\11.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",11.0,株式会社ジャストシステム,," & vbCrLf
'花子１２
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\12.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",12.0,株式会社ジャストシステム,," & vbCrLf
'花子１３
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\13.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",13.0,株式会社ジャストシステム,," & vbCrLf
'花子2004
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\14.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",14.0,株式会社ジャストシステム,," & vbCrLf
'花子2005
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\15.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",15.0,株式会社ジャストシステム,," & vbCrLf
'花子2006
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\16.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",16.0,株式会社ジャストシステム,," & vbCrLf
'花子2007
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\HANAKO\17.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",17.0,株式会社ジャストシステム,," & vbCrLf
'三四郎８
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\SANSHIRO\8.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",8.0,株式会社ジャストシステム,," & vbCrLf
'三四郎９
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\SANSHIRO\9.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",9.0,株式会社ジャストシステム,," & vbCrLf
'三四郎2005
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\SANSHIRO\10.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",10.0,株式会社ジャストシステム,," & vbCrLf
'三四郎2007
objJstfil.Write strMacadr & ",Soft,Application," & Replace(objShells.RegRead( _
	"HKEY_LOCAL_MACHINE\SOFTWARE\Justsystem\SANSHIRO\11.0\SETUP\ProductName\Detail")," 株式会社ジャストシステム","") & ",11.0,株式会社ジャストシステム,," & vbCrLf
objJstfil.Close
End Sub

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' WindowsVersion検索（この部分のみエラーレジュームになってることを注意）
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
Sub SubWinVer
On Error Resume Next
For Each objOSytm in objOSeset
	strWinNam = objOSytm.Caption               ' OS名称取得(Vistaは(R)やTMでエラーが出るのでレジストリから取得)
	If InStr(strWinNam,"Vista") <> 0 Then
		strWinNam = objShells.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
	End If
	strWinNam = strWinNam & " (Build " & objOSytm.BuildNumber & ") "          ' BuildNumber
	strWinNam = Replace(strWinNam & objOSytm.CSDVersion,"Service Pack","SP")  ' SP情報

	strWinPid = objOSytm.SerialNumber         ' シリアルナンバー取得(5-3-7-5)
	strWinSps = objOSytm.SystemDirectory      ' システムディレクトリ取得
	strWinver = objOSytm.Version              ' OSバージョン取得
	strWinMan = objOSytm.Manufacturer         ' ベンダー名取得
	syrWinIdy = left(objOSytm.InstallDate,8)  ' OSインストール日取得
Next





End Sub

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' レジストリアンインストール情報からソフトウエア名・バージョンなどを取得
' （この部分のみエラーレジュームになってることを注意）
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
Sub subAppname()
On Error Resume Next

Dim strSubkey0
Dim objRegKey
Dim strRegKey1
Dim strRegKey2
Dim strSubKey1
Dim strSubKey2
Dim strAppNam
Dim strAppVer
Dim strAppVem
Dim strAppInd
Dim strAppSyc
Dim strAppCsv
Dim strPcvcsv

'CSV元データ作成(MACADDRESS"x".csv)
	Set objApmfil = objFsystm.OpenTextFile(strTmpfld & "\" & strMacadr & "x.csv",ForWriting,True)
'レジストリ収集開始
	Set objRegKey=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
'レジストリサブキー取得(win32)
	strRegKey1="SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall"
	objRegKey.EnumKey &H80000002, strRegKey1 , strSubKey1
'レジストリサブキー取得(win64の32bitアプリ)
	strRegKey2="SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall"
	objRegKey.EnumKey &H80000002, strRegKey2 , strSubKey2

'先にMacaddress等のデータ書き込む
	strPcvcsv = ("Key,Group,Item,SubItem,Contents,Unit,Renewalday" & vbcrlf & _
	strMacadr & ",Create,DateTime," & date & "," & time & ",," & date & vbcrlf & _
	strMacadr & ",Soft,Windows,Version,"    & strWinNam & ",," & date & vbcrlf & _
	strMacadr & ",Soft,Windows,ProductID,"  & strWinPid & ",," & date & vbcrlf & _
	strMacadr & ",Soft,Windows,SystemPath," & strWinSps & ",," & date & vbcrlf & _
	strMacadr & ",LAN,Adapter,IPアドレス,"  & strIPadrs & ",," & date & vbcrlf & _
	strMacadr & ",LAN,Adapter,MACアドレス," & strMacadr & ",," & date & vbcrlf)

'レジストリサブキー検出(win32)
For Each strSubkey0 In strSubKey1
	strAppNam = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey1 & "\" & strSubkey0 & "\DisplayName") ,",",".")
	strAppVer = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey1 & "\" & strSubkey0 & "\DisplayVersion")  ,",",".")
	strAppVem = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey1 & "\" & strSubkey0 & "\Publisher")  ,",",".")
	strAppInd = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey1 & "\" & strSubkey0 & "\InstallDate")  ,"/","")
	strAppSyc =         objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey1 & "\" & strSubkey0 & "\SystemComponent")

'ウイルスバスター Corp.クライアント対応
	If strAppNam = "ウイルスバスター Corp.クライアント" Then
		strAppInd = objShells.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\InstDate")
	End If

'ソフトウエア名が空白またはSystemComponentキーが"1"ならば書き込まない
    If strAppNam <> "" and strAppSyc <> "1" Then
        strAppCsv = strMacadr & "," & "Soft,Application," & strAppNam & "," & strAppVer & "," & strAppVem & "," & strAppInd & vbcrlf
        strPcvcsv = strPcvcsv & strAppCsv
    End If
	strAppNam = ""
	strAppVer = ""
	strAppVem = ""
	strAppInd = ""
	strAppSyc = ""
	strAppCsv = ""
Next

'レジストリサブキー検出(win64の32bitアプリ)
For Each strSubkey0 In strSubKey2
	strAppNam = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey2 & "\" & strSubkey0 & "\DisplayName") ,",",".")
	strAppVer = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey2 & "\" & strSubkey0 & "\DisplayVersion")  ,",",".")
	strAppVem = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey2 & "\" & strSubkey0 & "\Publisher")  ,",",".")
	strAppInd = Replace(objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey2 & "\" & strSubkey0 & "\InstallDate")  ,"/","")
	strAppSyc =         objShells.RegRead("HKEY_LOCAL_MACHINE\" & strRegKey2 & "\" & strSubkey0 & "\SystemComponent") 
	
'ソフトウエア名が空白またはSystemComponentキーが"1"ならば書き込まない
    If strAppNam <> "" and strAppSyc <> "1" Then
        strAppCsv = strMacadr & "," & "Soft,Application," & strAppNam & "," & strAppVer & "," & strAppVem & "," & strAppInd & vbcrlf
        strPcvcsv = strPcvcsv & strAppCsv
    End If
	strAppNam = ""
	strAppVer = ""
	strAppVem = ""
	strAppInd = ""
	strAppSyc = ""
	strAppCsv = ""
Next

'CSVデータ書き込み
	objApmfil.Write strPcvcsv
	objApmfil.close

'完成したCSVをソートする(MACADDRESS"x".csv -> MACADDRESS.csv)
	objShells.Run "%ComSpec% /c sort " & strTmpfld & "\" & strMacadr & "x.csv /O " & strTmpfld & "\" & strMacadr & ".csv", 0 , TRUE

End sub

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' CドライブがHDDか調べ、HDDと確認できればC:\をセット、DならDをセット、それ以外なら終了
' （この部分のみエラーレジュームになってることを注意）
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
Sub Hddrv()
On Error Resume Next
Set strDriveC = objFsystm.GetDrive("C")
Set strDriveD = objFsystm.GetDrive("D")
If strDriveC.DriveType = 2 Then
	strHdrive = "C:\"
ElseIf strDriveD.DriveType = 2 Then
	strHdrive = "D:\"
Else
		strErrcod = "code:020 起動ハードディスクエラー(C" & strDriveC & " D" & strDriveD & ")"
		objPcvlog.Write time & ":Error         :" & strErrcod & vbcrlf
		subError
		WScript.Quit
End If
End Sub

' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
'
' エラー処理
'
' _/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_
Sub subError()
	If strErrmsg = "" Then
		strErrmsg = "Error:プログラムは異常終了しました。内線2110までお問い合わせください"
	End If
	msgbox strErrmsg & vbcrlf & strErrcod ,16, "インストールソフトウエア情報表示プログラム"             ' iniファイルMsgSilent=yesがなければ内容表示
	WScript.Quit
End Sub