在收集信息导出的时候，大家经常会用到excel或者xml等，以便于以后的导入和整理，那么这里是一个导出到excel表格的例子。

提问：在域中的用户登录某台PC 后， 登录脚本能自动发送该用户的用户名和该PC的计算机名到服务器的某个文件内（最好是xls的文件），如果可以 还能把网卡的IP地址和MAC地址一起发来！ 最基本的就是要能得到用户名和机器名。
注： 可能有很多用户同时登录的，如果单独写入某个XLS 文件有难度，也可以是每个用户单独的 一个 小的 TXT文件。

（参与原帖热烈的讨论： http://www.winmag.com.cn/forum/itemdisplay.asp?boardid=24&id=448425）

由于这里要求的条件不多，这里也没有用循环，直接写worksheet中的单元格了（呵呵，
比较丑陋了）。这个脚本是在serverIpAddressshareFolder下产生以登陆名为文件名
的xls纪录档，下次再次传送的时候，自动覆盖该文件。此目录要求在用户登陆的时候可用
并拥有读写权限。
==========================================================================

Create New workbook
Set objexcel=CreateObject("excel.application")
Set objworkbook=objexcel.workbooks.add()
objexcel.cells(1,1).value="用户名"
objexcel.cells(1,2).value="计算机名"
objexcel.cells(1,3).value="ip地址"
objexcel.cells(1,4).value="MAC"

Write Logon Information
Set oWshNetwork = WScript.CreateObject("WScript.Network")
sLogonComputerName = oWshNetwork.ComputerName
sLogonUserName = oWshNetwork.UserName
Set objWMIService = GetObject("winmgmts:"& sLogonComputerName & " ootcimv2")

Set col = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objAdapter In col
 objexcel.cells(2,1).value=sLogonUserName
 objexcel.cells(2,2).value=sLogonComputerName
 objexcel.cells(2,3).value=objAdapter.IPAddress
 objexcel.cells(2,4).value=objAdapter.MACAddress
Next

Save Workbooks
objexcel.displayAlerts=false
objworkbook.saveas "serverIpAddressshareFolder" & sLogonUserName & ".xls"
objworkbook.close