ようやくGotDotNet Japan アーカイブが公開されました。
.NET Framework 1.0 の頃の話題が豊富です。
.NET Framework 1.0 の頃の話題が豊富です。
元ダメプログラマで現ダメ中間管理職の駄文
Dim Locator Dim Service Dim batteries Dim battery Set Locator = WScript.CreateObject("WbemScripting.SWbemLocator") Set Service = Locator.ConnectServer Set batteries = Service.ExecQuery("SELECT * FROM Win32_Battery") For Each battery In batteries WScript.Echo "System Name :" & battery.SystemName WScript.Echo "Name :" & battery.Name WScript.Echo "DeviceID :" & battery.DeviceID WScript.Echo Next Set batteries = Nothing Set battery = Nothing Set Locator = Nothing Set Service = Nothing続きを読む