SCCM 2012安装部署一：部署的先决条件

检测端口开放函数。

.S0 {
color: #000000;
}
.S1 {
font-style: italic;
color: #009933;
}
.S3 {
font-style: italic;
font-weight: bold;
color: #AC00A9;
}
.S4 {
font-style: italic;
font-weight: bold;
color: #000090;
}
.S5 {
font-weight: bold;
color: #0000FF;
}
.S6 {
font-weight: bold;
color: #FF33FF;
}
.S7 {
font-weight: bold;
color: #9999CC;
}
.S8 {
font-weight: bold;
color: #FF0000;
}
.S9 {
font-weight: bold;
color: #AA0000;
}
span {
font-family: 'Courier New';
color: #000000;
font-size: 10pt;
}

_CheckTcpPort("192.168.1.228",1390)
If @error Then MsgBox(64,"error","端口没有开放")

Func _CheckTcpPort($sIP,$sPort)
;=============================
;说明：检测TCP端口是否开放
;返回；错误值为1，IP地址错误
; 错误值为2，端口错误
;其他错误值依照
;Windows API WSAGetError 返回
;作者：Sanhen
;Web: www.autoit.net.cn
;=============================
Local $TcpSocket
TCPStartUp()
$TcpSocket = TCPConnect($sIP ,$sPort)
Switch $TcpSocket
Case -1
Return SetError(@error)
Case Else
Return ConsoleWrite("Open Port ")
EndSwitch

TCPShutdown()

EndFunc

_CheckUdpPort("192.168.1.228",139)
If @error Then MsgBox(64,@error,"端口没有开放")

Func _CheckUdpPort($sIP,$sPort)
;=============================
;说明：检测UdP端口是否开放
;返回；错误值为1，IP地址错误
; 错误值为2，端口错误
;其他错误值依照
;Windows API WSAGetError 返回
;作者：Sanhen
;Web: www.autoit.net.cn
;=============================
Local $UdpSocket
UDPStartup()
$UdpSocket = UDPBind($sIP,$sPort)
Switch $UdpSocket
Case -1
Return SetError(@error)
Case Else
Return ConsoleWrite("Open Port ")
EndSwitch

UDPShutdown()

EndFunc