如果是域环境,可以给系统做一个策略,然后将系统的信息全部写到一个固定的位置上.
我的需求是这样,但愿对你有所帮助.
公司要求将所有的PC的硬件信息,即系统配置表.我希望统计出的文件是:将所有同事的PC列表以他自己的用户名为文件名的
notepad文档.并放置到网络指定的一盘里.如果你希望用户仅能生成,而不希望改动,你需要对这个网络路径做一些权限设置.
一个批处理:
if exist c:\%username%.txt exit
cd %commonprogramfiles%\"microsoft shared"\msinfo
msinfo32.exe /report c:\%username%.txt
(由于msinfo32这个程序运行时,PC运行的速度会受影响,我只希望它运行一次)
以下是一个VBS脚本文档
Option Explicit
Dim oNet, ofs, sUser, sDomain, oCom, oHome,WshShell,objFSO,objFolder
Set oNet = CreateObject("WScript.Network")
set ofs = createobject("scripting.filesystemobject")
oCom = oNet.computername
sDomain = oNet.UserDomain
sUser = oNet.UserName
'WScript.Echo "Computer Name = " & oNet.ComputerName
if ofs.folderexists("u:\" ) then
onet.removenetworkdrive "u:", true
end if
oNet.MapNetworkDrive "u:", "\\server\" & sUser "请这里的server改成自己的服务器"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists("U:\PCLIST\" & sUser & ".txt") Then
Set objFolder = objFSO.GetFile("U:\PCLIST\" & sUser & ".txt")
Else
Const OverwriteExisting = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\" & sUser & ".txt" , "U:\PCLIST\", OverwriteExisting
End If
祝你好运!
如何出资产报表
