IT備忘録

Windows7 展開（５）

diskpartコマンドをスクリプト化する際のサンプルです。

例）
Disk 0を選択し、Disk内容を消去し、新規にパーティションを作成
（１パーティション）する。

> diskpart /s script.txt > log.txt
* オプション /s に続いてスクリプト・ファイル名を指定します。
* log.txtにdiskpartの出力結果が書き出されます。

script.txt
----
select disk 0
clean
creat partition primary
select partition 1
active
format fs=ntfs quick
assign
exit
----

・cleanのオプション
> clean all
ディスクの内容がすべて消去される（全セクタに対して0データが書き込まれる）

・creatのオプション
> creat partition primary size=256000
256[GB]のパーティションが作成されます。単位[MB]

・formatのオプション
> format fs=ntfs label="System" quick
"System"というボリュームラベルがつけられます。

・assignのオプション
> assign letter=x
ボリュームにドライブレター X: を割り当てます。

コマンド操作に慣れてくるとdiskpartはなかなか便利です。
ただし、各種操作にはくれぐれも注意しましょう。DiskもしくはVolumeの
選択ミスを行うと大変なことになってしまいます。（削除等）
必ずlistコマンドにて現状選択されているVolumeなどを確認しましょう。
先頭に*マークが付きます。

過去記事
--Windows7 展開（１）

--Windows7 展開（２）

--Windows7 展開（３）

--Windows7 展開（４）

--VHD(仮想ディスク)　コマンド作成

--Windows7 VHDファイル作成

--Windows7 VHDブート

参考ページ
http://www.atmarkit.co.jp/fwin2k/win2ktips/1115dpartcmd/dpartcmd.html
http://technet.microsoft.com/ja-jp/library/cc766465%28WS.10%29.aspx

Tweet

再販権利付ソフト７１本総額５５万円が超激安１,９００円

Dropboxを活用 自動印刷

Dropboxを活用して自動印刷を可能にするTIPSです。

設定例）
スマートフォンにてDropboxの所定フォルダにファイルを保存すると
自動で印刷。（通常の携帯の場合は”send to dropbox”を使うといけるかも）

--対応スマートフォンOS
BlackBerry, iPhone, iPad, Nokia, webOS (Palm), Android

--PC側の設定
１．Dropboxのアカウントを取得する。
２．プリンターの接続されているPCにDropboxクライアントアプリを
インストールする。
３．下記サイトよりe-print.zipファイルをDLする。(zip file*からDL可能)

--Print Files from any Mobile Phone using Dropbox
http://www.labnol.org/internet/print-from-mobile-phones/17827/

４．e-print.zipを解凍し、中に含まれている”eprint.vbs”を実行する。
するとDropboxフォルダーに”PrintQreue”というフォルダが作成されます。
５．PrintQreueフォルダにファイルが保存されると自動で印刷されます。

すなわち、スマートフォンにてDropboxのPrintQreueフォルダに
ファイルを保存すると、（例えば画像ファイルなど）
スマートフォン -- 同期 --> Dropbox Server -- 同期 --> PC -> 自動印刷

これによって、スマートフォンにあたかもプリンタが接続されたよう！
使い方によってはとても便利ではないでしょうか。
プリンタの接続されていないPCにDropboxを導入して使用しても便利ですね。

過去記事
--Dropboxを活用　Dropbox Uploader

--send to dropbox

--AirDropper

--Dropbox　Portable

--参考ページ
http://www.gizmodo.jp/2010/10/dropbox.html

Tweet

VHD(仮想ディスク) コマンド作成

仮想ディスク・ファイル（VHDファイル）は、diskpartコマンドを使用して、
作成やマウントが可能になりました。

--対応OS
・Windows7
・Windows Server 2008 R2

仮想ディスク作成
コマンドプロンプトにて、
> diskpart
DISKPART > create vdisk file="D:\file_name.vhd" maximum=65536 type=expandable
・file= フルパスで指定する。相対パスの場合、エラーになる。
・maximum= 仮想ディスクサイズを指定する。単位は[MB]。
・type= fixed：容量固定サイズ、expandable：容量可変サイズ
・差分タイプの仮想ディスクを作成する場合は、type=オプションではなく、
parent=＜親ファイルの絶対パス名＞　を使用する。

仮想ディスクのマウント
コマンドプロンプトにて、
> diskpart
DISKPART> select vdisk file="D:\file_name.vhd"
DISKPART> attach vdisk

仮想ディスクのアンマウント
コマンドプロンプトにて、
>diskpart
DISKPART> select vdisk file="D:\file_name.vhd"
DISKPART> dettach vdisk

スクリプトで操作する
コマンドを記述したファイル（テキストファイル）を使って、自動で操作すること
も可能です。
コマンドプロンプトにて、
> diskpart /s diskpart-script.txt
diskpartコマンドにオプション /s　をつけます。

---- diskpart-script.txt ----
create vhd file="D:\test.vhd" maximum=4096 type=expandable
attach vdisk
----

--参考ページ
http://www.atmarkit.co.jp/fwin2k/win2ktips/1267vdisk/vdisk.html
http://www.atmarkit.co.jp/fwin2k/win2ktips/1231vhdmount/vhdmount.html

過去記事
--Windows7 VHDブート

--Windows7 VHDファイル作成

--HDD丸ごと仮想ディスク化 disk2vhd

--Virtual Hard Disk (VHD)

 

対話式 Account control batch

過去に作成しましたWindowsログインアカウントの操作（ロックアウト、
ロックアウト解除、ステータス確認、パスワード変更）を行うバッチを
コマンドプロンプトから引数渡さなくとも起動できるよう修正を行いました。

Account.bat
----
@ECHO OFF

:INITIALIZATION

ECHO   Acoount control MENU

SET/P USER="1. Pleae input User name []:"

SET/P PASSWD="2. Pleae input New Password []:"

:MENU

cls

ECHO ################################
ECHO.
ECHO   Acoount control MENU
ECHO.
ECHO   1. Account Enable
ECHO   2. Account Disable
ECHO   3. Password change
ECHO   4. Status check
ECHO   5. Exit
ECHO.
ECHO   User name: %USER%
ECHO.
ECHO ################################

SET/P CHECK="Pleae choice number [1] or [2] or [3] or [4] or [5] [%CHECK%]:"

IF %CHECK% == GOTO END
IF %CHECK% == 1 GOTO 1-Account Enable
IF %CHECK% == 2 GOTO 2-Account Disable
IF %CHECK% == 3 GOTO 3-Password Change
IF %CHECK% == 4 GOTO 4-Status Check
IF %CHECK% == 5 GOTO 5-END

:1-Account Enable
net user %USER% /active:yes /domain
echo Please "Enter" back to MENU
PAUSE > nul
GOTO MENU

:2-Account Disable
net user %USER% /active:no /domain
echo Please "Enter" back to MENU
PAUSE > nul
GOTO MENU

:3-Password Change
if %PASSWD% == "" go to ERROR
net user %USER% %PASSWD% /active:yes /domain
echo Please "Enter" back to MENU
PAUSE > nul
GOTO MENU

:4-Status Check
net user %USER% /domain | more
echo Please "Enter" back to MENU
PAUSE > nul
GOTO MENU

:5-END
echo If you push "Enter" it's fine
PAUSE > nul
cls
exit

:ERROR
echo Please check your input Argument
PAUSE > nul

exit

----

WindowsXP SP3 Japaneseにて動作確認済み。

過去記事
--アカウントコントロール　バッチ

 

旧型ノートPCでFAXサーバー

旧型ノートPC"Fujitsu FMV-BIBRO MF3/45"を再セットアップして、
FAXサーバーを構築しました。

--スペック
機種: FMV-BIBLO MF3/45
CPU: モバイルIntel(R) CeleronTMプロセッサ-450MHz
メモリ: 交換済み　128[MB]
画面: 12.1インチTFT 800×600ドット/1677万色
HDD: 交換済み 40[GB]
LAN: PCICIA接続 Corega PCC-TD (10BaseT)
OS: Windows2000 SP4 日本語版

FMV-BIBLO MF/MCシリーズ仕様一覧
http://www.fmworld.net/product/former/bi0002/spec1.html#mfmc

2000年に発売されたモデルでしょうか、今となってはWebアクセスも
厳しいスペック。しかし、FAXサーバーとしての用途としては特に
問題ありませんでした。

セットアップはWindows2000をインストールして、
・モニタドライバ
・FAXドライバ
・LANドライブ
を導入、MSのセキュリティアップデート、不必要サービスの停止で完了。
その他、Foxit Reader（PDF Viewer）、Word,Excel,PowerPoint Viwerを
インストール。
FAXの送信方法は、各種アプリケーションより[印刷] - [FAX]を選択後、
送信先電話番号を指定するだけでFAX送信可能です。
FAX受信設定も可能ですが、今回は受信はD-FAXを使うようにしました。
セキュリティソフトの入っていないPCを常時接続しておくのはどうかなぁと。
通常の電話とFAXの種別判断もできなそうだったので。

また、FAXサーバーの設置場所が玄関になります。（<-サザエさん家？）
よって、リモートアクセス用に"RealVNC"も導入しました。
想定したFAX送信手順は、
１．PCでFAX送信用ファイルの作成
２．FAXサーバー上の共有フォルダにファイルを保存
３．VNCにてFAXサーバーを操作、FAX送信
Windows2000にてOS標準装備のFAX機能は共有ができないので、直接操作する
必要があります。市販のアプリケーションは共有できるようです。

上記の手順を簡単操作できるようバッチファイルを作成しました。

FAX-Send.bat
----
@echo off

set USER=user_name
set PASSWD=password
set SERVER=server_share
set DRIVE=z:

path %path%;C:\Program Files\RealVNC\

if exist %DRIVE% net use /delete %DRIVE%
net use %DRIVE% %SERVER% /user:%USER% %PASSWD%

start explorer

echo コピー終了したらエンターキーを押してください
pause > nul

net use %DRIVE% /delete

start vncviewer

exit
----

参考までに、FAXサーバーの市販ソフトは下記のとおりです。
--STARFAX
http://www.megasoft.co.jp/starfax/

--まいとーく FAX
http://www.intercom.co.jp/mytalk/

--インターネットファックス
D-FAX
http://www.d-fax.ne.jp/
受信したFAXを登録したメールアドレスに転送してくれます。

--追加アプリ
RealVNC
http://www.vector.co.jp/soft/win95/net/se324464.html

Foxit reader
http://www.foxitsoftware.com/pdf/reader/

MS Office Viewer
http://www.microsoft.com/downloads/results.aspx?pocId=&freetext=Viewer&DisplayLang=ja

--参考ページ
http://support.microsoft.com/kb/879668/ja

 

WinXP ユーザープロファイル コピー バッチ

WindowsXPにおいて、ユーザープロファイルをコピーするバッチです。
基本"xcopy"にオプションをつけているだけなのですが、
/EXCLUDE オプションをつけると、コピー除外ファイルリストを設定できます。

--P-copy.bat
@echo off

REN set copy log file
set logfile=d:\profile_copy_log_%1.txt

REN Profile xcopy : exclusion list is excludelist.txt
xcopy "C:\Documents and Settings\%1" "D:\Profile\%1.A5008" /EXCLUDE:excludelist.txt /s /e /h /c /y /r >> %logfile%
----

--excludelist.txt
$~
~$
~WRL
.tmp
.temp
NTUSER.DAT
ntuser.dat.LOG
\Local Settings\Temp\
\Local Settings\Temporary Internet Files\
----

使用方法はコマンドプロンプトを起動して、
> cd P-back.batのあるフォルダ
> P-copy.bat USER_NAME

--参考ページ
http://www.atmarkit.co.jp/fwin2k/win2ktips/446xcopy/xcopy.html

 

音を鳴らすバッチ

何かを監視していて、例えば敷居位置を超えた場合に用意した”バッチを
起動させる”。この時、携帯電話などにメールを送信する場合が
多いと思いますが、セキュリティ対策でSMTPが使えないと設定できません。
単純にアラートとして音が鳴るようなバッチを作成しました。

Alert.bat
----
set LOG-FILE=error-log.txt

date /t >> %LOG-FILE%
time /t >> %LOG-FILE%
echo. >> %LOG-FILE%

"C:\WINDOWS\Media\Windows XP Error.wav"
----

もしくは、

Alert2.bat
----
set LOG-FILE=error-log.txt

date /t >> %LOG-FILE%
time /t >> %LOG-FILE%
echo. >> %LOG-FILE%

:LOOP
"C:\WINDOWS\Media\Windows XP Error.wav"
goto LOOP
----

--動作環境
OS: WindowsXP SP3 Japanese
wavファイル関連付け: WindowsMediaPlayer 10

最初、gotoを使用し、強引にループを作ると音が鳴り続けるのかと
思ったのですが、WMP(WindowsMediaPlayer)は音声再生後、アプリが
終了せずそのまま止まります。アプリを終了するとループに戻るのですが、
自動では１度再生されたら止まります。
そこで、WMPの設定を変更しました。

--WMP 連続再生設定
WMPメニュー[再生] - "連続再生"をオンにします。

すると、音声が連続で再生され続けます。
バッチAlert.batで動作させることができました。

*iTune等を導入している場合、wavファイルの関連付けが変更されている
場合があります。上記のバッチを動作させるにはwavファイルをWMPに関連付け
することを推奨します。

 

ユーザーデータ バックアップバッチ

WindowsXPにおいて、ログインしているユーザーのデータバックアップを
するバッチです。
タスク機能を使い、定期的に実行したいのですが、ユーザー毎に実行ユーザーを
変更できないため、
１．マニュアルにて実行
２．ログオンバッチとして登録
３．グループポリシーにて、ログオン・ログオフ時に実行
を組み合わせて使おうかと考えています。
１台のＰＣを１人のみ使う場合は問題ないのですが。

-----
@echo off

REM ***********************************************
REM Initialize
REM ***********************************************
set BackUP-DRIVE=d:
set IME-VER=IMJP9_0
set UPDATE=update.txt

REM ***********************************************
REM Change to current folder
REM ***********************************************
%BackUP-DRIVE%
cd Backup

REM ***********************************************
REM New create a User folder
REM ***********************************************
if not exist %USERNAME% mkdir %USERNAME%
cd %USERNAME%

REM ***********************************************
REM Check to Back up folder
REM ***********************************************
if not exist "My Documents" mkdir "My Documents"
if not exist "Favorites" mkdir "Favorites"
if not exist "デスクトップ" mkdir "デスクトップ"
if not exist "Firefox" mkdir "Firefox"
if not exist "IME" mkdir "IME"

REM ***********************************************
REM Back up file
REM ***********************************************
xcopy "%USERPROFILE%\My Documents" "My Documents" /s /e /c /v /h /d /y
xcopy "%USERPROFILE%\Favorites" "Favorites" /s /e /c /v /h /d /y
xcopy "%USERPROFILE%\デスクトップ" "デスクトップ" /s /e /c /v /h /d /y
xcopy "%USERPROFILE%\Application Data\Mozilla\Firefox" "Firefox" /s /e /c /v /h /d /y
xcopy "%USERPROFILE%\Application Data\Microsoft\%IME-VER%\*" "IME" /s /e /c /v /h /d /y

REM ***********************************************
REM Get a Date & Time
REM ***********************************************
echo Last update day and time > %UPDATE%
date /t >> %UPDATE%
time /t >> %UPDATE%

REM ***********************************************
REM Change to ACL for user folder
REM ***********************************************
cd ..
cacls %USERNAME% /p %USERNAME%:f Administrator:f /t /c
-----

例）
このバッチをD:\Backup（任意のフォルダ）に保存して実行してみてください。

 

net user を使ったユーザー登録

Windowsにおいて、net userコマンドを使って複数のユーザーを追加する
場合のバッチです。ドメインユーザーの場合は、
/domain hoge_domain
を追加します。

--決まったユーザー名をまとめて登録する場合
--------
@echo

set USER01=***
set USER02=***
set USER03=***
set USER04=***

net user /add %USER01% welcom /passwordchg:yes /scriptpath:logon.bat
net user /add %USER02% welcom /passwordchg:yes /scriptpath:logon.bat
net user /add %USER03% welcom /passwordchg:yes /scriptpath:logon.bat
net user /add %USER04% welcom /passwordchg:yes /scriptpath:logon.bat

net group "Power Users" %USER01% %USER02% %USER03% %USER04% /add
--------

--対話式にて登録する場合
--------
@echo off

:MENU

cls

echo ################################################
echo.
echo  Additional new User bat
echo.
echo  If you exit a this bat, entry input a "end"
echo.
echo ################################################

SET/P USER-NAME="Pleae input a new User name ? "

IF %USER-NAME% == end GOTO END

net user /add %USER-NAME% welcome /passwordchg:yes /scriptpath:logon.bat
net group "Power Users" %USER-NAME% /add

echo Complited create a [%USER-NAME%]
echo Please enter any key. go to MENU
pause > nul
goto MENU

:END
exit
--------

双方共に、ディフォルトパスワードが"welcome"になっていますので、
ご利用時にはご注意を！！

 

ExcelとbatでDisk容量チェック

ExcelのVBAとDOSコマンド"dir"と"find"を駆使して、Windows Serverの
Disk空き容量を確認及び記録するシステムを作りました。

--ファイルPath
D:\disk_check.xls    このエクセルファイルから実行します。
D:\disk_check.bat    各サーバーの空き容量をdisk.txtへ書き出し
D:\disk.txt        出力ファイル

disk_check.bat
-----
@echo off

set USER-NAME=HogeUser
set PASSWD=hogehoge
set DRIVE=z:
set OUTFILE="D:\disk.txt"

set SERVER1=\\hoge_server01\group
set SERVER2=\\hoge_server02\group
set SERVER3=\\hoge_server03\group

if exist %DRIVE% net use /delete %DRIVE%

net use %DRIVE% %SERVER1% %PASSWD% /user:%USER%
dir %DRIVE% | find "バイトの空き領域" > %OUTFILE%
net use /delete %DRIVE%

net use %DRIVE% %SERVER2% %PASSWD% /user:%USER%
dir %DRIVE% | find "バイトの空き領域" >> %OUTFILE%
net use /delete %DRIVE%

net use %DRIVE% %SERVER3% %PASSWD% /user:%USER%
dir %DRIVE% | find "バイトの空き領域" >> %OUTFILE%
net use /delete %DRIVE%

echo. >> %OUTFILE%
time /t >> %OUTFILE%
date /t >> %OUTFILE%

exit
-----

disk_check.xls
-------------------------------
Private Sub CommandButton1_Click()

   Dim myID As Double
   myID = Shell("D:\disk_check.bat", vbNormalFocus)

End Sub
-------------------------------
Private Sub CommandButton2_Click()

    Worksheets("calc").Activate

    Workbooks.OpenText Filename:="D:\disk.txt", Origin:=932, StartRow:=1, _
        DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array(11, 1), Array(16, 1) _
        , Array(33, 1), Array(49, 1)), TrailingMinusNumbers:=True
    Windows("disk.txt").Activate
    Worksheets("disk").Range("D1:D4").Select
    Selection.Copy
    Windows("disk_check.xls").Activate
    Range("B4").Select
    ActiveSheet.Paste
    Windows("disk.txt").Activate
    Worksheets("disk").Range("A6").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("disk_check.xls").Activate
    Range("B2").Select
    ActiveSheet.Paste
    Windows("disk.txt").Activate
    Worksheets("disk").Range("A7").Select
    Application.CutCopyMode = False
    Selection.Copy
    Windows("disk_check.xls").Activate
    Range("B1").Select
    ActiveSheet.Paste
    Windows("disk.txt").Activate
    ActiveWindow.Close

    Windows("disk_check.xls").Activate
    Worksheets("Record").Activate

    With Worksheets("Record")
        .Range("A65536").End(xlUp).Offset(1, 0).Value = Worksheets("calc").Range("B1")
        .Range("A65536").End(xlUp).Offset(0, 1).Value = Worksheets("calc").Range("B2")
        .Range("A65536").End(xlUp).Offset(0, 2).Value = Worksheets("calc").Range("E4")
        .Range("A65536").End(xlUp).Offset(0, 4).Value = Worksheets("calc").Range("E5")
        .Range("A65536").End(xlUp).Offset(0, 6).Value = Worksheets("calc").Range("E6")
        .Range("A65536").End(xlUp).Offset(0, 8).Value = Worksheets("calc").Range("E7")
    End With

    Worksheets("calc").Activate

End Sub
-------------------------------