スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

WSH(Windows Script Host)でネットワーク情報を取得

Windows Script Host(WSH)シリーズ


先日、WSH(Windows Script Host)でOS情報を取得 では、
WSHを利用して、OSの情報を取得しました。

今回は、ネットワークの情報を返すスクリプトの公開です。

Windows Script Host(WSH)でネットワークの情報を取得する



'==================================================================
' GetLocator
'==================================================================
Function GetLocator()
   Dim oLocator
   Set oLocator = CreateObject("WbemScripting.SWbemLocator")
   Set GetLocator = oLocator
End Function

'==================================================================
' ネットワーク 情報
'==================================================================
Function GetNetworkInfo()
   Dim oLocator
   Dim oClassSet
   Dim oClassSetNet
   Dim oClass
   Dim oService
   Dim sMesStr

   sMesStr=""

   'ローカルコンピュータに接続する。
   Set oLocator = GetLocator()
   Set oService = oLocator.ConnectServer

   'クエリー条件をWQLにて指定する。
   Set oClassSet = oService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration")

   'コレクションを解析する。
   For Each oClass In oClassSet
      If oClass.IPEnabled = True Then
         sMesStr = sMesStr & "種類:" & oClass.Description & vbCrLf & _
         "IPアドレス:" & oClass.IPAddress(0) & vbCrLf & _
         "IPアドレスリース有効期限:" & oClass.DHCPLeaseExpires & vbCrLf & _
         "IPアドレスリース取得日時:" & oClass.DHCPLeaseObtained & vbCrLf & _
         "DHCPサーバー:" & oClass.DHCPServer & vbCrLf & vbCrLf
      End If
   Next

   GetNetworkInfo = sMesStr

   '使用した各種オブジェクトを開放する。
   Set oClassSet = Nothing
   Set oClass = Nothing
   Set oService = Nothing
   Set oLocator = Nothing
End Function

結果は以下のように返ります。

種類:Intel(R) 82579LM Gigabit Network Connection
IPアドレス:192.124.61.153
IPアドレスリース有効期限:
IPアドレスリース取得日時:
DHCPサーバー:
スポンサーサイト

テーマ:プログラミング - ジャンル:コンピュータ

WSH(Windows Script Host)でOS情報を取得

Windows Script Host(WSH)シリーズ


先日、WSHで.NET Framework のインストール状態を調べる では、
WSHを利用して、.NET Frameworkがインストールされているかを調べるスクリプトを記載しました。
バージョン毎に、○か×が返ります。

今回は、OSの情報を返すスクリプトの公開です。

Windows Script Host(WSH)でOSの情報を取得する



'==================================================================
' GetLocator
'==================================================================
Function GetLocator()
   Dim oLocator
   Set oLocator = CreateObject("WbemScripting.SWbemLocator")
   Set GetLocator = oLocator
End Function

'==================================================================
' OS 情報
'==================================================================
Function GetOSInfo()
   Dim oLocator
   Dim oClassSet
   Dim oClassSetNet
   Dim oClass
   Dim oService
   Dim sMesStr

   sMesStr=""

   'ローカルコンピュータに接続する。
   Set oLocator = GetLocator()
   Set oService = oLocator.ConnectServer

   'クエリー条件をWQLにて指定する。
   Set oClassSet = oService.ExecQuery("Select * From Win32_OperatingSystem")

   'コレクションを解析する。
   For Each oClass In oClassSet
      sMesStr = sMesStr & "OS:" & CStr(oClass.Caption) & vbCrLf & "バージョン:" & CStr(oClass.Version) & vbCrLf
      sMesStr = sMesStr & "サービスパック:" & CStr(oClass.ServicePackMajorVersion) & vbCrLf
      sMesStr = sMesStr & "ビット数:" & CStr(oClass.OSArchitecture) & vbCrLf
      sMesStr = sMesStr & "コンピュータ名:" & oClass.CSName & vbCrLf
   Next

   GetOSInfo = sMesStr

   '使用した各種オブジェクトを開放する。
   Set oClassSet = Nothing
   Set oClass = Nothing
   Set oService = Nothing
   Set oLocator = Nothing
End Function

結果は以下のように返ります。

OS:Microsoft Windows 7 Professional
バージョン:6.1.7601
サービスパック:1
ビット数:32 ビット
コンピュータ名:WIN7001

テーマ:プログラミング - ジャンル:コンピュータ

WSHでインストールされている .NET Framework バージョンを確認する

WSHでインストールされている .NET Framework バージョンを確認する


SQLサーバーのインストールを自動化しているのだが、
手動でのインストールが必要な時があるため、
先日、【SQL SERVER】SQL Server® 2008 R2 SP2 - Express Edition のインストール で手動でのインストール方法を説明しました。

しかし、手動となるとかなり敷居が高くなり、
馴れていない人が操作すると、トラブルになりかねないので、
手動するにしても、環境を十分チェックした上で行えるように、
環境チェックをスクリプトで行えるようにと考えています。

ということで、
今回は.NET Framework がインストールされているのかをチェックするスクリプトのご紹介です。

とりあえず、.NET Framework 1.1~4.5まで対応しています。

Const HKEY_LOCAL_MACHINE = &H80000002

sMesStr=""
strComputer = "."

Set objRegistry=GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\NET Framework Setup\NDP"

objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubkeys

For Each objSubkey In arrSubkeys
   if left(objSubkey,1)="v" then
      strKeyPath = "SOFTWARE\Microsoft\NET Framework Setup\NDP\" & objSubkey
      objRegistry.GetDWORDValue HKEY_LOCAL_MACHINE, strKeyPath, "Install", lRet
      if lRet = 1 then
         sMesStr = sMesStr & objSubkey & ":○" & vbCrLf
      else
         sMesStr = sMesStr & objSubkey & ":×" & vbCrLf
      End If
   End If
Next

MsgBox(".NET Framework" & vbCrLf & vbCrLf & sMesStr)


実行結果


上記スクリプトの実行結果は以下の通り。

v2.0.50727:○
v3.0:○
v3.5:○
v4:×
v4.0:×

テーマ:プログラミング - ジャンル:コンピュータ

スポンサードリンク
最新記事
カテゴリ
カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
最新トラックバック
ブロとも申請フォーム

この人とブロともになる

月別アーカイブ
激安特価情報
Amazonタイムセール
楽天市場タイムセール
Yahoo出店記念セール
NTT-X Store 激安特価!
激安家電のGENO PLUS
コストコ・イケアの通販
つけたまま眠れるファンデ
家電品を安値で買うならこちら!
ケーズデンキ
ベルメゾンアウトレット
激安ブランドコスメ 週末セール
モバコレ SALE
au Brand Garden
アウトレットモール BRANDELI
ブックオフオンラインのオトナ買い
ビッグカメラ◆週末特別セール
ソフマップ 中古・アウトレット
【宿代全額ポイントバック】夏休み早期予約キャンペーン
ネットプライス 送料294円
イオンモールオンライン
EDIONネットショップ
最新コメント
天気予報

-天気予報コム- -FC2-
カウンター
検索フォーム
リンクに表示されるテキスト
ランキング参加中
クリックしていただけると、 こまつもとは大変嬉しいです。



人気ブログランキングへ

ランキングに参加しています。 クリックのご協力をお願い致します。 いつもありがとうございます。 にほんブログ村 通販ブログへ
ブログランキング・にほんブログ村へ
にほんブログ村 IT技術ブログ ソフトウェアへ
にほんブログ村 ゲームブログへ
にほんブログ村 IT技術ブログへ



人気ブログをblogramで分析

趣味・個人

ランキング

リンクリックブログランキング

私を登録 by BlogPeople



RSSリンクの表示
リンク
QRコード
QRコード
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。