ワークグループ名の自動変更スクリプト
ワークグループ名を、VBスクリプトで自動的に変更できるようになったので記載しておきます。
「あやめ」などを使って、各PCでスクリプトを実行させてやると、ワークグループ名の変更が簡単にできてしまいます。
◆サンプル
ワークグループ名が “workgroup1″と “workgroup2“ならば、 “workgroup3“ に変更します。
すべてのPCのワークグループ名を、同一に変更したい場合は、wkg_set.bat を自動起動させるだけです。
◆wkg_set.vbs
'========================================
' ワークグループ名変更
'========================================
Dim objWMISvc , colItems , wsh , objExec
Dim strComputerDomain , strCmdLine
Set objWMISvc = GetObject( "winmgmts:\\.\root\cimv2" )
Set colItems = objWMISvc.ExecQuery( "Select * from Win32_ComputerSystem", , 48 )
Set wsh = WScript.CreateObject("WScript.Shell")
For Each objItem in colItems
strComputerDomain = objItem.Domain
If objItem.PartOfDomain Then
'WScript.Echo "Computer Domain: " & strComputerDomain
Else
'WScript.Echo "Workgroup: " & strComputerDomain
if LCase(strComputerDomain) = "workgroup1" _
or LCase(strComputerDomain) = "workgroup2" _
then
strCmdLine = "\\landisk\disk\wkg_set.bat"
Set objExec = wsh.Exec(strCmdLine)
WScript.Sleep(3000)
WScript.Echo "ワークグループ名を workgroup3 に変更しました。PC再起動後に反映されます"
end if
End If
Next
◆wkg_set.bat
wmic computersystem where name='%COMPUTERNAME%' call joindomainorworkgroup name="workgroup3"