ワークグループ名の自動変更スクリプト
ワークグループ名を、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"