IP検索2　 次の文書

Function PING_CHK(wIP, wMAC, wDom, wTNAME, uname)
Dim sText As Variant
Dim wText As Variant
Dim ErrMsg As Variant
Dim TempName As Variant
Dim BatName As Variant
Dim ff As Long
Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim c4 As String
Dim c6 As String
Dim c8 As String
Dim TaskID As Long
Dim T
Dim cc

On Error GoTo ping_error

MacAddress = ""
host$ = wIP

TempName = apiGetTempPath + "\ipchk.tmp"
BatName = apiGetTempPath + "\ipchk.bat"
Select Case getWindowsType
Case "WINDOWS"
c1 = Left$(apiGetTempPath, 2)
c2 = "CD \"
c3 = "CD WINDOWS"
c4 = "REM"
c6 = "NBTSTAT -a " + host$ + " > " + TempName
c8 = ""
Case "WINNT"
c1 = Left$(apiGetTempPath, 2)
c2 = "CD \"
c3 = "CD WINNT\system32"
c4 = "REM"
c6 = "NBTSTAT -a " + host$ + " > " + TempName
c8 = ""
En
　



← 左の文字をここへ入力後 登録ボタンをクリックしてください

(サイト管理者承認後掲載されます)