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

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/

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

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%


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

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

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





2015年8月26日水曜日

::robocopy "d:\source" "d:\dest" /MIR /LOG+:"d:\testlogx.txt" /TEE /FP /V /X /COPY:DATSO /MT:8 /R:0 /BYTES

robocopy "d:\source" "d:\dest" /XF "~.*" /MIR /LOG+:"d:\testlogx.txt" /TEE /FP /V /X /COPY:DATSO /MT:8 /R:0 /BYTES

pause

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

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

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

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

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

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

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

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)

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

2015年7月5日日曜日

http://pf-j.sakura.ne.jp/program/dos/doscmd/robocopy.htm

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

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

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










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