SQLの窓

2018年02月12日


VBScript : コンピュータ名の取得

WshNetwork

WshNetwork オブジェクト
Set objNetwork = CreateObject("WScript.Network")
Wscript.Echo objNetwork.ComputerName
Wscript.Echo objNetwork.UserName
Wscript.Echo objNetwork.UserDomain
※ UserDomain プロパティが 動作するには、USERDOMAIN 環境変数が設定されている必要があります


WMI

Hey, Scripting Guy! 
WMI を使用してローカル コンピュータの名前を判別する方法はありますか

Win32_ComputerSystem class

以下は、Win32_ComputerSystem で取得できる string を表示したものです。(cscript.exe の実行を強制して、コマンドプロンプトで表示しています)
Crun()

strComputer = "."  

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")  
	
For Each objItem in colItems

	Wscript.Echo objItem.Name  
	Wscript.Echo objItem.Domain  
	Wscript.Echo objItem.PrimaryOwnerName

	Wscript.Echo objItem.BootupState
	Wscript.Echo objItem.Caption
	Wscript.Echo objItem.ChassisSKUNumber
	Wscript.Echo objItem.CreationClassName
	Wscript.Echo objItem.Description
	Wscript.Echo objItem.DNSHostName
	Wscript.Echo objItem.LastLoadInfo
	Wscript.Echo objItem.Manufacturer
	Wscript.Echo objItem.Model
	Wscript.Echo objItem.NameFormat
	Wscript.Echo objItem.PrimaryOwnerContact
	Wscript.Echo objItem.Status
	Wscript.Echo objItem.SystemFamily
	Wscript.Echo objItem.SystemSKUNumber
	Wscript.Echo objItem.SystemType
	Wscript.Echo objItem.UserName
	Wscript.Echo objItem.Workgroup

Next 

' **********************************************************
' Cscript.exe で実行を強制
' Cscript.exe の実行終了後 pause で一時停止
' **********************************************************
Function Crun( )

	Dim str,WshShell

	str = WScript.FullName
	str = Right( str, 11 )
	str = Ucase( str )
	if str <> "CSCRIPT.EXE" then
		str = WScript.ScriptFullName

		Set WshShell = CreateObject( "WScript.Shell" )

		strParam = " "
		For I = 0 to Wscript.Arguments.Count - 1
			if instr(Wscript.Arguments(I), " ") < 1 then
				strParam = strParam & Wscript.Arguments(I) & " "
			else
				strParam = strParam & Dd(Wscript.Arguments(I)) & " "
			end if
		Next
		Call WshShell.Run( "cmd.exe /c cscript.exe " & Dd(str) & strParam & " & pause", 1 )
		WScript.Quit
	end if

End Function
' **********************************************************
' 文字列を " で囲む関数
' **********************************************************
Function Dd( strValue )

	Dd = """" & strValue & """"

End function




【VBScript ベーシックの最新記事】
posted by lightbox at 2018-02-12 00:15 | VBScript ベーシック | このブログの読者になる | 更新情報をチェックする
container 終わり

フリーフォントで簡単ロゴ作成
フリーフォントでボタン素材作成
フリーフォントで吹き出し画像作成
フリーフォントではんこ画像作成
ほぼ自由に利用できるフリーフォント
フリーフォントの書体見本とサンプル
画像を大きく見る為のウインドウを開くボタンの作成

CSS ドロップシャドウの参考デモ
BUTTONS (CSS でボタン)
イラストAC
ぱくたそ
写真素材 足成
フリーフォント一覧
utf8 文字ツール
右サイド 終わり
base 終わり