ScriptCentre/wsh/ワークグループ名の変更 - progtips

Set wmi = GetObject("winmgmts:root\cimv2")

Call RenameWorkgroup("wg000")


Function RenameWorkgroup(name)
    For Each obj in wmi.InstancesOf("Win32_ComputerSystem")
        If obj.JoinDomainOrWorkGroup(WGNAME)=0 Then
            RenameWorkgroup = True
        Else
            RenameWorkgroup = False
        End If
    Next
End Function