Windows故障转移集群通用脚本资源：如何获取IP地址？

针对你的VBS脚本需要跨多集群动态获取应用IP、替代硬编码配置的需求，下面分主流集群场景给出可落地的实现方式，全程无需依赖私有属性配置：

场景1：Windows Server故障转移集群（WSFC） #

如果你的集群是WSFC，直接通过原生集群COM对象查询IP资源，适配多集群的核心是统一资源命名规则：

Dim clusterObj, clusterRes, targetIp
Set clusterObj = CreateObject("MSCluster.Cluster")
clusterObj.Open "" ' 自动连接本地集群，跨节点部署无需修改

For Each clusterRes In clusterObj.Resources
    ' 按资源类型+名称关键词筛选，替换为你的应用IP资源的特征
    If clusterRes.Type.Name = "IP Address" And InStr(clusterRes.Name, "AppBackendIP") > 0 Then
        targetIp = clusterRes.PrivateProperties("Address")
        Exit For
    End If
Next

' 后续业务逻辑使用targetIp
If Not IsEmpty(targetIp) Then
    WScript.Echo "获取到目标IP：" & targetIp
Else
    WScript.Echo "未匹配到目标IP资源，请检查资源命名规则"
End If

• 优势：直接调用WSFC原生接口，跨集群部署时只要保持IP资源的命名关键词一致，脚本无需任何修改。

场景2：容器集群（K8s）Windows节点上的VBS脚本 #

如果VBS运行在K8s Windows节点中，可通过kubectl命令或挂载的集群元数据获取应用Service IP：

Dim shellObj, execResult, serviceIp
Set shellObj = CreateObject("WScript.Shell")

' 替换为你的应用Service名称和命名空间，保持跨集群统一即可
execResult = shellObj.Exec("kubectl get service app-backend -n prod -o jsonpath='{.spec.clusterIP}'").StdOut.ReadAll()
serviceIp = Replace(execResult, "'", "") ' 清理输出的多余引号

WScript.Echo "获取到应用Service IP：" & serviceIp

• 注意：需确保节点已配置kubectl权限，且跨集群的应用Service名称、命名空间完全一致。

关键注意事项 #

• 放弃私有属性方案：私有属性需要在每个集群手动配置，完全违背跨集群通用的需求，优先采用资源特征匹配或集群原生元数据查询的方式。
• 增加容错逻辑：脚本中需加入资源不存在、集群连接失败的判断，避免直接崩溃影响业务。

内容的提问来源于stack exchange，提问作者stackedyellowangel