2015年12月15日火曜日
Win
https://social.technet.microsoft.com/Forums/ja-JP/a2593ddc-547a-4485-b0b2-2c190b3e8db0/windowsserver2008r2?forum=windowsserver2008ja
2015年12月2日水曜日
vm
http://www.koikikukan.com/archives/2014/07/16-015555.php
http://did2memo.net/2013/05/29/windows-update-how-to-stop-force-restart/
https://technet.microsoft.com/ja-jp/library/cc720539%28WS.10%29.aspx
http://www.atmarkit.co.jp/ait/articles/1004/02/news097.html
http://kb.vmware.com/selfservice/microsites/search.do?language=en_US&cmd=displayKC&externalId=2091478
https://www.climb.co.jp/blog_vmware/vmware-4061
https://blogs.vmware.com/jp-cim/2015/01/vsphere_edu01.html
http://blogs.vmware.com/jp-cim/2015/04/vsphere_edu02-2.html
http://kb.vmware.com/selfservice/microsites/search.do?language=en_US&cmd=displayKC&externalId=2078669
http://did2memo.net/2013/05/29/windows-update-how-to-stop-force-restart/
https://technet.microsoft.com/ja-jp/library/cc720539%28WS.10%29.aspx
http://www.atmarkit.co.jp/ait/articles/1004/02/news097.html
http://kb.vmware.com/selfservice/microsites/search.do?language=en_US&cmd=displayKC&externalId=2091478
https://www.climb.co.jp/blog_vmware/vmware-4061
https://blogs.vmware.com/jp-cim/2015/01/vsphere_edu01.html
http://blogs.vmware.com/jp-cim/2015/04/vsphere_edu02-2.html
http://kb.vmware.com/selfservice/microsites/search.do?language=en_US&cmd=displayKC&externalId=2078669
2015年12月1日火曜日
power-cli
https://www.climb.co.jp/blog_vmware/vmware-4308
http://ict-freak.nl/2011/04/01/storage-vmotion-only-one-hard-disk-to-another-datastore-in-vsphere/
https://communities.vmware.com/people/gowatana/blog/2013/02/09/powercli-51%E3%81%A7-x-vmotion
http://friendsnow.hatenablog.com/entry/2015/02/19/215233
http://ja.community.dell.com/techcenter/b/weblog/archive/2015/02/05/virtual-machine-migration
https://thinkit.co.jp/story/2011/02/24/2008?page=0%2C2
http://pubs.vmware.com/vsphere-60/index.jsp#com.vmware.powercli.cmdletref.doc/Move-VM.html
http://tech-mmmm.blogspot.jp/2015/01/powerclitips.html
http://wiki.vmug.com/index.php/VMotion,_Storage_vMotion_and_Cold_Migration#Moving_a_VM_with_Storage_vMotion
Move-VM corphqdb01 -Destination esx01nyc.corp.com -RunAsync
Move-VM corphqdb01 -datastore gold-nyc -RunAsync
Get-VM -Name 'MyVM' -Server 'MyServer' | Move-VM -Destination 'NewHost' -Datastore 'DatastoreOnNewHost' -DiskStorageFormat 'Thin'
2015年11月16日月曜日
あああああああああああ
https://technet.microsoft.com/ja-jp/windowsserver/ff631086.aspx
ルートゾーンとは
サイトの設計
サイトの設計は、ディレクトリ複製のためのトラフィック制御や、ログオン認証を受ける DC を明示的に指定す ることを目的とします。
サイト間の複製は業務時間を避け夜間のみ複製、或いは朝夕のログオン/ログオフトラフィックが集中する
時間帯を避けるようなスケジューリングが一般的です。
サイト間複製でサイトリンクが使用するプロトコルには、IP と SMTP の 2 種類ありますが、
通常は IP を 使用して DC 間の複製を行います。SMTP を使用する形態は、マルチドメイン構成且つドメイン間が
Firewallで遮断されている環境の場合のみです。また、プロトコルにSMTPを使用すると以下の注意が必要です。
同一ドメインのサイト間複製に利用できない(ドメインコンテキストの複製ができないため)
それぞれの DC が証明書を持つ必要があり、認証局(CA)の導入が必要
優先ブリッジヘッドサーバの選定指針
- GC を実装しており、かつ FSMO でない DC
- サイト内で外部のサイトにネットワーク的に近い DC
- スペックの高い DC
(参考)クライアント認証処理能力の目安 マイクロソフト社では、
クライアント認証処理能力として必要な DC 台数を以下と公開しています。
ユーザー数が 1~499 人の場合は、1CPU が搭載されたサーバ 1 台 ユーザー数が 500~999 人の場合は、2CPU が搭載されたサーバ 1 台 ユーザー数が 1000~2999 人の場合は、2CPU が搭載されたサーバ 2 台 ユーザー数が 3000~10000 人の場合は、4CPU が搭載されたサーバ 2 台
http://kulog.org/pc/software/k6535/
http://08thse.blog87.fc2.com/blog-entry-415.html
http://blogs.technet.com/b/jpntsblog//?PageIndex=1&PostSortBy=MostViewed
http://itpro.nikkeibp.co.jp/article/COLUMN/20071219/289843/
ルートゾーンとは
サイトの設計
サイトの設計は、ディレクトリ複製のためのトラフィック制御や、ログオン認証を受ける DC を明示的に指定す ることを目的とします。
サイト間の複製は業務時間を避け夜間のみ複製、或いは朝夕のログオン/ログオフトラフィックが集中する
時間帯を避けるようなスケジューリングが一般的です。
サイト間複製でサイトリンクが使用するプロトコルには、IP と SMTP の 2 種類ありますが、
通常は IP を 使用して DC 間の複製を行います。SMTP を使用する形態は、マルチドメイン構成且つドメイン間が
Firewallで遮断されている環境の場合のみです。また、プロトコルにSMTPを使用すると以下の注意が必要です。
同一ドメインのサイト間複製に利用できない(ドメインコンテキストの複製ができないため)
それぞれの DC が証明書を持つ必要があり、認証局(CA)の導入が必要
優先ブリッジヘッドサーバの選定指針
- GC を実装しており、かつ FSMO でない DC
- サイト内で外部のサイトにネットワーク的に近い DC
- スペックの高い DC
(参考)クライアント認証処理能力の目安 マイクロソフト社では、
クライアント認証処理能力として必要な DC 台数を以下と公開しています。
ユーザー数が 1~499 人の場合は、1CPU が搭載されたサーバ 1 台 ユーザー数が 500~999 人の場合は、2CPU が搭載されたサーバ 1 台 ユーザー数が 1000~2999 人の場合は、2CPU が搭載されたサーバ 2 台 ユーザー数が 3000~10000 人の場合は、4CPU が搭載されたサーバ 2 台
http://kulog.org/pc/software/k6535/
http://08thse.blog87.fc2.com/blog-entry-415.html
http://blogs.technet.com/b/jpntsblog//?PageIndex=1&PostSortBy=MostViewed
http://itpro.nikkeibp.co.jp/article/COLUMN/20071219/289843/
2015年11月9日月曜日
WindowsServerBackup
REM wbadmin start backup
REM To create a one-time backup
@echo off
setlocal
set WSB_NOW=\\%computername%\ADBackup$\NOW
REM batファイル保存先を指定
set PGDIR=D:\task\ADBackup
REM ログファイル名の指定
set LOGDIR=D:\task\log
set DATE=%date%
set TIME=%time: =0%
set LOGFILE=%LOGDIR%\start_backup_%DATE:~2,2%%DATE:~5,2%%DATE:~8,2%_%TIME:~0,2%%TIME:~3,2%.log
echo ---------------------- >> %LOGFILE%
echo start_backup START >> %LOGFILE%
date /T >> %LOGFILE%
time /T >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
echo. >> %LOGFILE%
REM
REM main
REM
REM バックアップイメージ ローテーション
pushd e:\ADBackup
echo ####%errorlevel%####
rem wbadmin get status >> %LOGFILE%
rem echo %errorlevel%
rem pause
rem if %errorlevel% == "0" (
rem echo 別のバックアップ操作または回復操作が進行中です #%errorlevel%# >> %LOGFILE%
rem exit /b 999
rem ) else (
rem if %errorlevel% == "-2" (
rem echo #別のバックアップ操作はありません#%errorlevel% >> %LOGFILE%
rem ) else (
rem echo #その他エラー#%errorlevel% >> %LOGFILE%
rem exit /b 998
rem )
rem )
IF EXIST OLD RD /S /Q OLD
IF EXIST NOW REN NOW OLD
REM システムバックアップの取得
REM -include で全ボリュームを指定(カンマ区切り)
MKDIR NOW
if errorlevel 1 (
echo #バックアップ先フォルダが作成できない#
)
wbadmin start backup -backuptarget:%WSB_NOW% -allCritical -quiet >> %LOGFILE%
if %errorlevel% == "0" (
echo バックアップ実行の成功 #%errorlevel%# >> %LOGFILE%
) else (
echo バックアップ実行エラー #%errorlevel%# >> %LOGFILE%
move e:\ADBackup\OLD\WindowsImageBackup e:\ADBackup\NOW
if %errorlevel% == "-1" (
echo #バックアップ コマンド構文誤り#%errorlevel%
) else if %errorlevel% == "-2" (
echo #アクセスが拒否されました#%errorlevel%
) else if %errorlevel% == "-3" (
echo #バックアップの保存場所の空き領域不足 #%errorlevel% >> %LOGFILE%
echo #ユーザーにより操作が取り消されました #%errorlevel% >> %LOGFILE%
echo 別のバックアップ操作または回復操作が進行中です #%errorlevel%# >> %LOGFILE%
) else (
echo #その他エラー#%errorlevel%
)
)
popd
REM wbadmin start backup -backuptarget:%WSB_NOW% -allCritical -quiet | FINDSTR /V % >> %LOGFILE%
echo.
echo. >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
echo start_backup END >> %LOGFILE%
date /T >> %LOGFILE%
time /T >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
pause
endlocal
exit 0
REM To create a one-time backup
@echo off
setlocal
set WSB_NOW=\\%computername%\ADBackup$\NOW
REM batファイル保存先を指定
set PGDIR=D:\task\ADBackup
REM ログファイル名の指定
set LOGDIR=D:\task\log
set DATE=%date%
set TIME=%time: =0%
set LOGFILE=%LOGDIR%\start_backup_%DATE:~2,2%%DATE:~5,2%%DATE:~8,2%_%TIME:~0,2%%TIME:~3,2%.log
echo ---------------------- >> %LOGFILE%
echo start_backup START >> %LOGFILE%
date /T >> %LOGFILE%
time /T >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
echo. >> %LOGFILE%
REM
REM main
REM
REM バックアップイメージ ローテーション
pushd e:\ADBackup
echo ####%errorlevel%####
rem wbadmin get status >> %LOGFILE%
rem echo %errorlevel%
rem pause
rem if %errorlevel% == "0" (
rem echo 別のバックアップ操作または回復操作が進行中です #%errorlevel%# >> %LOGFILE%
rem exit /b 999
rem ) else (
rem if %errorlevel% == "-2" (
rem echo #別のバックアップ操作はありません#%errorlevel% >> %LOGFILE%
rem ) else (
rem echo #その他エラー#%errorlevel% >> %LOGFILE%
rem exit /b 998
rem )
rem )
IF EXIST OLD RD /S /Q OLD
IF EXIST NOW REN NOW OLD
REM システムバックアップの取得
REM -include で全ボリュームを指定(カンマ区切り)
MKDIR NOW
if errorlevel 1 (
echo #バックアップ先フォルダが作成できない#
)
wbadmin start backup -backuptarget:%WSB_NOW% -allCritical -quiet >> %LOGFILE%
if %errorlevel% == "0" (
echo バックアップ実行の成功 #%errorlevel%# >> %LOGFILE%
) else (
echo バックアップ実行エラー #%errorlevel%# >> %LOGFILE%
move e:\ADBackup\OLD\WindowsImageBackup e:\ADBackup\NOW
if %errorlevel% == "-1" (
echo #バックアップ コマンド構文誤り#%errorlevel%
) else if %errorlevel% == "-2" (
echo #アクセスが拒否されました#%errorlevel%
) else if %errorlevel% == "-3" (
echo #バックアップの保存場所の空き領域不足 #%errorlevel% >> %LOGFILE%
echo #ユーザーにより操作が取り消されました #%errorlevel% >> %LOGFILE%
echo 別のバックアップ操作または回復操作が進行中です #%errorlevel%# >> %LOGFILE%
) else (
echo #その他エラー#%errorlevel%
)
)
popd
REM wbadmin start backup -backuptarget:%WSB_NOW% -allCritical -quiet | FINDSTR /V % >> %LOGFILE%
echo.
echo. >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
echo start_backup END >> %LOGFILE%
date /T >> %LOGFILE%
time /T >> %LOGFILE%
echo ---------------------- >> %LOGFILE%
pause
endlocal
exit 0
2015年11月5日木曜日
BACKUP
setlocal
@echo off
SET MAIL_SEND_CMD=ECHO
rem -----------------------------------------------------
rem CドライブのシステムバックアップをDドライブに保存する
rem バックアップ中のエラーに備え、2世代の履歴を管理
rem -----------------------------------------------------
SET BASE=E:\ADBackup
SET NOW=%BASE%\NOW
SET OLD=%BASE%\OLD
SET WBANOW=\\lenovo-pc\ADBackup\NOW
SET WBABASE=E:\aa
SET BACKUP_LOG_FILE=e:\systembackup.log
pushd E:\ADBackup
rem ****************************************************
rem 前々回のバックアップ削除
rem ****************************************************
echo # %date% %time% RMDIR /S /Q OLD
RMDIR /S /Q OLD
if errorlevel 1 (
%MAIL_SEND_CMD% "前回のバックアップの退避に失敗しました。(101)"
exit /b 101
)
rem ****************************************************
rem 前回取得のバックアップ退避
rem ****************************************************
echo # %date% %time% REN NOW OLD
REN NOW OLD
if errorlevel 1 (
%MAIL_SEND_CMD% "前回のバックアップの退避に失敗しました。(102)"
exit /b 111
)
popd
rem ****************************************************
rem バックアップ開始
rem ****************************************************
echo # %date% %time% バックアップ処理開始
echo # %date% %time% MKDIR NOW
MKDIR NOW
if errorlevel 1 (
%MAIL_SEND_CMD% "バックアップ先が見つかりません。(201)"
exit /b 201
)
echo # %date% %time% WBADMIN START BACKUP -allCritical -backupTarget:%WBANOW% -quiet
WBADMIN START BACKUP -allCritical -backupTarget:%WBANOW% -quiet > %WBABASE%\status2.txt
set STATUS_WBA=%ERRORLEVEL%
if "%STATUS_WBA%" =="1" (
%MAIL_SEND_CMD% "バックアップ先が見つかりません。(202)"
exit /b 202
) else if "%STATUS_WBA%" =="2" (
%MAIL_SEND_CMD% "CTL+Cでキャンセルされた。(203)"
exit /b 203
) else if "%STATUS_WBA%" =="3" (
%MAIL_SEND_CMD% "デイスク領域不足。(204)"
exit /b 204
)
echo # %date% %time% バックアップ処理完了
echo # %date% %time% status
cscript //nologo %WBABASE%\status.vbs
set STATUS_WBA=%ERRORLEVEL%
if "%STATUS_WBA%" =="1" (
%MAIL_SEND_CMD% "バックアップ成功"
exit /b 0
) else if "%STATUS_WBA%" =="0" (
%MAIL_SEND_CMD% "バックアップ失敗"
exit /b 206
)
exit /b 0
endlocal
2015年10月30日金曜日
backup.cmd
rem -----------------------------------------------------
rem CドライブのシステムバックアップをDドライブに保存する
rem バックアップ中のエラーに備え、3世代の履歴を管理
rem -----------------------------------------------------
set BACKUP_LOG_FILE=e:\systembackup.log
rmdir /S /Q e:\WindowsImageBackup_2
move e:\WindowsImageBackup_1 e:\WindowsImageBackup_2
move e:\WindowsImageBackup e:\WindowsImageBackup_1
wbadmin START BACKUP -include:C: -backupTarget:e: -allCritical -quiet
echo %errorlevel%
rem wbadmin get status >> %BACKUP_LOG_FILE%
cscript //nologo status.vbs
echo %errorlevel%
rem CドライブのシステムバックアップをDドライブに保存する
rem バックアップ中のエラーに備え、3世代の履歴を管理
rem -----------------------------------------------------
set BACKUP_LOG_FILE=e:\systembackup.log
rmdir /S /Q e:\WindowsImageBackup_2
move e:\WindowsImageBackup_1 e:\WindowsImageBackup_2
move e:\WindowsImageBackup e:\WindowsImageBackup_1
wbadmin START BACKUP -include:C: -backupTarget:e: -allCritical -quiet
echo %errorlevel%
rem wbadmin get status >> %BACKUP_LOG_FILE%
cscript //nologo status.vbs
echo %errorlevel%
status.vbs
'wbadmin 状況確認&自動復元&メール送信スクリプト
' 2010/10/24 by kenrouse
'------------------------------------------------
bRet = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.CreateTextFile("status.txt", true)
' 直前に実行されたバックアップの終了を待つコマンドです。
command = "wbadmin.exe get status"
' コマンドを実行します。
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(command)
' コマンドの出力結果を読み取ります。※ただし、進捗表示の出力は除去
Do While oExec.StdOut.AtEndOfStream <> True
strline = oExec.StdOut.ReadLine
If InStr(strline, "%") = 0 Then
tso.WriteLine strline
End If
'If InStr(strline, "バックアップ操作が正常に完了") = 1 Then
If InStr(strline, "エラー") = 1 Then
bRet = 1
End If
Loop
WScript.Sleep 1000
tso.Close
Wscript.Quit bRet
' 2010/10/24 by kenrouse
'------------------------------------------------
bRet = 0
Set fso = CreateObject("Scripting.FileSystemObject")
Set tso = fso.CreateTextFile("status.txt", true)
' 直前に実行されたバックアップの終了を待つコマンドです。
command = "wbadmin.exe get status"
' コマンドを実行します。
Set WshShell = WScript.CreateObject("WScript.Shell")
Set oExec = WshShell.Exec(command)
' コマンドの出力結果を読み取ります。※ただし、進捗表示の出力は除去
Do While oExec.StdOut.AtEndOfStream <> True
strline = oExec.StdOut.ReadLine
If InStr(strline, "%") = 0 Then
tso.WriteLine strline
End If
'If InStr(strline, "バックアップ操作が正常に完了") = 1 Then
If InStr(strline, "エラー") = 1 Then
bRet = 1
End If
Loop
WScript.Sleep 1000
tso.Close
Wscript.Quit bRet
2015年10月19日月曜日
eo
robocopy "e:\test\in" "e:\test\backup" /MIR /LOG:"e:\test\log\log.txt" /TEE /V /X /FP /L /COPY:DATS /MT:8 /R:0
rem 容量があること
rem ファイルがクローズされている
rem BacpUpは共有されている
rem Backupフォルダに、ファイル書き込み中が判断できないか
setlocal
@echo off
echo %date% %time% start
set BacpUp=BacpUp
set BacpUp-1=BacpUp-1
set tmp=tmp
IF NOT EXIST %BacpUp% (
echo %BacpUp% %ERRORLEVEL%
exit /b 1
)
IF NOT EXIST %BacpUp-1% (
echo %BacpUp-1% %ERRORLEVEL%
exit /b 1
)
pushd E:\test
rem pause
ren %BacpUp-1% %tmp%
echo %ERRORLEVEL% ren %BacpUp-1% %tmp%
ren %BacpUp% %BacpUp-1%
echo %ERRORLEVEL% ren %BacpUp% %BacpUp-1%
ren %tmp% %BacpUp%
echo %ERRORLEVEL% ren %tmp% %BacpUp%
echo %date% %time% end
endlocal
rem pause
exit /b 0
2015年8月31日月曜日
ACL.vbs
Option Explicit
Dim IFILE
Dim OFILE
'IFILE = "P_icacls.cmd_out.txt"
' 入力チェック
If WScript.Arguments.Count < 1 Then WScript.Echo " PARAM ERROR Arguments.Count=" & WScript.Arguments.Count wscript.Quit(4) End If IFILE = WScript.Arguments(0) OFILE = IFILE & "_out.txt" Call ACLS(IFILE,OFILE) wscript.Quit(0) '************************************************ ' ACL結果の整形 '************************************************ Sub ACLS(IFILE,OFILE) Dim objFSO Dim objIFILE Dim objOFILE Dim iCnt Dim OCnt Dim sRec Dim sPath Dim sUser Dim iPos Set objFSO = CreateObject("Scripting.FileSystemObject") ' 指定ファイルをOPEN Set objIFILE = objFSO.OpenTextFile(IFILE, 1) Set objOFILE = objFSO.CreateTextFile(OFILE) sRec = "" iCnt = 0 OCnt = 0 iPos = 0 Do Until objIFILE.AtEndOfStream = True sRec = objIFILE.ReadLine iCnt = iCnt + 1 If sRec > "" Then
'空白行でない場合
If Mid(sRec,1,1) <> " " Then
'1桁目が空白以外の場合
iPos = InstrRev(sRec," ")
'パスとユーザに分ける
sPath = trim(Mid(sRec,1,ipos - 1))
sUser = trim(Replace(sRec, sPath, ""))
sRec = sPath & vbtab & sUser
Else
'1桁目が空白の場合
sRec = sPath & vbtab & trim(sRec)
End If
objOFILE.WriteLine sRec
OCnt = OCnt + 1
End If
Loop
WScript.Echo IFILE & " -> " & OFILE
WScript.Echo now & " iCnt=" & iCnt & " OCnt=" & OCnt
objOFILE.Close
objIFILE.Close
Set objOFILE = Nothing
Set objIFILE = Nothing
Set objFSO = Nothing
End Sub
Dim IFILE
Dim OFILE
'IFILE = "P_icacls.cmd_out.txt"
' 入力チェック
If WScript.Arguments.Count < 1 Then WScript.Echo " PARAM ERROR Arguments.Count=" & WScript.Arguments.Count wscript.Quit(4) End If IFILE = WScript.Arguments(0) OFILE = IFILE & "_out.txt" Call ACLS(IFILE,OFILE) wscript.Quit(0) '************************************************ ' ACL結果の整形 '************************************************ Sub ACLS(IFILE,OFILE) Dim objFSO Dim objIFILE Dim objOFILE Dim iCnt Dim OCnt Dim sRec Dim sPath Dim sUser Dim iPos Set objFSO = CreateObject("Scripting.FileSystemObject") ' 指定ファイルをOPEN Set objIFILE = objFSO.OpenTextFile(IFILE, 1) Set objOFILE = objFSO.CreateTextFile(OFILE) sRec = "" iCnt = 0 OCnt = 0 iPos = 0 Do Until objIFILE.AtEndOfStream = True sRec = objIFILE.ReadLine iCnt = iCnt + 1 If sRec > "" Then
'空白行でない場合
If Mid(sRec,1,1) <> " " Then
'1桁目が空白以外の場合
iPos = InstrRev(sRec," ")
'パスとユーザに分ける
sPath = trim(Mid(sRec,1,ipos - 1))
sUser = trim(Replace(sRec, sPath, ""))
sRec = sPath & vbtab & sUser
Else
'1桁目が空白の場合
sRec = sPath & vbtab & trim(sRec)
End If
objOFILE.WriteLine sRec
OCnt = OCnt + 1
End If
Loop
WScript.Echo IFILE & " -> " & OFILE
WScript.Echo now & " iCnt=" & iCnt & " OCnt=" & OCnt
objOFILE.Close
objIFILE.Close
Set objOFILE = Nothing
Set objIFILE = Nothing
Set objFSO = Nothing
End Sub
P_icacls.cmd
@echo off
ECHO ************************************
ECHO "P_icacls.cmd admtools /T"
ECHO ************************************
ECHO %date% %time% Start %0
@icacls.exe %* | find /v "" > %0_out.txt
ECHO %date% %time% End
ECHO %date% %time% Start ACL.vbs
cscript //nologo ACL.vbs %0_out.txt
ECHO %date% %time% End
pause
exit /b 0
ECHO ************************************
ECHO "P_icacls.cmd admtools /T"
ECHO ************************************
ECHO %date% %time% Start %0
@icacls.exe %* | find /v "" > %0_out.txt
ECHO %date% %time% End
ECHO %date% %time% Start ACL.vbs
cscript //nologo ACL.vbs %0_out.txt
ECHO %date% %time% End
pause
exit /b 0
2015年8月26日水曜日
url
https://support.microsoft.com/ja-jp/kb/195144
https://support.microsoft.com/ja-jp/kb/210638
https://support.microsoft.com/ja-jp/kb/250267
https://support.microsoft.com/ja-jp/kb/3037941
https://support.microsoft.com/ja-jp/kb/121007
http://www.cat-ears.net/?p=7829
https://social.technet.microsoft.com/Forums/windowsserver/ja-JP/1793d8ad-422e-429f-8bce-8a64e8b315ee/dos83robocopy?forum=windowsserver2008ja
http://shiroyuki-mot-says.blogspot.jp/2014/04/pc-short-naming-robocopy.html
http://d.hatena.ne.jp/kerorogunsou/20081204/1228394516
○
http://d.hatena.ne.jp/ming_mina/20110116/1295196049
○
http://d.hatena.ne.jp/kerorogunsou/20081204/1228394516
https://support.microsoft.com/ja-jp/kb/210638
https://support.microsoft.com/ja-jp/kb/250267
https://support.microsoft.com/ja-jp/kb/3037941
https://support.microsoft.com/ja-jp/kb/121007
http://www.cat-ears.net/?p=7829
https://social.technet.microsoft.com/Forums/windowsserver/ja-JP/1793d8ad-422e-429f-8bce-8a64e8b315ee/dos83robocopy?forum=windowsserver2008ja
http://shiroyuki-mot-says.blogspot.jp/2014/04/pc-short-naming-robocopy.html
http://d.hatena.ne.jp/kerorogunsou/20081204/1228394516
○
http://d.hatena.ne.jp/ming_mina/20110116/1295196049
○
http://d.hatena.ne.jp/kerorogunsou/20081204/1228394516
2015年8月16日日曜日
CopyFillst
g@echo off
setlocal
ECHO ** START ** %1
SET IN_FILE_NAME=%1
SET OUT_FILE_NAME=%IN_FILE_NAME%_out.txt
if exist %OUT_FILE_NAME% ( del %OUT_FILE_NAME% )
for /f "delims=" %%a in (%1) do (
rem echo %%a
call :Sub1 %%a %OUT_FILE_NAME%
)
pause
endlocal
exit /b 0
:Sub1
ECHO Sub1 Start %date% %time% %1 %2
rem file split -> dir & file
echo %~p1
echo %~n1 %~nx1
SET SRC=d:\in\%~p1
SET DST=d:\out\%~p1
SET LOG=/LOG+:%2
SET OPT=/MIR /NC /NP /TEE /FP /COPY:DATSO /BYTES /L
ECHO robocopy %SRC% %DST% %~nx1 %OPT% %LOG%
rem robocopy %SRC% %DST% %~nx1 %OPT% %LOG%
pause
exit /b
AAAA\BB\CCCC1\a1.txt
AAAA\BB\CCCC2\a2.txt
AAAA\BB\CCCC3\a3.txt
AAAA\BB\CCCC4\a4.txt
AAAA\BB\CCCC5\a5.txt
setlocal
ECHO ** START ** %1
SET IN_FILE_NAME=%1
SET OUT_FILE_NAME=%IN_FILE_NAME%_out.txt
if exist %OUT_FILE_NAME% ( del %OUT_FILE_NAME% )
for /f "delims=" %%a in (%1) do (
rem echo %%a
call :Sub1 %%a %OUT_FILE_NAME%
)
pause
endlocal
exit /b 0
:Sub1
ECHO Sub1 Start %date% %time% %1 %2
rem file split -> dir & file
echo %~p1
echo %~n1 %~nx1
SET SRC=d:\in\%~p1
SET DST=d:\out\%~p1
SET LOG=/LOG+:%2
SET OPT=/MIR /NC /NP /TEE /FP /COPY:DATSO /BYTES /L
ECHO robocopy %SRC% %DST% %~nx1 %OPT% %LOG%
rem robocopy %SRC% %DST% %~nx1 %OPT% %LOG%
pause
exit /b
AAAA\BB\CCCC1\a1.txt
AAAA\BB\CCCC2\a2.txt
AAAA\BB\CCCC3\a3.txt
AAAA\BB\CCCC4\a4.txt
AAAA\BB\CCCC5\a5.txt
CopyDirLst
@echo off
setlocal
ECHO ** START ** %1
SET IN_FILE_NAME=%1
SET OUT_FILE_NAME=%IN_FILE_NAME%_out.txt
if exist %OUT_FILE_NAME% ( del %OUT_FILE_NAME% )
for /f "delims=" %%a in (%1) do (
rem echo %%a
call :Sub1 %%a %OUT_FILE_NAME%
)
pause
endlocal
exit /b 0
:Sub1
ECHO Sub1 Start %date% %time% %1 %2
SET SRC=d:\in\%1
SET DST=d:\out\%1
SET LOG=/LOG+:%2
SET OPT=/MIR /NC /NP /TEE /FP /COPY:DATSO /BYTES /L
ECHO robocopy %SRC% %DST% %OPT% %LOG%
robocopy %SRC% %DST% %OPT% %LOG%
exit /b
setlocal
ECHO ** START ** %1
SET IN_FILE_NAME=%1
SET OUT_FILE_NAME=%IN_FILE_NAME%_out.txt
if exist %OUT_FILE_NAME% ( del %OUT_FILE_NAME% )
for /f "delims=" %%a in (%1) do (
rem echo %%a
call :Sub1 %%a %OUT_FILE_NAME%
)
pause
endlocal
exit /b 0
:Sub1
ECHO Sub1 Start %date% %time% %1 %2
SET SRC=d:\in\%1
SET DST=d:\out\%1
SET LOG=/LOG+:%2
SET OPT=/MIR /NC /NP /TEE /FP /COPY:DATSO /BYTES /L
ECHO robocopy %SRC% %DST% %OPT% %LOG%
robocopy %SRC% %DST% %OPT% %LOG%
exit /b
2015年8月10日月曜日
88DIFFS
Option Explicit
Dim objFSO 'As Object ' FileSystemObject
Dim INFILE1 'As String
Dim INFILE2 'As String
Dim iInCnt1
Dim iInCnt2
Dim OUTFILE1 'As String
Dim OUTFILE2 'As String
Dim sStartTime 'As Variant
Dim sEndTime 'As Variant
'***********************************************
'二つのファイルの差異部分を、それぞれ出力()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'比較対象のファイル名を取得
'INFILE1 = "In1.txt"
'INFILE2 = "In2.txt"
INFILE1 = "testlogs.txt"
INFILE2 = "testlog2s.txt"
OUTFILE1 = "Ou1.txt"
OUTFILE2 = "Ou2.txt"
wscript.echo now
Call DIFFS
wscript.echo now
wscript.Echo "差分出力を終わりました。" & vbNewLine _
& "処理時間は、" _
& FormatDateTime(sEndTime - sStartTime) & " でした。"
Set objFSO = Nothing
wscript.Quit
'************************************************
'************************************************
Sub DIFFS
'Private Sub DIFFS()
'************************************************
Dim iOutCnt1
Dim iOutCnt2
Dim objOutFile1 'As Object ' TextStream
Dim objOutFile2 'As Object ' TextStream
Dim iPCnt1
Dim iPCnt2
Dim objInFile1 'As Object ' TextStream
Dim objInFile2 'As Object ' TextStream
Dim sINPUTDATA1
Dim sINPUTDATA2
Dim sINPUTDATA1BEFOR
Dim sINPUTDATA2BEFOR
Dim INPUT1STATUS
Dim INPUT2STATUS
Dim sScriptFullName
sScriptFullName = Wscript.ScriptFullName
WScript.Echo sScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定ファイルをOPEN(入力モード)
Set objInFile1 = objFSO.OpenTextFile(INFILE1, 1)
Set objInFile2 = objFSO.OpenTextFile(INFILE2, 1)
iPCnt1 = 0
iPCnt2 = 0
' 指定ファイルをOPEN(出力モード)
Set objOutFile1 = objFSO.CreateTextFile(OUTFILE1)
Set objOutFile2 = objFSO.CreateTextFile(OUTFILE2)
iOutCnt1 = 0
iOutCnt2 = 0
sINPUTDATA1 = ""
sINPUTDATA2 = ""
wscript.echo "+++++++++++++++++"
Do
If sINPUTDATA1 = sINPUTDATA2 Then
If objInFile1.AtEndOfStream _
And objInFile2.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
INPUT2STATUS = "入力2終了"
Exit Do
ElseIf objInFile2.AtEndOfStream Then
INPUT2STATUS = "入力2終了"
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
ElseIf objInFile1.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
Else
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
' If 正規表現オブジェクト.Test(sINPUTDATA1) = True _
' And objInFile1.AtEndOfStream = False Then
' objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
' iOutCnt1 = iOutCnt1 + 1
' sINPUTDATA1 = objInFile1.ReadLine
' iPCnt1 = iPCnt1 + 1
' End If
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
ElseIf sINPUTDATA1 < sINPUTDATA2 Then ' wscript.echo "入力配列1(処理行) < 入力配列2(検索行)" & vbNewLine _ ' & "処理行:" & 処理行 & " 検索行:" & 検索行 & vbNewLine _ ' & "処理行:" & 入力配列1(処理行) & vbNewLine _ ' & "検索行:" & 入力配列2(検索行) If objInFile1.AtEndOfStream Then INPUT1STATUS = "入力1終了" If objInFile2.AtEndOfStream Then INPUT2STATUS = "入力2終了" wscript.echo sINPUTDATA2 & " 1@@20150809@@@@@@@@" objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き iOutCnt2 = iOutCnt2 + 1 objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き iOutCnt1 = iOutCnt1 + 1 wscript.echo sINPUTDATA2 & " 2@@20150809@@@@@@@@" Exit Do Else objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き iOutCnt2 = iOutCnt2 + 1 sINPUTDATA2BEFOR = sINPUTDATA2 sINPUTDATA2 = objInFile2.ReadLine iPCnt2 = iPCnt2 + 1 If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
End If
ElseIf sINPUTDATA1 > sINPUTDATA2 Then
' wscript.echo "入力配列1(処理行) > 入力配列2(入力行数2)" & vbNewLine _
' & "処理行:" & 処理行 & " 検索行:" & 検索行 & vbNewLine _
' & "処理行:" & 入力配列1(処理行) & vbNewLine _
' & "検索行:" & 入力配列2(検索行)
If objInFile2.AtEndOfStream Then
INPUT2STATUS = "入力2終了"
If objInFile1.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
wscript.echo sINPUTDATA1 & " 1@@20150809+++++++"
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
wscript.echo sINPUTDATA1 & " 2@@20150809++++++++"
Exit Do
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
wscript.echo sINPUTDATA1 & " +++++++"
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
End If
Else
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
End If
'wscript.echo sINPUTDATA1
Loop '入力行を次々続ける
If sINPUTDATA1BEFOR > sINPUTDATA1 Or sINPUTDATA2BEFOR > sINPUTDATA2 Then
wscript.echo iPCnt1 & " か、" & iPCnt2 & " で、ソートエラーで終了しました。" & vbNewLine _
& "INPUT1STATUS=" & INPUT1STATUS & " INPUT2STATUS=" & INPUT2STATUS
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
End If
wscript.echo OUTFILE1 & " として、" & iOutCnt1 & " 行を出力しました。" & vbNewLine _
& OUTFILE2 & " として、" & iOutCnt2 & " 行を出力しました。"
' 指定ファイルをClose(出力モード)
objOutFile1.Close
objOutFile2.Close
Set objOutFile1 = Nothing
Set objOutFile2 = Nothing
' 指定ファイルをClose(入力モード)
objInFile1.Close
objInFile2.Close
Set objInFile1 = Nothing
Set objInFile2 = Nothing
End Sub
Dim objFSO 'As Object ' FileSystemObject
Dim INFILE1 'As String
Dim INFILE2 'As String
Dim iInCnt1
Dim iInCnt2
Dim OUTFILE1 'As String
Dim OUTFILE2 'As String
Dim sStartTime 'As Variant
Dim sEndTime 'As Variant
'***********************************************
'二つのファイルの差異部分を、それぞれ出力()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'比較対象のファイル名を取得
'INFILE1 = "In1.txt"
'INFILE2 = "In2.txt"
INFILE1 = "testlogs.txt"
INFILE2 = "testlog2s.txt"
OUTFILE1 = "Ou1.txt"
OUTFILE2 = "Ou2.txt"
wscript.echo now
Call DIFFS
wscript.echo now
wscript.Echo "差分出力を終わりました。" & vbNewLine _
& "処理時間は、" _
& FormatDateTime(sEndTime - sStartTime) & " でした。"
Set objFSO = Nothing
wscript.Quit
'************************************************
'************************************************
Sub DIFFS
'Private Sub DIFFS()
'************************************************
Dim iOutCnt1
Dim iOutCnt2
Dim objOutFile1 'As Object ' TextStream
Dim objOutFile2 'As Object ' TextStream
Dim iPCnt1
Dim iPCnt2
Dim objInFile1 'As Object ' TextStream
Dim objInFile2 'As Object ' TextStream
Dim sINPUTDATA1
Dim sINPUTDATA2
Dim sINPUTDATA1BEFOR
Dim sINPUTDATA2BEFOR
Dim INPUT1STATUS
Dim INPUT2STATUS
Dim sScriptFullName
sScriptFullName = Wscript.ScriptFullName
WScript.Echo sScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定ファイルをOPEN(入力モード)
Set objInFile1 = objFSO.OpenTextFile(INFILE1, 1)
Set objInFile2 = objFSO.OpenTextFile(INFILE2, 1)
iPCnt1 = 0
iPCnt2 = 0
' 指定ファイルをOPEN(出力モード)
Set objOutFile1 = objFSO.CreateTextFile(OUTFILE1)
Set objOutFile2 = objFSO.CreateTextFile(OUTFILE2)
iOutCnt1 = 0
iOutCnt2 = 0
sINPUTDATA1 = ""
sINPUTDATA2 = ""
wscript.echo "+++++++++++++++++"
Do
If sINPUTDATA1 = sINPUTDATA2 Then
If objInFile1.AtEndOfStream _
And objInFile2.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
INPUT2STATUS = "入力2終了"
Exit Do
ElseIf objInFile2.AtEndOfStream Then
INPUT2STATUS = "入力2終了"
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
ElseIf objInFile1.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
Else
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
' If 正規表現オブジェクト.Test(sINPUTDATA1) = True _
' And objInFile1.AtEndOfStream = False Then
' objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
' iOutCnt1 = iOutCnt1 + 1
' sINPUTDATA1 = objInFile1.ReadLine
' iPCnt1 = iPCnt1 + 1
' End If
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
ElseIf sINPUTDATA1 < sINPUTDATA2 Then ' wscript.echo "入力配列1(処理行) < 入力配列2(検索行)" & vbNewLine _ ' & "処理行:" & 処理行 & " 検索行:" & 検索行 & vbNewLine _ ' & "処理行:" & 入力配列1(処理行) & vbNewLine _ ' & "検索行:" & 入力配列2(検索行) If objInFile1.AtEndOfStream Then INPUT1STATUS = "入力1終了" If objInFile2.AtEndOfStream Then INPUT2STATUS = "入力2終了" wscript.echo sINPUTDATA2 & " 1@@20150809@@@@@@@@" objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き iOutCnt2 = iOutCnt2 + 1 objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き iOutCnt1 = iOutCnt1 + 1 wscript.echo sINPUTDATA2 & " 2@@20150809@@@@@@@@" Exit Do Else objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き iOutCnt2 = iOutCnt2 + 1 sINPUTDATA2BEFOR = sINPUTDATA2 sINPUTDATA2 = objInFile2.ReadLine iPCnt2 = iPCnt2 + 1 If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
End If
ElseIf sINPUTDATA1 > sINPUTDATA2 Then
' wscript.echo "入力配列1(処理行) > 入力配列2(入力行数2)" & vbNewLine _
' & "処理行:" & 処理行 & " 検索行:" & 検索行 & vbNewLine _
' & "処理行:" & 入力配列1(処理行) & vbNewLine _
' & "検索行:" & 入力配列2(検索行)
If objInFile2.AtEndOfStream Then
INPUT2STATUS = "入力2終了"
If objInFile1.AtEndOfStream Then
INPUT1STATUS = "入力1終了"
wscript.echo sINPUTDATA1 & " 1@@20150809+++++++"
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
wscript.echo sINPUTDATA1 & " 2@@20150809++++++++"
Exit Do
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
sINPUTDATA1BEFOR = sINPUTDATA1
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
wscript.echo sINPUTDATA1 & " +++++++"
If iPCnt1 > 2 And sINPUTDATA1BEFOR > sINPUTDATA1 Then Exit Do
End If
Else
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
sINPUTDATA2BEFOR = sINPUTDATA2
sINPUTDATA2 = objInFile2.ReadLine
iPCnt2 = iPCnt2 + 1
If iPCnt2 > 2 And sINPUTDATA2BEFOR > sINPUTDATA2 Then Exit Do
End If
End If
'wscript.echo sINPUTDATA1
Loop '入力行を次々続ける
If sINPUTDATA1BEFOR > sINPUTDATA1 Or sINPUTDATA2BEFOR > sINPUTDATA2 Then
wscript.echo iPCnt1 & " か、" & iPCnt2 & " で、ソートエラーで終了しました。" & vbNewLine _
& "INPUT1STATUS=" & INPUT1STATUS & " INPUT2STATUS=" & INPUT2STATUS
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
objOutFile2.WriteLine sINPUTDATA2 ' 改行(CrLf)付き
iOutCnt2 = iOutCnt2 + 1
End If
wscript.echo OUTFILE1 & " として、" & iOutCnt1 & " 行を出力しました。" & vbNewLine _
& OUTFILE2 & " として、" & iOutCnt2 & " 行を出力しました。"
' 指定ファイルをClose(出力モード)
objOutFile1.Close
objOutFile2.Close
Set objOutFile1 = Nothing
Set objOutFile2 = Nothing
' 指定ファイルをClose(入力モード)
objInFile1.Close
objInFile2.Close
Set objInFile1 = Nothing
Set objInFile2 = Nothing
End Sub
88ACL
Option Explicit
Dim objFSO 'As Object ' FileSystemObject
Dim INFILE1 'As String
Dim iInCnt1
Dim iInCnt2
Dim OUTFILE1 'As String
Dim sStartTime 'As Variant
Dim sEndTime 'As Variant
'***********************************************
'出力()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'比較対象のファイル名を取得
INFILE1 = "aclInlog.txt"
OUTFILE1 = "aclOulog.txt"
wscript.echo now
Call ACLS
wscript.echo now
Set objFSO = Nothing
wscript.Quit
'************************************************
'************************************************
Sub ACLS
Dim iOutCnt1
Dim objOutFile1 'As Object ' TextStream
Dim iPCnt1
Dim objInFile1 'As Object ' TextStream
Dim sINPUTDATA1
Dim sINPUTDATA1NEXT
Dim INPUT1STATUS
Dim sScriptFullName
sScriptFullName = Wscript.ScriptFullName
WScript.Echo sScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定ファイルをOPEN(入力モード)
Set objInFile1 = objFSO.OpenTextFile(INFILE1, 1)
iPCnt1 = 0
' 指定ファイルをOPEN(出力モード)
Set objOutFile1 = objFSO.CreateTextFile(OUTFILE1)
iOutCnt1 = 0
sINPUTDATA1 = ""
wscript.echo "+++++++++++++++++"
Dim iPos
iPos = 0
Do
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
WScript.Echo sINPUTDATA1
iPos = InstrRev(sINPUTDATA1,vbcr)
If iPos > 0 then
sINPUTDATA1 = mid(sINPUTDATA1,1,ipos-1)
Do
sINPUTDATA1NEXT = objInFile1.ReadLine
iPos = InstrRev(sINPUTDATA1,":")
If iPos > 0 Then
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
exit Do
Else
sINPUTDATA1 = sINPUTDATA1 & sINPUTDATA1NEXT
End If
Loop
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
End if
If objInFile1.AtEndOfStream Then
Exit Do
End If
'wscript.echo sINPUTDATA1
Loop '入力行を次々続ける
objOutFile1.Close
Set objOutFile1 = Nothing
'指定ファイルをClose(入力モード)
objInFile1.Close
Set objInFile1 = Nothing
End Sub
Dim objFSO 'As Object ' FileSystemObject
Dim INFILE1 'As String
Dim iInCnt1
Dim iInCnt2
Dim OUTFILE1 'As String
Dim sStartTime 'As Variant
Dim sEndTime 'As Variant
'***********************************************
'出力()
Set objFSO = CreateObject("Scripting.FileSystemObject")
'比較対象のファイル名を取得
INFILE1 = "aclInlog.txt"
OUTFILE1 = "aclOulog.txt"
wscript.echo now
Call ACLS
wscript.echo now
Set objFSO = Nothing
wscript.Quit
'************************************************
'************************************************
Sub ACLS
Dim iOutCnt1
Dim objOutFile1 'As Object ' TextStream
Dim iPCnt1
Dim objInFile1 'As Object ' TextStream
Dim sINPUTDATA1
Dim sINPUTDATA1NEXT
Dim INPUT1STATUS
Dim sScriptFullName
sScriptFullName = Wscript.ScriptFullName
WScript.Echo sScriptFullName
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 指定ファイルをOPEN(入力モード)
Set objInFile1 = objFSO.OpenTextFile(INFILE1, 1)
iPCnt1 = 0
' 指定ファイルをOPEN(出力モード)
Set objOutFile1 = objFSO.CreateTextFile(OUTFILE1)
iOutCnt1 = 0
sINPUTDATA1 = ""
wscript.echo "+++++++++++++++++"
Dim iPos
iPos = 0
Do
sINPUTDATA1 = objInFile1.ReadLine
iPCnt1 = iPCnt1 + 1
WScript.Echo sINPUTDATA1
iPos = InstrRev(sINPUTDATA1,vbcr)
If iPos > 0 then
sINPUTDATA1 = mid(sINPUTDATA1,1,ipos-1)
Do
sINPUTDATA1NEXT = objInFile1.ReadLine
iPos = InstrRev(sINPUTDATA1,":")
If iPos > 0 Then
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
exit Do
Else
sINPUTDATA1 = sINPUTDATA1 & sINPUTDATA1NEXT
End If
Loop
Else
objOutFile1.WriteLine sINPUTDATA1 ' 改行(CrLf)付き
iOutCnt1 = iOutCnt1 + 1
End if
If objInFile1.AtEndOfStream Then
Exit Do
End If
'wscript.echo sINPUTDATA1
Loop '入力行を次々続ける
objOutFile1.Close
Set objOutFile1 = Nothing
'指定ファイルをClose(入力モード)
objInFile1.Close
Set objInFile1 = Nothing
End Sub
2015年8月7日金曜日
2015年8月1日土曜日
moji okikae
' 合計 コピー済み スキップ 不一致 失敗 Extras
' ディレクトリ: 1 0 0 0 0 0
' ファイル: 2 1 1 0 0 0
' バイト: 8.40 m 4.20 m 4.20 m 0 0 0
' 時刻: 0:00:00 0:00:00 0:00:00 0:00:00
'Total Copied Skipped Mismatch FAILED Extras
IVal = trim(" 合計 コピー済み スキップ 不一致 失敗 Extras")
'IVal = trim(" Dirs : 8568 118 8450 0 0 101")
'IVal = trim(" Files : 92252 649 91588 0 15 355")
'IVal = trim(" Bytes :150117.417 g 130.72 m149385.290 g 0 11.1 k 52.96 m")
IVal = IVal & " "
OVal = ""
Do While InStr(1, IVal, " ")
IVal = Replace(IVal, "合計 ", "Total ")
IVal = Replace(IVal, "コピー済み ", "Copied ")
IVal = Replace(IVal, "スキップ ", "Skipped ")
IVal = Replace(IVal, "不一致 ", "Mismatch ")
IVal = Replace(IVal, "失敗 ", "FAILED ")
IVal = Replace(IVal, "Extras ", "Extras ")
IVal = Replace(IVal, " g", "g")
IVal = Replace(IVal, " m", "m")
IVal = Replace(IVal, " k", "k")
IVal = Replace(IVal, " ", " ")
Loop
WScript.Echo "IVal=" & IVal
WScript.Echo "iMaxLen=" & iMaxLen & " iPos=" & iPos
WScript.Quit
2015年7月21日火曜日
ああ
Option Explicit
Dim objFileSys
Dim sScriptPath
Dim sReadFile
Dim sWriteFile
Dim objRStream
Dim objWStream
Dim sText
Dim lPos
Dim lLen
Dim sInput
Dim sPath
Dim sFile
Dim sString
Dim sSearch
Dim sFrFull
Dim sToFull
Dim sXFrFull
Dim sXToFull
Dim sStmt
Dim sOpts
Dim log
Set objFileSys = CreateObject("Scripting.FileSystemObject")
sScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
sReadFile = objFileSys.BuildPath(sScriptPath,"aa.txt")
sWriteFile = objFileSys.BuildPath(sScriptPath,"WriteData.txt")
Set objRStream = objFileSys.OpenTextFile(sReadFile, 1)
Set objWStream = objFileSys.OpenTextFile(sWriteFile, 2, True)
sXFrFull = "E:\"
sXToFull = "D:\"
'sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE /L"
sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE"
log ="/LOG+:C:\Users\draftmaster\Desktop\logtest.txt"
Dim sOpt2
sOpt2 = "/MIR /ZB"
lPos = 0
lPos = 0
'WScript.echo "ff=" & sReadFile
Do Until objRStream.AtEndOfStream = True
sText = objRStream.ReadLine
sInput = "aab\bb\cc.txt" '検索対象の文字列
sString = Trim(sText)
lLen = Len(sString)
lPos = InstrRev(sString, "\")
sPath = Mid(sString,1,lPos - 1)
sFile = Mid(sString, lPos + 1,lLen - lPos)
sFrFull = sXFrFull & sPath
sToFull = sXToFull & sPath
sStmt = "Robocopy.exe " & sFrFull & " " & sToFull & " " & sFile & " " & sOpts & " " & log & " " & sOpt2
' WScript.echo "sStmt=" & sStmt
objWStream.WriteLine sStmt
Loop
objRStream.Close
objWStream.Close
Set objRStream = Nothing
Set objWStream = Nothing
Set objFileSys = Nothing
Dim objFileSys
Dim sScriptPath
Dim sReadFile
Dim sWriteFile
Dim objRStream
Dim objWStream
Dim sText
Dim lPos
Dim lLen
Dim sInput
Dim sPath
Dim sFile
Dim sString
Dim sSearch
Dim sFrFull
Dim sToFull
Dim sXFrFull
Dim sXToFull
Dim sStmt
Dim sOpts
Dim log
Set objFileSys = CreateObject("Scripting.FileSystemObject")
sScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
sReadFile = objFileSys.BuildPath(sScriptPath,"aa.txt")
sWriteFile = objFileSys.BuildPath(sScriptPath,"WriteData.txt")
Set objRStream = objFileSys.OpenTextFile(sReadFile, 1)
Set objWStream = objFileSys.OpenTextFile(sWriteFile, 2, True)
sXFrFull = "E:\"
sXToFull = "D:\"
'sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE /L"
sOpts = "/COPY:DATSO /V /R:1 /W:1 /FP /TS /TEE"
log ="/LOG+:C:\Users\draftmaster\Desktop\logtest.txt"
Dim sOpt2
sOpt2 = "/MIR /ZB"
lPos = 0
lPos = 0
'WScript.echo "ff=" & sReadFile
Do Until objRStream.AtEndOfStream = True
sText = objRStream.ReadLine
sInput = "aab\bb\cc.txt" '検索対象の文字列
sString = Trim(sText)
lLen = Len(sString)
lPos = InstrRev(sString, "\")
sPath = Mid(sString,1,lPos - 1)
sFile = Mid(sString, lPos + 1,lLen - lPos)
sFrFull = sXFrFull & sPath
sToFull = sXToFull & sPath
sStmt = "Robocopy.exe " & sFrFull & " " & sToFull & " " & sFile & " " & sOpts & " " & log & " " & sOpt2
' WScript.echo "sStmt=" & sStmt
objWStream.WriteLine sStmt
Loop
objRStream.Close
objWStream.Close
Set objRStream = Nothing
Set objWStream = Nothing
Set objFileSys = Nothing
2015年7月18日土曜日
url
(http://hotfixv4.microsoft.com/Windows%20Vista/sp2/Fix227587/6000/free/345471_intl_x64_zip.exe)
http://jp.fujitsu.com/platform/server/primergy/technical/construct/pdf/win2008-fileserver-tips.pdf
http://superuser.com/questions/734095/robocopy-error-1314-0x00000522-on-windows-7-home-premium
-------------------------------------------------------------------------------------------------
I've got data in my domain (domainA) which I need to copy to another domain (domainB) with which I have a two-way domain wide external AD trust.
So I have a management machine in domainA. I've got the admins in domainB to create an account for me and have given it full control to a share in domainB. On the source data in domainA I have given the account from domainB full control. Both drives mapped and I can do a manual copy between shares.
robocopy y: z: /MIR /ZB /W:5
Y: = Source
Z: = Destination
I keep getting the error:
2010/04/22 11:09:07 ERROR 5 (0x00000005) Copying File Y:\Neels.docx
Access is denied.
Waiting 0 seconds... Retrying...
I would like the NTFS permissions to be copied over also - please help. Thanks, N
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
No, but it may delete files at the destination.
If files contained in the destination do not exist in the source, they are purged.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
https://social.technet.microsoft.com/Forums/windowsserver/en-US/b36748cd-14d1-47a5-9fb6-878ca93ad6fc/robocopy-not-copying-ntfs-permissions
http://jp.fujitsu.com/platform/server/primergy/technical/construct/pdf/win2008-fileserver-tips.pdf
http://superuser.com/questions/734095/robocopy-error-1314-0x00000522-on-windows-7-home-premium
-------------------------------------------------------------------------------------------------
I've got data in my domain (domainA) which I need to copy to another domain (domainB) with which I have a two-way domain wide external AD trust.
So I have a management machine in domainA. I've got the admins in domainB to create an account for me and have given it full control to a share in domainB. On the source data in domainA I have given the account from domainB full control. Both drives mapped and I can do a manual copy between shares.
robocopy y: z: /MIR /ZB /W:5
Y: = Source
Z: = Destination
I keep getting the error:
2010/04/22 11:09:07 ERROR 5 (0x00000005) Copying File Y:\Neels.docx
Access is denied.
Waiting 0 seconds... Retrying...
I would like the NTFS permissions to be copied over also - please help. Thanks, N
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
No, but it may delete files at the destination.
If files contained in the destination do not exist in the source, they are purged.
@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
https://social.technet.microsoft.com/Forums/windowsserver/en-US/b36748cd-14d1-47a5-9fb6-878ca93ad6fc/robocopy-not-copying-ntfs-permissions
2015年7月12日日曜日
ExtrasList.bat
@echo off
Set ExtrasListPGM=ExtrasList.vbs
:: 必要に応じてファイルを変更する!
Set BaseFile=o.txt
Set COMPFile=p.txt
Set RESLFile=w.txt
Set ExcdFile=x.txt
ECHO *******************************************
ECHO cscript scripts\%ExtrasListPGM% %BaseFile% %COMPFile% %RESLFile% %ExcdFile%
ECHO ********************************************
cscript //nologo scripts\%ExtrasListPGM% %BaseFile% %COMPFile% %RESLFile% %ExcdFile%
IF %ERRORLEVEL% EQU 0 GOTO ERR0
IF %ERRORLEVEL% NEQ 0 GOTO ERR9
EXIT
:ERR0
ECHO %ERRORLEVEL% **正常**
pause
::EXIT
:ERR9
ECHO %ERRORLEVEL% **エラー**
pause
::EXIT
pause
ExtrasList.vbs
Option Explicit
Dim objFileSys
Dim objOStream
Dim objPStream
Dim objWStream
Dim objXStream
Dim sScriptPath
Dim sFilePath
Dim sOFile
Dim sPFile
Dim sWFile
Dim sXFile
Dim OFILE
Dim PFILE
Dim WFILE
Dim XFILE
'データ
Dim sOtext
Dim sPtext
'カウンター
Dim iOCnt
Dim iPCnt
Dim iWCnt
Dim iXCnt
'外部パラメータ
Dim iArgCnt
'外部パラメータ初期化
OFILE = "o.txt"
PFILE = "p.txt"
WFILE = "w.txt"
XFILE = "x.txt"
iArgCnt = WScript.Arguments.Count
If iArgCnt = 4 Then
OFILE = WScript.Arguments(0)
PFILE = WScript.Arguments(1)
WFILE = WScript.Arguments(2)
XFILE = WScript.Arguments(3)
Else
OFILE = "o.txt"
PFILE = "p.txt"
WFILE = "w.txt"
XFILE = "x.txt"
End If
WScript.Sleep 1000
'環境設定
Set objFileSys = CreateObject("Scripting.FileSystemObject")
sScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
sFilePath = Replace(sScriptPath,"scripts\","")
'WScript.echo sScriptPath & " " & sFilePath
sOFile = objFileSys.BuildPath(sFilePath,OFILE)
sPFile = objFileSys.BuildPath(sFilePath,PFILE)
sWFile = objFileSys.BuildPath(sFilePath,WFILE)
sXFile = objFileSys.BuildPath(sFilePath,XFILE)
'ファイルに存在チェックとオープン
If objFileSys.FileExists(sOFile) Then
Set objOStream = objFileSys.OpenTextFile(sOFile, 1)
Else
WScript.Echo "Open Error " & sOFile
Wscript.Quit(9)
End If
If objFileSys.FileExists(sPFile) Then
Set objPStream = objFileSys.OpenTextFile(sPFile, 1)
Else
WScript.Echo "Open Error " & sPFile
Wscript.Quit(9)
End If
Set objWStream = objFileSys.OpenTextFile(sWFile, 2, True)
Set objXStream = objFileSys.OpenTextFile(sXFile, 2, True)
'カウンター初期化
iOCnt = 0
iPCnt = 0
iWCnt = 0
iXCnt = 0
Do Until objOStream.AtEndOfStream = True
sOtext = objOStream.ReadLine
iOCnt = iOCnt + 1
'WScript.echo "O=" & sOtext
Do Until objPStream.AtEndOfStream = True or sOtext <= sPtext If sOtext > sPtext Then
sPtext = objPStream.ReadLine
iPCnt = iPCnt + 1
'WScript.echo " P=" & sPtext
End If
Loop
If sOtext = sPtext Then
objWStream.WriteLine sOtext
iWCnt = iWCnt + 1
'WScript.echo " W=" & sOtext
Else
objXStream.WriteLine sOtext
iXCnt = iXCnt + 1
'WScript.echo "■X=" & sOtext
End If
Loop
WScript.echo WScript.ScriptFullName
WScript.echo " " & sOFile & " SORCE :" & iOCnt
WScript.echo " " & sPFile & " MATCHING :" & iPCnt
WScript.echo " " & sWFile & " RES MATCH :" & iWCnt
WScript.echo " " & sXFile & " RES UNMACH :" & iXCnt
objOStream.Close
objPStream.Close
objWStream.Close
objXStream.Close
Set objOStream = Nothing
Set objPStream = Nothing
Set objWStream = Nothing
Set objXStream = Nothing
Set objFileSys = Nothing
Wscript.Quit(0)
Dim objFileSys
Dim objOStream
Dim objPStream
Dim objWStream
Dim objXStream
Dim sScriptPath
Dim sFilePath
Dim sOFile
Dim sPFile
Dim sWFile
Dim sXFile
Dim OFILE
Dim PFILE
Dim WFILE
Dim XFILE
'データ
Dim sOtext
Dim sPtext
'カウンター
Dim iOCnt
Dim iPCnt
Dim iWCnt
Dim iXCnt
'外部パラメータ
Dim iArgCnt
'外部パラメータ初期化
OFILE = "o.txt"
PFILE = "p.txt"
WFILE = "w.txt"
XFILE = "x.txt"
iArgCnt = WScript.Arguments.Count
If iArgCnt = 4 Then
OFILE = WScript.Arguments(0)
PFILE = WScript.Arguments(1)
WFILE = WScript.Arguments(2)
XFILE = WScript.Arguments(3)
Else
OFILE = "o.txt"
PFILE = "p.txt"
WFILE = "w.txt"
XFILE = "x.txt"
End If
WScript.Sleep 1000
'環境設定
Set objFileSys = CreateObject("Scripting.FileSystemObject")
sScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
sFilePath = Replace(sScriptPath,"scripts\","")
'WScript.echo sScriptPath & " " & sFilePath
sOFile = objFileSys.BuildPath(sFilePath,OFILE)
sPFile = objFileSys.BuildPath(sFilePath,PFILE)
sWFile = objFileSys.BuildPath(sFilePath,WFILE)
sXFile = objFileSys.BuildPath(sFilePath,XFILE)
'ファイルに存在チェックとオープン
If objFileSys.FileExists(sOFile) Then
Set objOStream = objFileSys.OpenTextFile(sOFile, 1)
Else
WScript.Echo "Open Error " & sOFile
Wscript.Quit(9)
End If
If objFileSys.FileExists(sPFile) Then
Set objPStream = objFileSys.OpenTextFile(sPFile, 1)
Else
WScript.Echo "Open Error " & sPFile
Wscript.Quit(9)
End If
Set objWStream = objFileSys.OpenTextFile(sWFile, 2, True)
Set objXStream = objFileSys.OpenTextFile(sXFile, 2, True)
'カウンター初期化
iOCnt = 0
iPCnt = 0
iWCnt = 0
iXCnt = 0
Do Until objOStream.AtEndOfStream = True
sOtext = objOStream.ReadLine
iOCnt = iOCnt + 1
'WScript.echo "O=" & sOtext
Do Until objPStream.AtEndOfStream = True or sOtext <= sPtext If sOtext > sPtext Then
sPtext = objPStream.ReadLine
iPCnt = iPCnt + 1
'WScript.echo " P=" & sPtext
End If
Loop
If sOtext = sPtext Then
objWStream.WriteLine sOtext
iWCnt = iWCnt + 1
'WScript.echo " W=" & sOtext
Else
objXStream.WriteLine sOtext
iXCnt = iXCnt + 1
'WScript.echo "■X=" & sOtext
End If
Loop
WScript.echo WScript.ScriptFullName
WScript.echo " " & sOFile & " SORCE :" & iOCnt
WScript.echo " " & sPFile & " MATCHING :" & iPCnt
WScript.echo " " & sWFile & " RES MATCH :" & iWCnt
WScript.echo " " & sXFile & " RES UNMACH :" & iXCnt
objOStream.Close
objPStream.Close
objWStream.Close
objXStream.Close
Set objOStream = Nothing
Set objPStream = Nothing
Set objWStream = Nothing
Set objXStream = Nothing
Set objFileSys = Nothing
Wscript.Quit(0)
2015年7月10日金曜日
AAAAAAA
Option Explicit
Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim sText
Dim iPos
Dim sDataNew
Dim sDataOld
Dim KEYWARD
KEYWARD = "E:\copy\"
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strReadFile = objFileSys.BuildPath(strScriptPath,"aa.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"WriteData.txt")
Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)
iPos = 0
sDataNew = ""
sDataOld = ""
Do Until objReadStream.AtEndOfStream = True
sText = objReadStream.ReadLine
'#文字検索し、検索文字以降を出力対象にする
iPos = InStr(sText,KEYWARD)
If iPos <> 0 Then
sDataNew = Mid(sText,iPos)
'sDataNew = iPos
'#出力対象行の比較をし、内容が異なれば出力する
If sDataNew <> sDataOld Then
objWriteStream.WriteLine sDataNew
WScript.echo sDataNew
End If
sDataOld = sDataNew
End If
Loop
objReadStream.Close
objWriteStream.Close
Set objReadStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing
Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim sText
Dim iPos
Dim sDataNew
Dim sDataOld
Dim KEYWARD
KEYWARD = "E:\copy\"
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strReadFile = objFileSys.BuildPath(strScriptPath,"aa.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"WriteData.txt")
Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)
iPos = 0
sDataNew = ""
sDataOld = ""
Do Until objReadStream.AtEndOfStream = True
sText = objReadStream.ReadLine
'#文字検索し、検索文字以降を出力対象にする
iPos = InStr(sText,KEYWARD)
If iPos <> 0 Then
sDataNew = Mid(sText,iPos)
'sDataNew = iPos
'#出力対象行の比較をし、内容が異なれば出力する
If sDataNew <> sDataOld Then
objWriteStream.WriteLine sDataNew
WScript.echo sDataNew
End If
sDataOld = sDataNew
End If
Loop
objReadStream.Close
objWriteStream.Close
Set objReadStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing
2015年7月5日日曜日
NTP
https://support.microsoft.com/ja-jp/kb/2842683/ja
http://www.atmarkit.co.jp/ait/articles/0508/12/news089.html
http://www.atmarkit.co.jp/ait/articles/1502/13/news147.html
https://social.technet.microsoft.com/Forums/windowsserver/ja-JP/94a68eb1-1ca0-47f7-b333-d8808e67ff07/robocopy?forum=winserver8
2015年7月1日水曜日
文字置き換え(テキストファイル行単位)
Option Explicit
Dim objFileSys
Dim strScriptPath
Dim strReadFile
Dim strWriteFile
Dim objReadStream
Dim objWriteStream
Dim strText
Set objFileSys = CreateObject("Scripting.FileSystemObject")
strScriptPath = Replace(WScript.ScriptFullName,WScript.ScriptName,"")
strReadFile = objFileSys.BuildPath(strScriptPath,"TestData.txt")
strWriteFile = objFileSys.BuildPath(strScriptPath,"WriteData.txt")
WScript.echo WScript.ScriptFullName
WScript.echo WScript.ScriptName
Set objReadStream = objFileSys.OpenTextFile(strReadFile, 1)
Set objWriteStream = objFileSys.OpenTextFile(strWriteFile, 2, True)
Do Until objReadStream.AtEndOfStream = True
strText = objReadStream.ReadLine
Dim strString
'WScript.echo strText
'文字列の最初から、バイナリ モードで比較を行います。"YXXYXXPXXY"を返します。
strString = Replace(strText, "失敗", "FAILD")
'objWriteStream.WriteLine strText
objWriteStream.WriteLine strString
Loop
objReadStream.Close
objWriteStream.Close
Set objReadStream = Nothing
Set objWriteStream = Nothing
Set objFileSys = Nothing
Dir一覧(ROBO)
:開始
@ECHO off
:: =============環境に応じて、修正してください。=====================================
:: MODE:
:: G :確認画面を表示しない 実際のコピーをする
:: L :
:: none :確認画面を表示する コピー実行する
::
SET DIR_SRC_PATH=E:\copy\from
SET DIR_DST_PATH=E:\copy\to
SET DIR_LOG_PATH=E:\log\radius
:: ==================================================================================
IF "%1"=="" (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
) ELSE (
IF "%1"=="L" (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
) ELSE (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
)
)
SET File_sel_OPTIONS=
SET Retry_OPTIONS=/R:0 /W:1
SET YYYYMMDD=%date:~0,4%%date:~5,2%%date:~8,2%
SET Time_edit=%time: =0%
SET HHMMSS=%Time_edit:~0,2%%Time_edit:~3,2%%Time_edit:~6,2%
SET LOG_FILE=%DIR_LOG_PATH%\%YYYYMMDD%_%HHMMSS%.log
SET Log_OPTIONS=/NC /NFL /NP /TEE /LOG:%LOG_FILE%
SET Excludes_files="" ""
SET Excludes_dir="" "" ""
:: --------------------------------------------------------------
SET OPTIONS=%Copy_OPTIONS% %File_sel_OPTIONS% %Retry_OPTIONS% %Log_OPTIONS%
:: 自動生成、ROBOCOPY実行コマンドを画面表示で確認する
ECHO.
ECHO ↓↓↓↓↓ 自動生成、ROBOCOPY実行コマンド ここから ↓↓↓↓↓
ECHO.
ECHO robocopy.exe %DIR_SRC_PATH% %DIR_DST_PATH% %OPTIONS%
ECHO.
ECHO ↑↑↑↑↑ 自動生成、ROBOCOPY実行コマンド ここまで ↑↑↑↑↑
SET Console_input=""
ECHO ******************************************************************************
ECHO * 重要!! バッチ処理実行確認
ECHO * ROBOモード :%ROBOMODE%
ECHO * コピー元 :%DIR_SRC_PATH%
ECHO * コピー先 :%DIR_DST_PATH%
ECHO * 移行ログパス :%DIR_LOG_PATH%
ECHO * 移行ログ名前 :%LOG_FILE%
ECHO *
ECHO * 自動生成した、ROBOCOPY実行コマンドを確認し、処理続行選択について、
ECHO * 以下のように入力(大文字と小文字は区別なし)。
ECHO *
ECHO * start :ROBOCOPYの実行を開始します
ECHO * quit :ROBOCOPYの実行を中止し、当バッチ処理を中止
ECHO * 上記以外の文字:当バッチ処理の先頭に戻ります
ECHO ******************************************************************************
ECHO %1
IF "%1"=="G" GOTO ROBOCOPY実行
SET /P Console_input="処理続行選択(上記参照) : "
IF /I "%Console_input%"=="quit" EXIT
IF /I "%Console_input%"=="start" GOTO ROBOCOPY実行
GOTO 開始
pause
:ROBOCOPY実行
robocopy.exe %DIR_SRC_PATH% %DIR_DST_PATH% %OPTIONS%
::ECHO %ERRORLEVEL%
IF %ERRORLEVEL%==16 ECHO ***FATAL ERROR*** & GOTO END
IF %ERRORLEVEL%==8 ECHO **FAILED COPIES** & GOTO END
IF %ERRORLEVEL%==4 ECHO *MISMATCHES* & GOTO END
IF %ERRORLEVEL%==3 ECHO *XTRA COPY* & GOTO END
IF %ERRORLEVEL%==2 ECHO *EXTRA FILES* & GOTO END
IF %ERRORLEVEL%==1 ECHO *Copy successful* & GOTO END
IF %ERRORLEVEL%==0 ECHO ***no change***** & GOTO END
:END
IF "%1"=="G" GOTO ROBOCOPY終了
pause
:ROBOCOPY終了
::EXIT /b %ERRORLEVEL%
EXIT /b 0
@ECHO off
:: =============環境に応じて、修正してください。=====================================
:: MODE:
:: G :確認画面を表示しない 実際のコピーをする
:: L :
:: none :確認画面を表示する コピー実行する
::
SET DIR_SRC_PATH=E:\copy\from
SET DIR_DST_PATH=E:\copy\to
SET DIR_LOG_PATH=E:\log\radius
:: ==================================================================================
IF "%1"=="" (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
) ELSE (
IF "%1"=="L" (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
) ELSE (
SET Copy_OPTIONS=/COPY:DATSO /E /PURGE /L
)
)
SET File_sel_OPTIONS=
SET Retry_OPTIONS=/R:0 /W:1
SET YYYYMMDD=%date:~0,4%%date:~5,2%%date:~8,2%
SET Time_edit=%time: =0%
SET HHMMSS=%Time_edit:~0,2%%Time_edit:~3,2%%Time_edit:~6,2%
SET LOG_FILE=%DIR_LOG_PATH%\%YYYYMMDD%_%HHMMSS%.log
SET Log_OPTIONS=/NC /NFL /NP /TEE /LOG:%LOG_FILE%
SET Excludes_files="" ""
SET Excludes_dir="" "" ""
:: --------------------------------------------------------------
SET OPTIONS=%Copy_OPTIONS% %File_sel_OPTIONS% %Retry_OPTIONS% %Log_OPTIONS%
:: 自動生成、ROBOCOPY実行コマンドを画面表示で確認する
ECHO.
ECHO ↓↓↓↓↓ 自動生成、ROBOCOPY実行コマンド ここから ↓↓↓↓↓
ECHO.
ECHO robocopy.exe %DIR_SRC_PATH% %DIR_DST_PATH% %OPTIONS%
ECHO.
ECHO ↑↑↑↑↑ 自動生成、ROBOCOPY実行コマンド ここまで ↑↑↑↑↑
SET Console_input=""
ECHO ******************************************************************************
ECHO * 重要!! バッチ処理実行確認
ECHO * ROBOモード :%ROBOMODE%
ECHO * コピー元 :%DIR_SRC_PATH%
ECHO * コピー先 :%DIR_DST_PATH%
ECHO * 移行ログパス :%DIR_LOG_PATH%
ECHO * 移行ログ名前 :%LOG_FILE%
ECHO *
ECHO * 自動生成した、ROBOCOPY実行コマンドを確認し、処理続行選択について、
ECHO * 以下のように入力(大文字と小文字は区別なし)。
ECHO *
ECHO * start :ROBOCOPYの実行を開始します
ECHO * quit :ROBOCOPYの実行を中止し、当バッチ処理を中止
ECHO * 上記以外の文字:当バッチ処理の先頭に戻ります
ECHO ******************************************************************************
ECHO %1
IF "%1"=="G" GOTO ROBOCOPY実行
SET /P Console_input="処理続行選択(上記参照) : "
IF /I "%Console_input%"=="quit" EXIT
IF /I "%Console_input%"=="start" GOTO ROBOCOPY実行
GOTO 開始
pause
:ROBOCOPY実行
robocopy.exe %DIR_SRC_PATH% %DIR_DST_PATH% %OPTIONS%
::ECHO %ERRORLEVEL%
IF %ERRORLEVEL%==16 ECHO ***FATAL ERROR*** & GOTO END
IF %ERRORLEVEL%==8 ECHO **FAILED COPIES** & GOTO END
IF %ERRORLEVEL%==4 ECHO *MISMATCHES* & GOTO END
IF %ERRORLEVEL%==3 ECHO *XTRA COPY* & GOTO END
IF %ERRORLEVEL%==2 ECHO *EXTRA FILES* & GOTO END
IF %ERRORLEVEL%==1 ECHO *Copy successful* & GOTO END
IF %ERRORLEVEL%==0 ECHO ***no change***** & GOTO END
:END
IF "%1"=="G" GOTO ROBOCOPY終了
pause
:ROBOCOPY終了
::EXIT /b %ERRORLEVEL%
EXIT /b 0
2015年6月23日火曜日
DFS Links
http://jehupc.exblog.jp/13917467/
http://piro-shiki.dreamlog.jp/archives/36197091.html
http://thinkit.co.jp/article/789/1
lllllllllllllllllllllllllllllll
http://japan.emc.com/microsites/japan/products-selector/celerra-ns-series.htm
http://japan.emc.com/microsites/japan/techcommunity/pdf/h6861-j-introduction-celerra-unified-storage-wp.pdf
http://fe.bcnranking.jp/free/contents/biz/bcn_seminar/bcn_seminar_20110412_4.pdf
http://fe.bcnranking.jp/free/contents/biz/bcn_seminar/bcn_seminar_20110412_4.pdf
http://piro-shiki.dreamlog.jp/archives/36197091.html
http://thinkit.co.jp/article/789/1
lllllllllllllllllllllllllllllll
http://japan.emc.com/microsites/japan/products-selector/celerra-ns-series.htm
http://japan.emc.com/microsites/japan/techcommunity/pdf/h6861-j-introduction-celerra-unified-storage-wp.pdf
http://fe.bcnranking.jp/free/contents/biz/bcn_seminar/bcn_seminar_20110412_4.pdf
http://fe.bcnranking.jp/free/contents/biz/bcn_seminar/bcn_seminar_20110412_4.pdf
2015年5月20日水曜日
EMC
https://community.emc.com/message/746071
■ESRS (EMC Secure Remote Support)について
1. Windows OSインストール
Windows Server 2008 R2, 64-bit, SP1 (日本語版)
–言語を英語に
•下記リンクよりLanguage Packsをダウンロード
–2008 R2 : http://www.microsoft.com/download/en/details.aspx?id=2634
–2008 R2 : ダウンロードしたファイルのインストール実施
[スタート]-[コントロール パネル]-[時計、言語、および地域]-[表示言語の変更] をクリック
[地域と言語] ウィンドウ内の[キーボードと言語] タブを選択、
表示言語を「日本語」 から「English」に 変更後、[OK] ボタンをクリック
2. アプリケーションインストール
–下記アプリケーションのインストール・確認をする
•IIS (FTP, SMTP)サービスのインストール
–Server Manager - Roles から Add Roles をクリック
IIS Management Scripts and Tools
IIS 6 Management Compatibility
IIS 6 Metabase Compatibility
IIS 6 WMI Compatibility
IIS 6 Scripting Tools
IIS 6 Management Console
FTP server
–Server Manager - Features から Add Features をクリック
SMTP server
Telnet Client
•Microsoft .NET Framework 2.0 SP1以降 (2.0,3.0,3.5のいずれか。4.0は未対応)
–OSに付属する標準の.NET Framework が2.0,3.0,3.5のいずれかである事を確認
•Microsoft Visual C++ 2005 SP1 Runtime Library
–OSに付属する標準のRuntimeを使用する
3. FTPユーザー作成
–下記FTPユーザーの作成
•Server Manager – Configuration – Local Users and Groups – Users を右クリックで New user を選択
–OnAlert
User Name : OnAlert
Password : EMCCONNECT
Confirm Password : EMCCONNECT
Account Password ポリシーは以下の2つのみチェック
User cannot change password
Passowrd never expires
–ESRSConfig
User Name : ESRSConfig
Password : esrsconfig
Confirm Password : esrsconfig
Account Password ポリシーは以下の2つのみチェック
User cannot change password
Passowrd never expires
4. TCP Port 443,8443 Open
–Gateway ClientサーバからEMCに対しTCP Port 443,8443 のOpenしておく
•Outbound のみのOpen でInbound は必要なし
•EMC の個別IPアドレスが必要な場合参照する
5. CECT(環境チェックツール)実行・Log取得
最新版はsupport.emc.com にて ESRS_Customer_Environment_Check_Tool で検索。
Windows用:https://download.emc.com/downloads/DL16993_ESRS_Customer_Environment_Check_Tool_(CECT)_for_Windows,_Release_2.20.msi
CECT 2.22のリンクを張っておきます
Windows用 https://download.emc.com/downloads/DL16993_ESRS_Customer_Environment_Check_Tool_(CECT)_for_Windows,_Release_2.22.msi
Rev2.16の実行手順を参考までに添付いたします。
https://community.emc.com/servlet/JiveServlet/download/677503-52866/CECT%E5%AE%9F%E6%96%BD%E6%89%8B%E9%A0%86%E6%9B%B8_v2%2016_r1.pdf
6. Pre-Site Checklist記入
※https://support.emc.com/docu9910_EMC_Secure_Remote_Support_IP_Solution_Pre-Site_Checklist.doc?language=en_US
記載方法の参考資料は添付のPDFをご確認
2-ESRS2_Pre-Site_Checklist_Reference_rev3.0.pdf
https://community.emc.com/servlet/JiveServlet/download/756549-89473/2-ESRS2_Pre-Site_Checklist_Reference_rev3.0.pdf
5.6をEMC担当者に送る
ESRSの設定作業はEMCカスタマーサポート担当までお問い合わせください。
その際には、サーバのセットアップが済んだ状態で、
CECT(Customer Environment Check Tool)にてセットアップが可能な状態かチェックをします。
お問い合わせの際にはCECTの実行ログが必要となりますので、事前にLog採取をした上でお問い合わせください。
0000000000000000000000000000000000000000000000000000000000000
説明資料の動画ツール
https://community.emc.com/servlet/JiveServlet/download/704531-57050/Japanese.zip
00000000000000000000000000000000000000000000000000000000000000
ESRS v2であれば、Windows server 2012 R1まで対応しています。
※R2は非対応、2012 R1の日本語OSも非対応です。
なお、ESRSは、既にメジャーバージョンアップ版(v3)のESRS VE (ESRS Virtual Edition)というSWがリリースされています。
ESRS v3ですと、お客様がOSを用意する必要がなくなります。
ESXiへOVF templateをImportおよびOS image(SUSE Linux)を展開し、ESRSの設定を有効化するとESRSを実現出来ます。
(またはHyper-Vでも可能)
もし、新規でESRSを検討されている場合、ライフサイクルおよびOSの用意の観点等からESRSv3をお勧めいたします。
上記に示しますようにESRSのメジャーバージョンアップ版リリースに伴い、
今後、ESRS v2の2012 R2のサポートおよび2012 R1の日本語OS対応は厳しい可能性が極めて高いです。
(いくつかの事例で、特別申請等を実施しても、全てREJECT、という結果のため)
https://community.emc.com/servlet/JiveServlet/download/844713-97525/ESRSv2_SupportedOS_Matrix_20141022.pdf
■ESRS (EMC Secure Remote Support)について
1. Windows OSインストール
Windows Server 2008 R2, 64-bit, SP1 (日本語版)
–言語を英語に
•下記リンクよりLanguage Packsをダウンロード
–2008 R2 : http://www.microsoft.com/download/en/details.aspx?id=2634
–2008 R2 : ダウンロードしたファイルのインストール実施
[スタート]-[コントロール パネル]-[時計、言語、および地域]-[表示言語の変更] をクリック
[地域と言語] ウィンドウ内の[キーボードと言語] タブを選択、
表示言語を「日本語」 から「English」に 変更後、[OK] ボタンをクリック
2. アプリケーションインストール
–下記アプリケーションのインストール・確認をする
•IIS (FTP, SMTP)サービスのインストール
–Server Manager - Roles から Add Roles をクリック
IIS Management Scripts and Tools
IIS 6 Management Compatibility
IIS 6 Metabase Compatibility
IIS 6 WMI Compatibility
IIS 6 Scripting Tools
IIS 6 Management Console
FTP server
–Server Manager - Features から Add Features をクリック
SMTP server
Telnet Client
•Microsoft .NET Framework 2.0 SP1以降 (2.0,3.0,3.5のいずれか。4.0は未対応)
–OSに付属する標準の.NET Framework が2.0,3.0,3.5のいずれかである事を確認
•Microsoft Visual C++ 2005 SP1 Runtime Library
–OSに付属する標準のRuntimeを使用する
3. FTPユーザー作成
–下記FTPユーザーの作成
•Server Manager – Configuration – Local Users and Groups – Users を右クリックで New user を選択
–OnAlert
User Name : OnAlert
Password : EMCCONNECT
Confirm Password : EMCCONNECT
Account Password ポリシーは以下の2つのみチェック
User cannot change password
Passowrd never expires
–ESRSConfig
User Name : ESRSConfig
Password : esrsconfig
Confirm Password : esrsconfig
Account Password ポリシーは以下の2つのみチェック
User cannot change password
Passowrd never expires
4. TCP Port 443,8443 Open
–Gateway ClientサーバからEMCに対しTCP Port 443,8443 のOpenしておく
•Outbound のみのOpen でInbound は必要なし
•EMC の個別IPアドレスが必要な場合参照する
5. CECT(環境チェックツール)実行・Log取得
最新版はsupport.emc.com にて ESRS_Customer_Environment_Check_Tool で検索。
Windows用:https://download.emc.com/downloads/DL16993_ESRS_Customer_Environment_Check_Tool_(CECT)_for_Windows,_Release_2.20.msi
CECT 2.22のリンクを張っておきます
Windows用 https://download.emc.com/downloads/DL16993_ESRS_Customer_Environment_Check_Tool_(CECT)_for_Windows,_Release_2.22.msi
Rev2.16の実行手順を参考までに添付いたします。
https://community.emc.com/servlet/JiveServlet/download/677503-52866/CECT%E5%AE%9F%E6%96%BD%E6%89%8B%E9%A0%86%E6%9B%B8_v2%2016_r1.pdf
6. Pre-Site Checklist記入
※https://support.emc.com/docu9910_EMC_Secure_Remote_Support_IP_Solution_Pre-Site_Checklist.doc?language=en_US
記載方法の参考資料は添付のPDFをご確認
2-ESRS2_Pre-Site_Checklist_Reference_rev3.0.pdf
https://community.emc.com/servlet/JiveServlet/download/756549-89473/2-ESRS2_Pre-Site_Checklist_Reference_rev3.0.pdf
5.6をEMC担当者に送る
ESRSの設定作業はEMCカスタマーサポート担当までお問い合わせください。
その際には、サーバのセットアップが済んだ状態で、
CECT(Customer Environment Check Tool)にてセットアップが可能な状態かチェックをします。
お問い合わせの際にはCECTの実行ログが必要となりますので、事前にLog採取をした上でお問い合わせください。
0000000000000000000000000000000000000000000000000000000000000
説明資料の動画ツール
https://community.emc.com/servlet/JiveServlet/download/704531-57050/Japanese.zip
00000000000000000000000000000000000000000000000000000000000000
ESRS v2であれば、Windows server 2012 R1まで対応しています。
※R2は非対応、2012 R1の日本語OSも非対応です。
なお、ESRSは、既にメジャーバージョンアップ版(v3)のESRS VE (ESRS Virtual Edition)というSWがリリースされています。
ESRS v3ですと、お客様がOSを用意する必要がなくなります。
ESXiへOVF templateをImportおよびOS image(SUSE Linux)を展開し、ESRSの設定を有効化するとESRSを実現出来ます。
(またはHyper-Vでも可能)
もし、新規でESRSを検討されている場合、ライフサイクルおよびOSの用意の観点等からESRSv3をお勧めいたします。
上記に示しますようにESRSのメジャーバージョンアップ版リリースに伴い、
今後、ESRS v2の2012 R2のサポートおよび2012 R1の日本語OS対応は厳しい可能性が極めて高いです。
(いくつかの事例で、特別申請等を実施しても、全てREJECT、という結果のため)
https://community.emc.com/servlet/JiveServlet/download/844713-97525/ESRSv2_SupportedOS_Matrix_20141022.pdf
2015年5月17日日曜日
CA
Windows Server 2003 SP2(x86) から Windows Server 2008 R2(64bit)への証明機関の移行について
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
ASCII.jp:Windows Serverを認証局にしよう (4/4)|Windows Serverで学ぶサーバOS入門
http://ascii.jp/elem/000/000/533/533755/index-4.html
Windows Server 2003 SP2(x86) から Windows Server 2008 R2(64bit)への証明機関の移行について
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
windows2003R2SP1からWindows2012R2に移行について
https://social.technet.microsoft.com/Forums/windowsserver/ja-JP/8d789f47-1623-4d1f-90d8-3d43604c29c4/windows2003r2sp1windows2012r2?forum=winserver8
Active Directory Certificate Services Migration Guide for Windows Server 2012 R2
https://technet.microsoft.com/library/dn486797.aspx
AD CS 移行: 証明機関の移行
https://technet.microsoft.com/ja-jp/library/9aa53be9-0497-49fa-9ff6-09b72cb69444(v=ws.10)#BKMK_BackUpDB
プライベート認証局の証明書、サーバー証明書、クライアント証明書の作成方法について | レンタルサーバー・自宅サーバー設定・構築のヒント
http://server-setting.info/centos/private-ca-cert.html
Windows Server 2003 SP2(x86) から Windows Server 2008 R2(64bit)への証明機関の移行について
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
Migrating the Certification Authority
https://technet.microsoft.com/ja-jp/library/65bf928e-ea43-4849-94b4-79ea2e5b6a48#BKMK_BackupCAPolicy
IIS7.5をスタンドアロンルートCAで発行したクライアント認証証明書を要求するように設定する | 64 Blog
http://blogs.gine.jp/kusa/archives/2071
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
ASCII.jp:Windows Serverを認証局にしよう (4/4)|Windows Serverで学ぶサーバOS入門
http://ascii.jp/elem/000/000/533/533755/index-4.html
Windows Server 2003 SP2(x86) から Windows Server 2008 R2(64bit)への証明機関の移行について
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
windows2003R2SP1からWindows2012R2に移行について
https://social.technet.microsoft.com/Forums/windowsserver/ja-JP/8d789f47-1623-4d1f-90d8-3d43604c29c4/windows2003r2sp1windows2012r2?forum=winserver8
Active Directory Certificate Services Migration Guide for Windows Server 2012 R2
https://technet.microsoft.com/library/dn486797.aspx
AD CS 移行: 証明機関の移行
https://technet.microsoft.com/ja-jp/library/9aa53be9-0497-49fa-9ff6-09b72cb69444(v=ws.10)#BKMK_BackUpDB
プライベート認証局の証明書、サーバー証明書、クライアント証明書の作成方法について | レンタルサーバー・自宅サーバー設定・構築のヒント
http://server-setting.info/centos/private-ca-cert.html
Windows Server 2003 SP2(x86) から Windows Server 2008 R2(64bit)への証明機関の移行について
https://social.technet.microsoft.com/Forums/ja-JP/eca61bc9-7ea0-4376-9610-9842d2e8fb83/windows-server-2003-sp2x86-windows-server-2008-r264bit?forum=windowsserver2008ja#b8b9b6e2-bcd1-4a06-88cc-1f4e1ebb878a
Migrating the Certification Authority
https://technet.microsoft.com/ja-jp/library/65bf928e-ea43-4849-94b4-79ea2e5b6a48#BKMK_BackupCAPolicy
IIS7.5をスタンドアロンルートCAで発行したクライアント認証証明書を要求するように設定する | 64 Blog
http://blogs.gine.jp/kusa/archives/2071
登録:
投稿 (Atom)