Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Sub RenameComputerName(compname)
For Each computer in wmi.ExecQuery("Select * from Win32_ComputerSystem")
computer.Rename compname
Next
End Sub記事メニュー
急上昇Wikiランキング
急上昇中のWikiランキングです。今注目を集めている話題をチェックしてみよう！
最近作成されたWikiのアクセスランキングです。見るだけでなく加筆してみよう！
atwikiでよく見られているWikiのランキングです。新しい情報を発見してみよう！
最近アクセスの多かったページランキングです。話題のページを見に行こう！