0

私は IT 担当者であり、次の情報を何らかの方法で収集する必要があります。

  • デル サービス タグ
  • コンピュータネーム
  • ユーザー名

ネットワーク内のすべてのユーザーの情報を取得し、その情報をテキスト ファイルまたは Excel ファイルに並べ替えます。

VBS ファイルの使用と、ユーザーごとに .bat ファイルのログイン スクリプトの作成を試みましたが、完全には機能していないようです。

4

1 に答える 1

2

これがあなたが求めるものを与えるコードですが、将来的にはあなたが持っているコードをできるだけ少なく投稿してください。

'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ファイルは私が恐れているのは良い考えではありません）ここでは、後で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-15T08:58:49.133 に答える