- VB,VBA
-
2009-12-10 - 更新:2018-12-26
この記事は最終更新日から1年以上経過しています。
1 | Private Sub Example() |
2 |
3 | If PingResult("192.168.1.1") = False Then |
4 | MsgBox "PCが起動していません。" |
5 | Else |
6 | MsgBox "PCは起動しています。" |
7 | End If |
8 |
9 | End Sub |
10 |
11 | Function PingResult(strHostname As String) |
12 |
13 | Dim objWMIService As Object, objStatus As Variant |
14 |
15 | Set objWMIService = _ |
16 | GetObject("winmgmts:{impersonationLevel=impersonate}"). _ |
17 | ExecQuery("select * from Win32_PingStatus where address = '" & _ |
18 | strHostname & "'", , 48) |
19 |
20 | For Each objStatus In objWMIService |
21 | If IsNull(objStatus.StatusCode) Or objStatus.StatusCode <> 0 Then |
22 | PingResult = False |
23 | Else |
24 | PingResult = True |
25 | End If |
26 | Next |
27 |
28 | End Function |
この記事がお役に立ちましたらシェアお願いします
7,423 views
Fedoraインストール時にごちゃごちゃになったHDの整理の... (25/02/14)
