木有大神回复啊
我在网上找了两个脚本，一个是收集网卡信息的：
@echo off
cls
if "%OS%" == "Windows_NT" goto WinNT
:else
echo ** Not Windows NT **
goto end
:WinNT
set OUTDIR=\\lashou.local\Pc-Report$
echo ** Software Infomation ..... Please wait for while.**
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
set T=%TIME: =0%
set TIME_STAMP=%date:~0,4%%date:~5,2%%date:~8,2%%T:~0,2%%T:~3,2%%T:~6,2%
echo "login time:%TIME_STAMP%" >>software.txt
echo "login user:%USERNAME%" >>software.txt
ipconfig /all >>software.txt
::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
move c:software.txt %OUTDIR% 2> Nul
:end
echo ** It's all finished **
另外一个收集软件信息的
on error resume next
Dim oNetwork
Set oNetwork = CreateObject("WScript.Network")
Dim sLocal
sLocal = oNetwork.ComputerName
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("c:software.txt", True)
'Set oTS = oFSO.CreateTextFile("##server\" & sLocal & ".txt")
strHost = "."
Const HKLM = &H80000002
Set objReg = GetObject("winmgmts://" & strHost & _
"/root/default:StdRegProv")
Const strBaseKey = _
"Software\Microsoft\Windows\CurrentVersion\Uninstall\"
objReg.EnumKey HKLM, strBaseKey, arrSubKeys
For Each strSubKey In arrSubKeys
intRet = objReg.GetStringvalue(HKLM, strBaseKey & strSubKey, _
"DisplayName", strvalue)
If intRet <> 0 Then
intRet = objReg.GetStringvalue(HKLM, strBaseKey & strSubKey, _
"QuietDisplayName", strvalue)
End If
If (strvalue <> "") and (intRet = 0) Then
'WScript.Echo strvalue
objTextFile.WriteLine strvalue
End If
Next
但是我放在域服务器上的NETLOGON目录里，客户端无权限执行啊。
脚本里有的路径被删除，不允许回复
