WshNetwork WshNetwork オブジェクト
Set objNetwork = CreateObject("WScript.Network")
Wscript.Echo objNetwork.ComputerName
Wscript.Echo objNetwork.UserName
Wscript.Echo objNetwork.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 ベーシックの最新記事】
【VBScript関連のカテゴリ】
