Пара вопросов, которые у меня есть относительно моего VB Script

Question

Я действительно не знал, как установить заголовок как. Извините, что слишком расплывчато. У меня есть несколько вопросов, касающихся моего VB Script.

Во-первых, у меня есть часть, которая определяет, сколько оперативной памяти установлено на моем ПК. Я бы хотел, чтобы он выводился как одна сумма. В настоящее время он выводит каждый слот на моем компьютере. Например ...

Capacity:, 1024, Speed:, 1333 
Capacity:, 1024, Speed:, 1333 
Capacity:, 1024, Speed:, 1333 
Capacity:, 1024, Speed:, 1333 

Я хочу, чтобы он выводился как одна строка, в сочетании (в моем случае, 4 ГБ). Вот мой код:

'Finds the computer's RAM capacity and speed. 

strComputer = "." 
     Set objWMIService = GetObject("winmgmts:" _ 
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

     Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory") 

     For Each objItem in colItems  
     convertedResult = objItem.Capacity/1048576 

      MyFile.WriteLine ("Capacity:, " & convertedResult & ", Speed:, " & objItem.Speed) 
Next 

Мой следующий вопрос, я хочу, чтобы выяснить, какие сетевые адаптеры в моем компьютере, и их MAC-адрес. Я просто хочу найти физические адаптеры LAN и адаптеры WLAN. Я не хочу никаких виртуальных адаптеров.

'Finds the computer's network adapters' name and MAC address (this includes virtual adapters). 

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" _ 
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter") 

For Each objItem in colItems 
    MyFile.WriteLine ("Name:, " & objItem.Name & ", MAC Address:, " & objItem.MACAddress) 
Next 

Answer 1

Для памяти, попробуйте следующее:

strComputer = "." 
    Set objWMIService = GetObject("winmgmts:" _ 
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 

    Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMemory") 

    dim total 

    For Each objItem in colItems  
     convertedResult = objItem.Capacity/1048576 
     total = total + convertedResult 
    Next 


    MyFile.WriteLine ("Capacity:, " & total)