2010年08月27日

BAT保存元と実行ドライブが異なる場合の動作不具合対策

@ECHO OFF
REM SetVar--
SET strPath=D:\hoge\
CLS

REM DeletePhase--
REM GetDriveLetter and ChangeDrive
%strPath:~0,2%
REM ChangeDirectory
CD "%strPath%"
REM Delete hoge.dat
DEL /F /S /Q "hoge.dat"
CLS

EXIT
posted by 秋月 at 20:52| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする

2009年08月29日

かな入力からローマ字かなへの復帰手順

Q1.まず直接入力が
「test」 と打鍵しても
「カイトカ」 と表示される場合。
A1.IMEツールバーの
[KANA] が押下された状態なので
再度押下して解除する。


Q2.次に全角入力が
「てすと」 と打鍵しても
「かいとなから」 と表示される場合。
A2.[Alt]+[カタカナひらがな]キーを押下する。


▼補足
 ・上記は全てトグル。
 ・[Ctrl]+[CapsLock]で[KANA]が有効化されるのはトグルではないのでA1.の作業を行う。
 ・OSがXP Pro SP2、辞書はIME Standard 2002 ver. 8.1 の時。
posted by 秋月 at 12:38| OS操作 | このブログの読者になる | 更新情報をチェックする

hosts内の任意文字を探す

@ECHO OFF
@REM ------------------------------------------------------
@REM Hostsファイルの記述確認 Ver.001
@REM ------------------------------------------------------

@REM hosts内の記述の有無を確認する文字列
SET strData=tekitou


@REM ------------------------------------------------------
@REM ▼▼ここから下は編集しない▼▼
@REM ------------------------------------------------------

@REM 実行端末のホスト名をテキストに記入
for /F %%h in ('hostname') do set strHost=%%h%strHost%
ECHO %strHost%>ChkHosts.txt
ECHO.>>ChkHosts.txt


@REM hosts内を確認
FIND %systemroot%\system32\drivers\etc\hosts "%strData%"
IF %ERRORLEVEL% ==0 ECHO ⇒[NG] hosts内で[%strData%]が見つかりました>>ChkHosts.txt
IF %ERRORLEVEL% ==1 ECHO ⇒[OK] hosts内で[%strData%]はありません>>ChkHosts.txt
CLS


@REM lmhosts内を確認
FIND %systemroot%\system32\drivers\etc\lmhosts "%strData%"
IF %ERRORLEVEL% ==0 ECHO ⇒[NG] lmhosts内で[%strData%]が見つかりました>>ChkHosts.txt
IF %ERRORLEVEL% ==1 ECHO ⇒[OK] lmhosts内で[%strData%]はありません>>ChkHosts.txt
CLS


EXIT
posted by 秋月 at 12:36| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする

DOSコマンドをルートフォルダで実行

start %~dp0\test.bat
posted by 秋月 at 12:28| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする

2008年05月25日

日時を付加してファイルをリネーム

※改版する毎にVer.の数字を上げていきます。
 メジャー・マイナーの区別、改版履歴は特になし。

実行例:
c:\temp\test.txt
がbat実行後、
c:\temp\(yymmdd)test.txt
にリネームされる。
西暦の桁数はOSにより変化すると思われる。XPは2桁。
w2kかw2k3のどちらかが4桁。未確認。


'@echo off
rem #-------------------------------------------------
rem # ■ファイル名に日付を付加してリネーム Ver.001
rem #-------------------------------------------------


rem #対象となるファイル名を定義
set strFileName=test.txt

rem #ファイルのパスをフルパスで定義
set strFilePath=c:\temp\


rem #-------------------------------------------------
rem # ▼ファイルのリネーム処理(ここから下は触らない。)
rem #-------------------------------------------------
@echo YYMMDD形式で日付の取得
set wdate=%date:/=%
set wdate=%wdate:~2,11%
set wdate=%wdate: =0%
set fname=%wdate%

@echo ミリ秒まで時刻の取得
set tm=%time: =0%

@echo 日付_時刻
set strDate=%wdate%_%tm:~0,2%%tm:~3,2%%tm:~6,2%


@rem ファイル名に日付を付加してリネーム
move "%strFilePath%%strFileName%" "%strFilePath%(%strDate%)%strFileName%"
posted by 秋月 at 02:06| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする

2008年05月01日

VBScriptによるExcite翻訳

' ////////////////////////////////////////////////////////
'/// 入力単語を元にExcite翻訳 Ver.001
' ////////////////////////////////////////////////////////


Option Explicit
On Error Resume Next

Dim objIE ' IE オブジェクト
Dim strInputData ' ユーザ入力データ
Dim wShell
Dim oExec

Set objIE = CreateObject("InternetExplorer.Application")
Set wShell = CreateObject("WScript.Shell")

strInputData = InputBox("Exciteで翻訳したい英単語を入力して下さい。","Excite翻訳[英和]","")

' IEの機能を使ってクリップボードのデータを取得 rem この機能は今回は使わない。
If Err.Number = 0 Then
objIE.Navigate("about:blank")
strCbData = objIE.document.parentwindow.clipboardData.GetData("text")
' IEで開く実行処理
Set oExec = wShell.Exec("cmd.exe /C start iexplore " + """http://www.excite.co.jp/dictionary/english_japanese/?dic=enja&match=beginswith&_ie=Shift_JIS&search=" + strInputData + """")
objIE.Visible = False
Else
WScript.Echo "エラー:" & Err.Description
' アイコンを設定
intMsgIcon = vbCritical
End If

Set objIE = Nothing
posted by 秋月 at 04:27| 運営ログ | このブログの読者になる | 更新情報をチェックする

2008年02月23日

VBScriptによる自動ログオン確認

---------------------------------------------------------------------------
'VBScriptによる自動ログオン確認プログラム
'---------------------------------------------------------------------------
'暗黙の宣言を不許可(デバック用)
Option Explicit
'エラー検知後も可能な範囲で処理を実行
On Error Resume Next



'自動ログオン設定の確認
set WshShell = CreateObject("WScript.Shell")

'取得対象キーへのパス
strBasicPath = "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\CurrentVersion\Winlogon\"


WScript.Echo("自動ログオンの値:" & WshShell.RegRead(strBasicPath + "AutoAdminLogon") )
'対象キーがなく、エラーが発生した場合
If Err <> 0 Then
WScript.Echo("自動ログオン許可フラグは設定されていません。")
Err.Clear
End If


WScript.Echo("ドメイン名:" & WshShell.RegRead(strBasicPath + "DefaultDomainName") )
'対象キーがなく、エラーが発生した場合
If Err <> 0 Then
WScript.Echo("自動ログオン用ドメイン名は設定されていません。")
Err.Clear
End If


WScript.Echo("ユーザ名: " & WshShell.RegRead(strBasicPath + "DefaultUserName") )
'対象キーがなく、エラーが発生した場合
If Err <> 0 Then
WScript.Echo("自動ログオン用ユーザ名は設定されていません。")
Err.Clear
End If


WScript.Echo("パスワード:" & WshShell.RegRead(strBasicPath + "DefaultPassword") )
'対象キーがなく、エラーが発生した場合
If Err <> 0 Then
WScript.Echo("自動ログオン用パスワードは設定されていません。")
Err.Clear
End If


WScript.Echo("終了です。")
posted by 秋月 at 13:32| Source:VBScript | このブログの読者になる | 更新情報をチェックする

2008年02月01日

VBScriptによる複数DOSコマンドの一行実行


'---------------------------------------------------------------------------
'VBScriptによる複数DOSコマンドの一行実行
'---------------------------------------------------------------------------
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD C:¥ & Dir"
Set oShell = Nothing

posted by 秋月 at 22:17| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする

2007年12月12日

C言語入門サイト覚書き

・非常に丁寧で論理的なサイト様。
 プログラムだけでなく、WEB標準を高度に理解する知識を持ち合わせ、
 かつ標準に縛られずに柔軟にサイトを構築されています。
 (例えばですが、「物理タグの利用は控えるべき」という大前提を踏まえて、
 それでも広範囲なユーザビリティを考慮してcssを使う、そして物理タグも使う、といったようにサイトを構築されているように見受けられました。)
 ⇒苦しんで覚えるC言語
posted by 秋月 at 01:46| 【リンク】C言語 | このブログの読者になる | 更新情報をチェックする

2007年04月21日

特定サービス停止時にサービスを再起動

※改版する毎にVer.の数字を上げていきます。
 メジャー・マイナーの区別、改版履歴は特になし。


@echo on
rem #-------------------------------------------------
rem # ■特定サービス停止時にサービスの再起動 Ver.001
rem #-------------------------------------------------


rem #再起動するサービスを定義
set RebootService=Alerter

rem #リトライに3回失敗した時の通知先を定義
set ErrorSendPC01=host1


rem #-------------------------------------------------
rem # ▼サービスの起動処理(ここから下は触らない。)
rem #-------------------------------------------------
net start %RebootService%


 :Main
IF ERRORLEVEL 1 goto Try1
IF ERRORLEVEL 0 goto exit
 goto Main


 :Try1
net start %RebootService%
IF ERRORLEVEL 1 goto Try2
IF ERRORLEVEL 0 goto exit
 exit


 :Try2
net start %RebootService%
IF ERRORLEVEL 1 goto Damepo
IF ERRORLEVEL 0 goto exit
 exit


 :Damepo
net send %ErrorSendPC01% %RebootService%の起動に失敗しました。
 exit
posted by 秋月 at 00:07| Source:DOSコマンド | このブログの読者になる | 更新情報をチェックする