＠IT：Windows TIPS -- Tips：Windows標準機能とWSHを使ってメールを送信する
対象OS：Windows 2000 Professional／Windows XP Professional／Windows 2000 Server／Windows Server 2003 解説 いまや、メールがさまざまな仕事の起点になっているという人も多いのではないか。チームでの情報交換や会議の案内、社外の取引先との連絡などに加え、備忘録代わりのメッセージを自分自身にメールしているという人もいるようだ。 こうなってくると、すべての情報通知をメールに一本化したくなる。特に読者がシステム管理者なら、さまざまな管理業務の通知をメールで受け取りたいと考えているかもしれない。例えば、サーバがハングアップしたとき、ファイアウォールがワームのアタックを受けたとき、ハードディスクの容量がいっぱいになったとき、アプリケーションのメモリ・リークによって使用可能メモリが逼迫（ひっぱく）したときなど、メールで通
Chr
その他の定数 次の定数は Visual Basic for Applications のタイプ ライブラリで定義されており、実際の値の代わりにコード内のどの部分でも使うことができます。 タイプ ライブラリ オートメーションで使用可能な公開されているオブジェクト、プロパティ、およびメソッドの標準的な説明を含むファイル、または別のファイル内のコンポーネント。タイプ ライブラリは、オブジェクト ライブラリ ファイル (.OLB) に含まれています。 定数 値 内容
BASP21 DLL
添付ファイルの指定例： files="c:\temp\aa.txt|abc.txt" ' 別名指定 files="c:\temp\aa.txt||application/octet-stream" ' Content-type 指定 files="c:\temp\aa.txt|abc.txt|application/octet-stream" ' 別名+Content-type 指定 例： svname = "c:\mailqueue" ' メールキューのフォルダ名 svname = "odyssey" ' SMTP サーバマシン名 svname = "host1.who.com/odyssey:25:60" ' ドメイン名 + SMTP サーバマシン名 ' + PORT + TIMEOUT mailto = "あのひとさん<xxxxx@xxxx.xxx>" ' 宛先 mailfrom =
＠IT：Windows TIPS -- Tips：ファイルの文字コードを変換する
Windows OSや、UNIX／Linuxなど、マルチプラットフォーム環境で作業を行っている場合、文字コードの差異に悩まされる状況は少なくない。例えば、Windows環境で作成したソース・コードをUNIX／Linux環境で動作させるようなケースでは、いちいちShift_JISで記述したコードをEUC-JPに変換するなどの必要がある。 しかし本サンプルを用いることで、特定のフォルダ配下に納められたテキスト・ファイルの文字コードを一括で変換することができる。フォルダ配下のサブフォルダまで再帰的に処理されるため、対象ファイルの指定もシンプルだ。あるプロジェクトに属するファイル一式を、一気に変換したいという場合などに威力を発揮するだろう。 なお本TIPSを利用するには、Basp21という、メール送信／コード変換用の追加コンポーネントがコンピュータにインストールされていることが条件となる。コンポー
MS-Access を使わずに Jet Database Engine を使用する方法
上記で「必須」になっているコンポーネントは、必ずしもダウンロードが必要であるという意味ではありません。 たとえば、Jet 4.0 SP3 は、Windows 2000 および Windows Millennium Edition (Me) には同梱されています。該当コンポーネントが既に存在している場合は、ダウンロードする必要はありません。 最近の OS であれば、何もしなくても動くでしょう。 HTA を使用する都合上、IE は Ver.5 以降が必須です。4.x 以下は不可です。 必須では有りませんが、VBScript を含む WSH（Windows Scripting Host）の最新版を入れてもよいでしょう。 2. VBScript with DAO 最初にご紹介する手法は、VBScript から MDB にアクセスし、結果を HTA（HTML アプリケーション）に表示するデモです。
イベントログをメールで送信するスクリプト
イベントトリガー型メール通知 Windows Server 2003, Windows XP でエラーを検出したらメールで通知します。 タスクを使って定期的に検査するタイプではなく、 リアルタイムにエラーを通知します。 短時間に何通も送信しない設計 通常、エラーログは一度出ると何度も何度も発生します。 このスクリプトは、最初の1通だけ送信し、 規定の時間まではメールを抑制する機能があります。 外部SMTPサーバに対応 サーバー本体でSMTPサービスを起動する必要がありません。 除外リスト対応 特定のイベントは通知しないように設定できます。 Windows XP Professional SP2 Windows Server 2003 Standard SP1 Windows Server 2003 R2 Standard eventsendmail.wsf スクリプト本
VBA応用(CDOでメール送信)
その後「ダウンロード」の方に移転しております。 (この画像をクリックすると、該当ページにジャンプします。)
最も初心者向けの言語は「Visual Basic」――スクリプト復活へ － ＠IT
米マイクロソフトでは、Visual Basicでスクリプティングの魅力を復活させる計画を練っている。 1月31日にワシントン州レドモンドで開催された「Lang.Net」カンファレンスにおいて、同社でVisual Basicの主席アーキテクトを務めるポール・ビック氏は、「Bringing Scripting （Back） to Visual Basic」（Visual Basicでスクリプティングを復活へ）と題された講演で「われわれは過去を振り返っている」と述べた。 VB開発チームが振り返っているのは、Visual Basicがスクリプティング言語として使われていた時代である。ただしビック氏は、この講演は「願望」を表明したものだと釘を刺した。 「要するに、VBチームは.NETのコア言語でスクリプティング機能を復活させることに大きな関心を抱いているということだ」とビック氏はインタビューで語った
VBSでどのグループに属しているか表示する@ActiveDirectory
VBSでスクリプトを実行したユーザがどのグループに属しているか表示させます。 今月のHey, Scripting Guy!のスクリプトがActiveDirectoryに便利そうだったんでこれに多少変更を加えただけですけども。
WMIを使ってDell製PC・サーバの保守ステータスを確認するVBS
DELLで購入したPCについて問い合わせを行う場合、サービスタグっていうタグナンバーを使ってここで問い合わせを行います。 端末毎に微妙にサポート連絡先が違ってたりするんだけど、それっていちいち調べるのめんどくさいじゃないですか。なんでスクリプトにして自動問い合わせ出来るようにしてみました。 しょぼいスクリプトなんですが、非プログラマが作成するプログラム・・・もとい僕が作るプログラムなんてこんなもんです。ソースもGoogleで検索したサンプルコードを切り貼りしております。 動作的には １．BIOSからサービスタグを取得 ２．サービスタグ番号をDellサポートページにGET ３．帰ってきたHTMLから必要な値を取得して表示 こんな感じです。問い合わせにはインターネットに接続された環境が必要です。コードをメモ帳か何かで保存してファイル名を”hogehoge.vbs”とか適当な名前を付けてダブルク
[WSH入門] バッチファイルからWSHへ インデックス
よく使うバッチファイルのコマンドをWSHで記述してみました。どなたにも無料で利用いただけます。そもそもバッチファイルで出来ることをWSHで行う必要は無いのですが、WHS入門用に参考にしてください。 また、バッチファイル入門者にとってはバッチファイルのリファレンスとしても活用できると思います。 [ 最終更新：2008/02/03 ] [ 000062 ]人目のお客様
インストールされているアプリケーションをリストアップするvbs | いちごいちえ
今勤めている会社は、クライアントPCの数が１２００台前後で、PCの入れ替え作業の際にそのPCにインストールされているアプリケーションが何だったのかを自動的に取得できるスクリプトを一生懸命考えたことがあり、昔に一度作ったのだがあまりきれいなやり方ではなかったので、最近勉強中のWMI 使ってうまくできないかなぁと思ったら、できた！ 下記スクリプトの実行結果は、コントロールパネルのアプリケーションの追加と削除で表示される内容と一緒のはず。 Option Explicit Dim strComputer Dim refRegistry Dim strKeyPath Dim retval Dim arrSubKeys Dim SubKey Dim strAppsName strComputer = "." Const HKEY_LOCAL_MACHINE = &H80000002 Set refRe
第8回 WshNetworkオブジェクトの詳細
第8回 WshNetworkオブジェクトの詳細：Windows管理者のためのWindows Script Host入門（3/3 ページ） ネットワーク・プリンタの接続 ―― AddWindowsPrinterConnection、AddPrinterConnectionメソッド ―― 新しいクライアント・コンピュータを追加する場合や新しいユーザーをネットワークに追加する場合など、利用可能なプリンタの設定は煩わしい作業の1つだろう。モノクロ・レーザーやカラー・レーザー、カラー・インクジェットなど、用途に応じて複数のプリンタを選択可能にしている場合には、各プリンタの場所を確認してインストールし、デフォルトのプリンタ（デフォルトの出力先になるプリンタ）を設定しなければならない。WSHを利用して、あらかじめプリンタの設定用スクリプトで準備しておけば、そのような面倒な設定作業を効率化できる。 Add
WshShellオブジェクトを利用する（2） － ＠IT
連載目次 今回は、前回に引き続いてWshShellオブジェクトのメンバ（メソッド／プロパティ）について解説する。 前回に引き続いてWshShellオブジェクトのメンバと、それから派生するオブジェクトのメンバを記したオブジェクト・モデル図をここに示す。今回は以下の赤い矢印で示したメンバについて取り上げる。 レジストリを参照・操作するメソッド レジストリはWindowsやアプリケーションの設定情報が格納されたファイルであり、設定情報がOSやアプリケーションによって書き込まれ、必要に応じて参照される。ユーザーがレジストリを直接編集することは通常はないうえ、いたずらにいじるとシステムが破壊されてしまう危険性も伴うのでできれば避けた方がよい。だが、どうしても必要な場合はレジストリ・エディタなどで閲覧、値の書き込みや変更を行う。その場合、同じレジストリ操作を繰り返し行う必要があるのなら、スクリプトで行
SAVCEのスキャン終了を待ち受ける方法 - hiyoudの日記
vpscanを利用して、コマンドラインからスキャンを利用する方法はわかりました。 しかし、vpscan.exe自体は、RTVSCAN.exe(ウィルススキャンを実行するサービス)を呼び出すだけで、すぐに終了してしまうため下記のようなバッチファイルではうまくいきませんでした。 START /WAIT VPSCAN.EXE /INIそこで、イベントログに記録されるスキャン完了のログを監視する方法を調べました。 下記のようなVBSriptで可能でした。 Set objWMIService = _ GetObject("winmgmts:{impersonationLevel=impersonate, (Security)}!\\.\root\cimv2") Set colMonitoredEvents = objWMIService.ExecNotificationQuery _ ("Selec
スキャン完了後にシャットダウンする - hiyoudの日記
以上のようなことをふまえて作成したのがこちら↓ Option Explicit Call StartScan If WaitForEndScan Then Call Shutdown End If ' ウィルススキャンを実行する Sub StartScan Dim WShell Set WShell = WScript.CreateObject("WScript.Shell") WShell.CurrentDirectory = "D:\Download\vpscan\" Call WShell.Run("vpscan.exe /ini",,True) End Sub ' ウィルススキャンの終了まで待機する Function WaitForEndScan Dim objWMIService Dim colMonitoredEvents Dim objLatestEvent Set objW
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
dfltweb1.onamae.com – このドメインはお名前.comで取得されています。
はてなブログ | 無料ブログを作成しよう
作ったもの
WScript.NetworkのSetDefaultPrinter()を使うべからず。(障害) - Windows Script Programming