ワークグループ名の自動変更スクリプト

ワークグループ名を、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"

コメントを残す

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です