下のサンプルでは、サブルーチンsubにおいて、変数xに対し「テスト」文字列を格納後、 戻り値として 1 を返します。 なお、戻り値は環境変数%ERRORLEVEL%に格納されます。 SET x= @CALL :sub ECHO x=%x% ECHO @return=%ERRORLEVEL% EXIT /BSETLOCAL :sub SET…

下のサンプルでは、変数xにDATE /Tコマンドで出力される年月日を格納します。 コマンドの出力結果の最終行が格納される点に注意してください。 FOR /F %%x IN ('DATE /T') DO ECHO %%x

net timeコマンドを利用します。 以下のサンプルは、 net useコマンドを用いてIPアドレス192.168.1.1が割り当てられているマシンに、 ユーザー名:test、パスワード:passでコンピュータにアクセスした後、 net timeコマンドで、192.168.1.1マシンの時刻を、自…

WindowsXP/2003 EVENTCREATEコマンドを利用します。 以下のサンプルでは、システムエラーをID:100で、説明として"SYSTEM ERROR TESTING ALERT."を含めて記録します。 EVENTCREATE /T ERROR /ID 100 /L SYSTEM /D "SYSTEM ERROR TESTING ALERT."

WindowsXP/2003 VBScriptのeventquery.vbsを利用します。 以下のサンプルでは、システムイベントのエラーを、最新の5件について詳細を含めて表示します。 なお、cscriptコマンドは、指定したスクリプトを実行するコマンドです。 実行から表示までに少し時間…

WindowsXP/2003 EVENTTRIGGERSコマンドを利用する事で、イベントログが記録された場合に、 ログの種類等を指定して、コマンドを実行する事ができます。 以下のサンプルでは、システムイベントのエラーを監視し、D:\test.batを実行する設定を、 「sysEventLoo…

WindowsXP Perl 5.8.8 use Win32::Clipboard; my $clip = Win32::Clipboard(); my $text = $clip->GetText(); print $text;

WindowsXP Perl 5.8.8 文字コードをUTF-8としてコーディングしています。 use Encode; print length(decode('sjis',$text));

自分の時は、ウイルス対策ソフトがウイルス定義ファイル更新に失敗していたようでした。 ウイルス対策ソフトをインストーラで修正し、該当のエラーの発生を待ち受けています。 レジストリを巻き込んで一時は臨終間際にまで陥ったので、バックアップは大切だ…

俺様は何を隠そう酒のみです。 「尋常ではない飲酒量」 「隠れた高額納税者」 「酒を飲まなかったら栄養失調で倒れた。え、アホなの？」 ……などと不名誉な逸話を数多く叩きだしている俺様ですが、誠に遺憾ながら「二日酔い」という暗黒面が常に付きまとって…

scコマンドによって、リモートコンピュータのサービス起動状態を調べます（ローカルも可）。 以下のサンプルではIPアドレス192.168.1.254が割り当てられたマシンの W32Timeサービスの状態を調べます。 sc \\192.168.1.254 query W32Time

PINGコマンドによって、指定のIPアドレスがネットワーク上に割り当てされているか調べるバッチのサンプルです。 引数でIPアドレスを与えて下さい。 @ECHO off PING -n 1 -w 10 %1 | FIND "timed out">nul IF NOT ERRORLEVEL 1 ( ECHO ないよ ) ELSE ( ECHO O…

Wordでは標準の設定では、テンプレート保存先を「ユーザーテンプレートフォルダ」に規定しています。 基本的に、このフォルダに保存されているテンプレートを参照するのがWordの挙動ですが、 果たしてどのような参照順位でテンプレートを探し出しているので…

Word文書内の全てのフィールドを明示的に表示・非表示します。 ToggleShowCodesプロパティを使うのも１つの手ですが、 表示・非表示の判断は、文書内で最初に出現したフィールドの表示状態の判断が必要なので、私は以下の方法を使っています。 全表示 For Ea…

Word文書内の全ての段落をメッセージ表示するVBAサンプルです。 フィールドコード内、テキストボックス、ヘッダ・フッタ内等は対象外です。 Sub paraAllMsg() Dim p For Each p In ActiveDocument.Paragraphs MsgBox p.Range.Text Next p End Sub

Word文書内の全ての文字を１文字メッセージ表示するVBAサンプルです。 フィールドコード内、テキストボックス、ヘッダ・フッタ内等は対象外です。 Sub charAllMsg() Selection.HomeKey Unit:=wdStory Do While Selection.MoveRight MsgBox Selection.Text Lo…

Wordでは、「蛍光ペン」を色別に検索する事ができず、結果としてWordVBAでも、蛍光ペンの色別検索を利用する事ができません。 文書内の文字を１つずつ舐めて該当範囲を選択する事も方法の１つですが、検索機能を利用して蛍光ペンの色別処理を行う方法を考え…

はじまりです。“ぐりにたんく”は、くすぐりフェチ系エロ小説サイト「こちょぐりにーた」に投稿していた、 「雑記」とか「システム」などのエントリーだけに焦点を絞ったブログサイトです。ひっそりこっそり更新して行きたいと思っています。個人的な利用を趣…