No.4ベストアンサー
- 回答日時:
ここら辺が大変参考になります。
Microsoft TechNet のスクリプトセンター
http://www.microsoft.com/japan/technet/scriptcen …
同じく、連載コラムの Hey, Scripting Guy!
http://www.microsoft.com/japan/technet/scriptcen …
Windows 98 で動かなかったらごめんなさい。
' ホスト名とログオンユーザー名
Sub hoge1()
Dim objNetwork As Object
Set objNetwork = CreateObject("WScript.Network")
Dim strUserName As String
strUserName = objNetwork.UserName
Dim strHostName As String
strHostName = objNetwork.ComputerName
End Sub
' OS情報
Sub hoge2()
Dim strComputer As String
strComputer = "."
Dim objWMIService As Object
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Dim colOperatingSystems As Object
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from win32_OperatingSystem")
Dim objOperatingSystem As Object
For Each objOperatingSystem In colOperatingSystems
MsgBox objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next
End Sub
No.3
- 回答日時:
コンピュータ名はVBAを使い、
http://www.asahi-net.or.jp/~ZN3Y-NGI/YNxv201.htm …
の方法で環境変数%computername%を取得できるようです。
OSについてはこの方法では残念ながら9x系かNT系かという大雑把な判断しかできそうにないです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
サーバー上のファイルアクセス...
-
batファイル処理でのテキストフ...
-
ブラウザでASPファイルを開こう...
-
【Excel VBA】PDFを作成して,...
-
Excelでdatファイルを作成??
-
Microsoft Access エラー 3051
-
バッチファイルが作成できない
-
PowerPoint スライドの保存&メ...
-
VBSで指定したフォルダにファイ...
-
バッチによるショートカットの...
-
テキストファイルの文字色に色...
-
Excel-VBA 撮影日時の取得
-
仮想パスの意味
-
エクセルをダウンロードさせる...
-
ダウンロード不可PDFファイルは...
-
CSVファイル操作
-
VBAでファイルパスが長すぎてコ...
-
エクセルVBA フォームを開く時...
-
サーバーにバックアップを作り...
-
HTMLプログラムにExcelをリンク...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ファイルやフォルダの有無、他...
-
Access2003で「オブジェクト'○○...
-
FileExitsについて
-
BASP21を使わないファイルアッ...
-
VBScriptでファイル検索
-
Excelでのデータ挿入が上手くで...
-
拡張子.vbsのファイルの外部フ...
-
EXCELのプロセスを終了さ...
-
何百台の社内端末移設をしてお...
-
Accessでパソコンの情報を得るには
-
VBScriptでファイルアップロー...
-
delphiネットワークドライブフ...
-
Excelでdatファイルを作成??
-
複数のテキストファイルをexcel...
-
フォルダ作成用バッチファイル...
-
【Excel VBA】PDFを作成して,...
-
Microsoft Access エラー 3051
-
テキストファイルの文字色に色...
-
1フォルダに保存できるファイル...
-
VBAでファイルパスが長すぎてコ...
おすすめ情報