PS C:\Users\Administrator> Test-NetConnection dc01 -Port 443
Set objWshShell = WScript.CreateObject("WScript.Shell")
Set objExec = objWshShell.Exec("cmd.exe /c powershell Test-NetConnection dc01 -Port 443")
Do Until objExec.StdOut.AtEndOfStream
strReg = objExec.StdOut.ReadLine
IF InStr(strReg , "TcpTestSucceeded : True") >= 1 Then Msgbox strReg
IF InStr(strReg , "TcpTestSucceeded : False") >= 1 Then Msgbox strReg
Loop
---------------------------
---------------------------
TcpTestSucceeded : True
---------------------------
OK
---------------------------
---------------------------
---------------------------
警告: TCP connect to dc01:443 failed
---------------------------
OK
---------------------------
---------------------------
---------------------------
PingSucceeded : True
---------------------------
OK
---------------------------
---------------------------
---------------------------
TcpTestSucceeded : False
---------------------------
OK
---------------------------
PS C:\Users\Administrator> Test-NetConnection dc01 -Port 445
ComputerName : dc01
RemoteAddress : 172.16.0.1
RemotePort : 445
InterfaceAlias : イーサネット
SourceAddress : 192.168.101.5
PingSucceeded : True
PingReplyDetails (RTT) : 0 ms
TcpTestSucceeded : True
PS C:\Users\Administrator> Test-NetConnection dc01 -Port 443
警告: TCP connect to dc01:443 failed
ComputerName : dc01
RemoteAddress : 172.16.0.1
RemotePort : 443
InterfaceAlias : イーサネット
SourceAddress : 192.168.101.5
PingSucceeded : True
PingReplyDetails (RTT) : 0 ms
TcpTestSucceeded : False
