IIS的:Private Sub Form_Load()
Set ComputerObj = GetObject("IIS://LocalHost/W3SVC/1/ROOT")
MsgBox ComputerObj.PathEnd Sub'Localhost:IIS所在机器名
'1: 你的站点的Index
Set ComputerObj = GetObject("IIS://LocalHost/W3SVC/1/ROOT")
MsgBox ComputerObj.PathEnd Sub'Localhost:IIS所在机器名
'1: 你的站点的Index
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货