Board logo

标题: [问题求助] [已解决]VBS如何获取本机计算机名？ [打印本页]
作者: xtdawei    时间: 2011-11-18 09:48     标题: [已解决]VBS如何获取本机计算机名？

我想在此脚本中添加一项可以获取本机计算机名，烦请各位老师帮忙，非常感谢！
  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    时间: 2011-11-18 10:23

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!"
作者: 小爪冰凉君    时间: 2011-11-18 10:38

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    时间: 2011-11-18 10:39

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



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2