vbs 获取计算机主机名,[已解决]VBS如何获取本机计算机名？ - VBS求助&讨论 - 批处理之家 批处理_BAT脚本_PowerShell_VBS_CMD_DOS_Perl_Python - ...

dim objFileSys

dim objFile

i = 1

set objFileSys = wscript.Createobject("Scripting.FileSystemObject")

set objFile = objFileSys.createTextFile("WKS_Info.txt",True)

strComputer ="."

Set oWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Set colComputerSystemItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem",,48)

Set colComputerSystemProductItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystemProduct",,48)

Set colSMBIOSItems = oWMIService.ExecQuery( "Select * from Win32_BIOS where PrimaryBIOS = true", , 48 )

Set colNetworkAdapterItems = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1",,48)

set hostname = hostname

' On Error Resume Next

For Each oComputerSystem In colComputerSystemItems

objFile.Writeline("Name is: " & oComputerSystem.Name)

objFile.Writeline("Made by: " & oComputerSystem.Manufacturer)

objFile.Writeline("Model is: " & oComputerSystem.Model)

objFile.Writeline()

Next

For Each oComputerSystemProduct In colComputerSystemProductItems

objFile.writeline("UUID is: " & oComputerSystemProduct.UUID)

objFile.Writeline()

Next

For Each oSMBIOS In colSMBIOSItems

objFile.Writeline("BIOS version is: " & oSMBIOS.SMBIOSBIOSVersion)

objFile.Writeline("Serial Number is: " & oSMBIOS.SerialNumber)

objFile.Writeline()

Next

objFile.Writeline("hostname is: " & hostname)

Next

For Each NetworkAdapter in colNetworkAdapterItems

If i < 3 Then

objFile.Writeline("NIC " & i & " name is: " & NetworkAdapter.Description)

objFile.writeline("MAC address is: " & NetworkAdapter.MACAddress)

objFile.Writeline()

i = i + 1

End If

Next

wscript.echo "Workstation info dumping is finished!"