前些天“幸福”给我出了个难题：要在没SMS的情况下收集域中所有客户机的硬件配置信息。想想也只有用脚本了。

‘ 技术中国 http://www.mstc.com.cn/ 
‘ Made by 付林. 
‘ ************************************************ 
strComputer = "."
Set objShell = CreateObject("Wscript.Shell") 
objShell.Run("%comspec% /c systeminfo > C:%computername%configure.txt"), 1, TRUE
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.Shell")
objFSO.CopyFile "C:*configure.txt","10.0.0.1123" ‘配置信息存放路径
objFSO.DeleteFile "C:*configure.txt"
  if err = 0 then
    Wscript.echo "计算机配置信息收集成功！"
  end if

通过脚本调用systeminfo命令来完成硬件配置信息的收集，并以计算机名为文件名保存成一个TXT文件，再上传到事先准备好的共享文件夹中。

注意：用登录脚本在客户机上执行信息收集；共享文件夹的NTFS和共享权限对脚本的最终用户应该可写。