.パージェス情報局

@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

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


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


▼補足
　・上記は全てトグル。
　・[Ctrl]+[CapsLock]で[KANA]が有効化されるのはトグルではないのでA1.の作業を行う。
　・OSがXP Pro SP2、辞書はIME Standard 2002 ver. 8.1 の時。

@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 ⇒[ＮＧ] hosts内で[%strData%]が見つかりました>>ChkHosts.txt
IF %ERRORLEVEL% ==1 ECHO ⇒[ＯＫ] hosts内で[%strData%]はありません>>ChkHosts.txt
CLS


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


EXIT

start %~dp0\test.bat

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

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


'@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%"

' ////////////////////////////////////////////////////////
'/// 入力単語を元に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

---------------------------------------------------------------------------
'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("終了です。")

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

・非常に丁寧で論理的なサイト様。
　プログラムだけでなく、WEB標準を高度に理解する知識を持ち合わせ、
　かつ標準に縛られずに柔軟にサイトを構築されています。
　（例えばですが、「物理タグの利用は控えるべき」という大前提を踏まえて、
　それでも広範囲なユーザビリティを考慮してcssを使う、そして物理タグも使う、といったようにサイトを構築されているように見受けられました。）
　⇒苦しんで覚えるＣ言語

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


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


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

rem #リトライに３回失敗した時の通知先を定義
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