VBA

Sub TST()


Dim shTmp As Worksheet
Set shTmp = Worksheets("TMP")
Dim shSrc As Worksheet
Set shSrc = Worksheets("SRC")
'
Call CsvRead(shTmp)


Dim buf As String
Dim wb As Workbook

Const Target As String = "C:\Users\Forza1063\Desktop\VBA\TGTBook1.xlsx"
''ファイルの存在チェック
buf = Dir(Target)
If buf = "" Then
MsgBox Target & vbCrLf & "は存在しません", vbExclamation

Exit Sub
End If
''同名ブックのチェック
For Each wb In Workbooks
If wb.Name = buf Then
MsgBox buf & vbCrLf & "はすでに開いています", vbExclamation
Exit Sub
End If
Next wb
''ここでブックを開く
Workbooks.Open Target



'******************************************************************************
Call Edit(shSrc, shTmp)


End Sub

Sub Edit(shSrc, shTmp)


shSrc.Activate

j = 2
'書式コピー
Range("B3:D5").Select
Selection.Copy


Workbooks("TGTBook1.xlsx").Activate
Dim shTgt As Worksheet
Set shTgt = Worksheets("Sheet1")
shTgt.Activate

Range("B3:D5").Select
ActiveSheet.Paste

shTmp.Activate
j = 1
K = 4
Do Until shTmp.Cells(j, 1).Value <> "1"

For i = 2 To 4
shTgt.Cells(K, i).Value = shTmp.Cells(j, i).Value
'MsgBox shTmp.Cells(j, i).Value
Next

j = j + 1
K = K + 1

Loop

'******************************************************************************

shSrc.Activate
Range("B6:D8").Select
Selection.Copy

shTgt.Activate
Range("B6:D8").Select
ActiveSheet.Paste


shTmp.Activate

K = K + 1
Do Until shTmp.Cells(j, 1).Value <> "2"

For i = 2 To 4
shTgt.Cells(K, i).Value = shTmp.Cells(j, i).Value
'MsgBox shTmp.Cells(j, i).Value
Next

j = j + 1
K = K + 1

Loop

End Sub


Sub CsvRead(shTmp)


shTmp.Activate
shTmp.ClearArrows

Cells.Select
Selection.ClearContents


Dim CsvFname As String
CsvFname = "TEXT;C:\Users\Forza1063\Desktop\VBA\csv.txt"
'
With ActiveSheet.QueryTables.Add(Connection:=CsvFname, Destination:=Range("TMP!$A$1"))
.Name = "csv"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 932
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = True
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(2, 2, 2, 2)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With


End Sub

Win

https://social.technet.microsoft.com/Forums/ja-JP/a2593ddc-547a-4485-b0b2-2c190b3e8db0/windowsserver2008r2?forum=windowsserver2008ja

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

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'

あああああああああああ

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/

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

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