我將如何收集特定的計算機信息並整理到一個文件中？

我是一個IT的傢伙，我需要做的就是以某種方式收集以下信息：我將如何收集特定的計算機信息並整理到一個文件中？

戴爾服務標籤
計算機名稱
用戶名

所有用戶的

在我的網絡中，然後將這些信息分類到文本或Excel文件中。

我曾嘗試使用VBS文件，以及爲每個用戶創建一個.bat文件登錄腳本，但我似乎沒有得到它完全工作。

來源

2012-06-14 Keyfer Mathewson

你需要什麼幫助？獲取戴爾服務標籤？從700臺機器獲取信息？在收到數據後對數據進行排序？ – sarnold

另外，這些信息是目前在你的系統上傳播的，還是你必須等待他們進行身份驗證或者什麼之後才能嘗試獲取它？ – Sturm

我需要幫助創建一個腳本，或者沿着這些行來收集粗體信息，然後對它進行排序。 –

下面是代碼，給出你問的問題，但在將來，請發佈你的代碼，儘可能少。

'Get Dell Service Tag Info 
set ProSet = GetObject("winmgmts:").InstancesOf("Win32_BIOS") 
Set ProSet1 = GetObject("winmgmts:").InstancesOf("Win32_SystemEnclosure") 
For each Pro in ProSet 
    For each Pro1 in ProSet1 
    ServiceTag=Pro.SerialNumber 
    wscript.echo ServiceTag 
    exit for 
    Next 
    exit for 
Next 

'get username and computername, could also be asked in a batch 
Set oShell  = WScript.CreateObject("WScript.Shell") 
Set oShellEnv = oShell.Environment("Process") 
sComputerName = oShellEnv("ComputerName") 
sUsername  = oShellEnv("username") 
wscript.echo sComputerName & " " & sUsername

另一個更可靠的方式..

Set objWSHNetwork = CreateObject ("WScript.Network") 
sComputerName = objWSHNetwork.ComputerName 
sUsername  = objWSHNetwork.UserName 
wscript.echo sComputerName & " " & sUsername

您可以將結果記錄到數據庫或文本文件裏（Excel文件是不是一個好主意，我是afread）這裏伐木過程轉換爲稍後可以使用Excel打開的文本文件。

sub log (user, computer) 
    dim fs,f 
    set fs=Server.CreateObject("Scripting.FileSystemObject") 
    set f=fs.OpenTextFile(Server.MapPath(".\logging.csv"),8,true) 
    f.WriteLine now & "," & user & "," & computer 
    f.Close:set f=Nothing 
    set fs=Nothing 
end sub

來源

2012-06-15 08:58:49 peter

嘿彼得，對於第一個腳本來說，它的工作原理是完美的，但是無論如何都要將信息輸出到文本文檔或Excel電子表格中？ –

我打算做的是把它放在我們的AD服務器上，並在每個人的登錄腳本上運行它，並從那裏填充Excel電子表格。 –

在這裏你去，我想我贏得了這個8>） – peter

我將如何收集特定的計算機信息並整理到一個文件中？

回答

相關問題