Private Sub Example()

　　If PingResult("192.168.1.1") = False Then
　　　　MsgBox "PCが起動していません。"
　　Else
　　　　MsgBox "PCは起動しています。"
　　End If

End Sub

Function PingResult(strHostname As String)

　　Dim objWMIService As Object, objStatus As Variant

　　Set objWMIService = _
　　　　GetObject("winmgmts:{impersonationLevel=impersonate}"). _
　　　　ExecQuery("select * from Win32_PingStatus where address = '" & _
　　　　strHostname & "'", , 48)

　　For Each objStatus In objWMIService
　　　　If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then
　　　　　　PingResult = False
　　　　Else
　　　　　　PingResult = True
　　　　End If
　　Next

End Function

原則として、できません。

無理矢理にでもやりたい場合は、一旦デザインモードで表示させ、
レコードソースを変更する必要があります。
例）

Dim MyReport As Report

'デザインビューでレポート事前に開く必要があります。
DoCmd.OpenReport "sample", acViewDesign

'最小化するためにレポートを特定
DoCmd.SelectObject acReport, "sample", False
'最小化
DoCmd.Minimize

Set MyReport = Reports!sample

MyReport.RecordSource = "[ Record Source ]"

# OS: Red Hat Enterprise Linux 5
# perl: 5.8.5
# qmail: 1.03
# apache: 2.2.8

apacheはプリインストールのものを廃止し、別途ソースからインストール。
sendmailを廃止し、qmailを導入したところ、CGIからメールが送れないという現象が発生。
別のサーバー（CentOS）では同じCGIを実行しても正常に送信できる。
perlで文法を確認してもエラーはなし。

CGIからのメール送信を実行すると、auditからセキュリティの警告が発生。
続きを読む…»

自社サーバーで運用していたドメインを他社サーバーへ移した場合、
一旦Yahooのインデックスから削除されてしまう場合があります。

それが復活するまでには、最低でも約１ヶ月を要します。
そういう時は気長に待つべし。

VBで正規表現を使った文字列検索を実装します。

Dim regEx As Object
Dim Matches As Variant

'正規表現オブジェクト
Set regEx = CreateObject("VBScript.RegExp")

'検索文字列全体について検索する
'regEx.Global = True
'最初の一致を検索する(既定値)
'regEx.Global = False

'検索するときに大文字と小文字を区別しない
'regEx.IgnoreCase = True
'検索するときに大文字と小文字を区別する(既定値)
'regEx.IgnoreCase = False

'検索するパターン
regEx.Pattern = "検索パターン"

続きを読む…»