我有關於我的VB腳本的幾個問題

-1

我真的不知道如何設置標題。抱歉太含糊。我有一些特定於我的VB腳本的問題。我有關於我的VB腳本的幾個問題

首先，我有一塊決定在我的電腦中安裝了多少RAM。我希望它輸出爲一個數量。目前，它輸出我電腦中的每個插槽。例如...

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

我希望它輸出爲一行，合併（在我的情況下，4 GB）。這裏是我的代碼：

'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

來源

2013-12-22 Brendan Long

-1不是想着標題，和所有 – TheBlastOne

對於內存，試試這個：

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)

來源

2013-12-22 03:22:04

必須設置總變種爲VAR =總要得到它的工作。它確實有用，但是你爲了使它工作而改變了什麼？ –

我犯了一個錯誤...我要編輯代碼，var（又名變量）是錯誤的（這是JavaScript，哈哈）。 –

我也沒有試圖成爲一個混蛋，大聲笑。但是，它發揮的作用是什麼？ –

我有關於我的VB腳本的幾個問題

回答

相關問題