コンピュータ名の変更

プログラム

最近、手元にスクリプトが増えてきたので後でまとめてサイトへアップする事にしました。大したものはありませんが、簡単に作れるけど書くのがめんどくさい程度のスクリプトがたくさんありますので結構役に立つと思います。


で、今回はそれに先駆けてコンピュータ名変更のスクリプトをアップします。以前、友達に頼まれて適当に作ったのですが意外に重宝します。

' コンピュータ名を変更するスクリプト
' Windows XP or Windows2003Server限定スクリプト

'**Start Encode**
' 　2005.09.02作成


' WMIオブジェクト作成
strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

' Win32_OperationSystemからデータを取得
Set colOperate   = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") 

' 現在のコンピュータ名を取得
For Each objOPSystem in colOperate
    newCompStr = objOPSystem.CSName
Next   

' 新しいコンピュータ名を入力
newCompStr = InputBox("新しいコンピュータ名を指定してください", , newCompStr)
If newCompStr = "" Then
  WScript.Echo "入力が無いのでコンピュータ名を設定出来ません" & vbCRLF & "(処理を中止します)"
  WScript.Quit
End If

' コンピュータ名を設定
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") 

For Each objComputer in colComputers 
    err = ObjComputer.Rename(newCompStr)

   If err = 0 Then
      WScript.Echo '変更完了(再起動して下さい)'
   Else
      WScript.Echo '変更作業が失敗しました(errorcode : ' + err + ')'
   End If
Next