[问题求助] [已解决]VBS如何获取本机计算机名？

xtdawei

我想在此脚本中添加一项可以获取本机计算机名，烦请各位老师帮忙，非常感谢！

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)

' On Error Resume Next 
For Each oComputerSystem In colComputerSystemItems 

	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!"
复制代码

broly

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!"

小爪冰凉君

strComputer = "."  
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")  
Set colComputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")  
For Each objComputer in colComputers  
Wscript.Echo objComputer.Name
Next

xtdawei

问题已经解决，，谢谢你们~~