none
windows2008域服务器怎么收集客户端已安装软件 RRS feed

  • 问题

  • 如题:
           请问windows2008域服务器怎么收集客户端已安装软件!谢谢

                                                         

    2013年4月27日 5:30

全部回复

  • 木有大神回复啊

    我在网上找了两个脚本,一个是收集网卡信息的:

    @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目录里,客户端无权限执行啊。
    脚本里有的路径被删除,不允许回复

               
    2013年4月27日 5:50
  • 怎么没有高人来回复。。。
    2013年5月3日 3:54
  • 这不知行不行 

    DIR c:\ /X /OD /TC /S /L >>%outputdir%\dir_creation_time_C_drive.txt

    2013年5月14日 6:18