脚本查看远程计算机的安装软件的情况

转载 2007年10月11日 01:54:00

本人有该脚本,可以查看ad里面所有计算机的安装软件的情况,
请问如何修改成查看指定计算机的软件的安装情况。脚本如下:
strDomainName = InputBox ("Please enter the internal Domain Name:","Enter the Internal Domain Name","Sitename.local")
arrDomLevels = Split(strDomainName, ".")
strADsPath = "dc=" & Join(arrDomLevels, ",dc=")

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strKey = "SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"

Const ADS_SCOPE_SUBTREE = 2
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://"&strADsPath&"' " _
        & "Where objectClass='computer'"  
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set of = oFSO.CreateTextFile("c:/scripts/pcsoft.txt", True, True)
Do Until objRecordSet.EOF
    On Error Resume Next
    sPC = objRecordSet.Fields("Name").Value
    Set objReg = GetObject("winmgmts://" & sPC & _
  "/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
of.writeline " "
of.writeline "### "&sPC&" ###"
of.writeline " "
For Each strSubkey In arrSubkeys
   sName = ""
   intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
    strEntry1a, strValue1)
   If intRet1 <> 0 Then
     objReg.GetStringValue HKLM, strKey & strSubkey, _
     strEntry1b, strValue1
   End If
   If strValue1 <> "" Then
      If InStr(strValue1,"Hotfix") <> 0 Or InStr(strValue1,"Update for Windows")<> 0  Then
     Else  
        
      sName = strValue1
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
      strEntry3, intValue3
     objReg.GetDWORDValue HKLM, strKey & strSubkey, _
     strEntry4, intValue4
    If intValue3 <> "" Then
       sName =  sName&" (Version: "& intValue3 & "." & intValue4&")"
      End If  
         of.writeline sName
      
  End If  
    End If
   
Next
objRecordSet.MoveNext
Loop
of.close
MsgBox "Done!" 

 

================

Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
strKey = "SOFTWARE/Microsoft/Windows/CurrentVersion/Uninstall/"
strEntry1a = "DisplayName"
strEntry1b = "QuietDisplayName"
strEntry3 = "VersionMajor"
strEntry4 = "VersionMinor"

strComputer = "."

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set of = oFSO.CreateTextFile("c:/scripts/pcsoft.txt", True, True)
    On Error Resume Next
    sPC = strComputer
    Set objReg = GetObject("winmgmts://" & sPC & _
  "/root/default:StdRegProv")
objReg.EnumKey HKLM, strKey, arrSubkeys
of.writeline " "
of.writeline "### "&sPC&" ###"
of.writeline " "
For Each strSubkey In arrSubkeys
   sName = ""
   intRet1 = objReg.GetStringValue(HKLM, strKey & strSubkey, _
    strEntry1a, strValue1)
   If intRet1 <> 0 Then
     objReg.GetStringValue HKLM, strKey & strSubkey, _
     strEntry1b, strValue1
   End If
   If strValue1 <> "" Then
      If InStr(strValue1,"Hotfix") <> 0 Or InStr(strValue1,"Update for Windows")<> 0  Then
     Else  
        
      sName = strValue1
    objReg.GetDWORDValue HKLM, strKey & strSubkey, _
      strEntry3, intValue3
     objReg.GetDWORDValue HKLM, strKey & strSubkey, _
     strEntry4, intValue4
    If intValue3 <> "" Then
       sName =  sName&" (Version: "& intValue3 & "." & intValue4&")"
      End If  
         of.writeline sName
      
  End If  
    End If
   
Next
of.close
MsgBox "Done!"

shell程序安装卸载脚本

好久没写shell基本语法都忘了很多。 今天写了个自动判断程序是否安装,如果安装的话就先卸载,然后保存配置文件,在安装。 如果没安装的话就执行全新安装。 功能很简单,脚本也很简单。 #!/bi...
  • qq1124794084
  • qq1124794084
  • 2017年07月24日 17:01
  • 1201

Linux-脚本安装软件

脚本安装包介绍所谓的一键安装包,实际还是安装的源码包与RPM包,只是把安装过程写成了脚本,便于初学者的安装. 优点:简单,快速,方便 缺点: 不能定义安装软件的版本 不能定义所需要的软件的功能...
  • u011479200
  • u011479200
  • 2017年06月03日 20:19
  • 319

Shell脚本实现应用自动安装部署

Windows版本的安装包直接使用了inno setup将应用及所需软件压成exe文件。       Linux版本当时是把应用及软件交给了客户,并写了安装步骤文档,但是客户不满意,希望做成类似Wi...
  • yaonianlong
  • yaonianlong
  • 2014年12月03日 11:19
  • 671

Bash玩转脚本1之自己的脚本安装程序

Bash之打造自己的脚本安装器 还是理所当然的前言,我一直想找一套管理脚本的“框架”,能让自己杂乱的脚本有点规整,无奈眼界尚浅,未能找到。 因此萌生自己写一点优化脚本的工具来,新手可...
  • yang8456211
  • yang8456211
  • 2016年03月31日 10:27
  • 1229

Shell命令之用脚本判断源码包是否安装

- 因为Linux安装软件的方式比较多,所以没有一个通用的办法能查到某些软件是否安装了。总结起来就是这样几类:1、rpm包安装的,可以用rpm -qa看到,如果要查找某软件包是否安装,用 rpm -q...
  • yxys01
  • yxys01
  • 2017年07月28日 09:44
  • 1106

debian linux 中如何查看软件包是否已经安装和如何安装、卸载软件

练习 1 方案:确定软件包是否安装如果您不确定某个软件包是否已经安装,可以使用 dpkg 的 -l (L的小写) 选项:$ dpkg -l zsh No packages found matching...
  • shinaiqing
  • shinaiqing
  • 2017年04月11日 20:25
  • 1771

使用shell脚本安装软件部署javaweb程序

安装脚本所需文件 (与shell脚本文件在同一目录下)       medical.zip (应用)       Install.zdt(数据初始化文件,非必须)       medical.tar....
  • qq_21439971
  • qq_21439971
  • 2016年12月19日 15:19
  • 2683

windows 下利用vbs进行程序的自动安装

上上篇说了一下linux平台下程序的自动安装,利用的是shell脚本,而同理在windows平台上,利用的则是vbs,当然单纯的vbs并不是很强大,同时我还利用了cmd的一些命令。同上一篇一样,都是利...
  • MINEZHANGHAO
  • MINEZHANGHAO
  • 2013年11月08日 14:32
  • 2898

Oracle安装(2)通过SHELL脚本快速安装Oracle11gR2软件

经常在手上要搭建一堆测试环境,Oracle软件装来装去的,重复步骤做得很烦。解决这种问题,用虚拟机克隆是一种方法。我这里用脚本搞定一些重复性的动作也是一种方法。我分四个脚本来做。           ...
  • xcltapestry
  • xcltapestry
  • 2014年02月20日 21:59
  • 2571

Linux命令行与shell脚本(6)--软件包安装

基于Debian的系统 aptitude命令aptitude show grub #查看软件库中grub软件包的信息 aptitude search wine #查找wine软件包,通配符会隐式添加 ...
  • ch717828
  • ch717828
  • 2017年04月25日 09:46
  • 248
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:脚本查看远程计算机的安装软件的情况
举报原因:
原因补充:

(最多只允许输入30个字)