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

xtdawei

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

1. dim objFileSys
   
2. dim objFile
   
3. i = 1
   
4. 
   
5. set objFileSys = wscript.Createobject("Scripting.FileSystemObject")
   
6. set objFile = objFileSys.createTextFile("WKS_Info.txt",True)
   
7. 
   
8. 
   
9. 
   
10. strComputer ="."
    
11. 
    
12. Set oWMIService = GetObject("winmgmts:\" & strComputer & "\root\CIMV2")
    
13. Set colComputerSystemItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystem",,48)
    
14. Set colComputerSystemProductItems = oWMIService.ExecQuery ("SELECT * FROM Win32_ComputerSystemProduct",,48)
    
15. Set colSMBIOSItems = oWMIService.ExecQuery( "Select * from Win32_BIOS where PrimaryBIOS = true", , 48 )
    
16. Set colNetworkAdapterItems = oWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled = 1",,48)
    
17. 
    
18. ' On Error Resume Next
    
19. For Each oComputerSystem In colComputerSystemItems
    
20. 
    
21.         objFile.Writeline("Made by: " & oComputerSystem.Manufacturer)
    
22.         objFile.Writeline("Model is: " & oComputerSystem.Model)
    
23.         objFile.Writeline()
    
24.        
    
25. Next
    
26. 
    
27. For Each oComputerSystemProduct In colComputerSystemProductItems
    
28.        
    
29.         objFile.writeline("UUID is: " & oComputerSystemProduct.UUID)
    
30.         objFile.Writeline()
    
31. Next
    
32.        
    
33. For Each oSMBIOS In colSMBIOSItems
    
34.        
    
35.         objFile.Writeline("BIOS version is: " & oSMBIOS.SMBIOSBIOSVersion)
    
36.         objFile.Writeline("Serial Number is: " & oSMBIOS.SerialNumber)
    
37.         objFile.Writeline()
    
38. Next
    
39.         objFile.Writeline("hostname is: " & hostname)
    
40.    
    
41. Next
    
42. 
    
43. For Each NetworkAdapter in colNetworkAdapterItems  
    
44.                     
    
45.            If i < 3 Then
    
46.          
    
47.         objFile.Writeline("NIC " & i & " name is: " & NetworkAdapter.Description)
    
48.         objFile.writeline("MAC address is: " & NetworkAdapter.MACAddress)
    
49.         objFile.Writeline()
    
50. 
    
51.         i = i + 1
    
52.        
    
53.         End If
    
54. 
    
55.   
    
56. Next  
    
57. 
    
58. 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

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