A VB Script that checks registry for installed hotfix

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

———————————————————————-

'Checks the registry of each computer listed in INPUT_FILE_NAME
'for a the hotfix listed in HOTFIX
'It uses the WMI registry provider to do this.
'Besides writing to the screen, it writes the output to
'the file in OUTPUT_FILE_NAME in comma delimted format, producing 2 columns:
'the computer name, and the result of the query
'
'21/10/2005 Robert Kloosterhuis: v1.0
'http://www.geekswithblogsnet/jemimus


On Error Resume Next

INPUT_FILE_NAME = "serverlist.txt"
OUTPUT_FILE_NAME = "scan_hotfix_MS05_051.csv"
HOTFIX = "KB902400"

Const FOR_READING = 1
'objFSO.OpenTextFile method uses paramater value 8 to append to file
Const FOR_WRITING = 8
const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

Set StdOut = WScript.StdOut

'Set up objFSO variable for file reading and writing operations
Set objFSO = CreateObject("Scripting.FileSystemObject")

'delete OUTPUT_FILE_NAME if it already exists
Set oldfile = objFSO.GetFile(OUTPUT_FILE_NAME)
oldfile.delete

'Set up the output file
Set objOutputFile = objFSO.OpenTextFile(OUTPUT_FILE_NAME, FOR_WRITING, true)


'Read the input file
Set objFile = objFSO.OpenTextFile(INPUT_FILE_NAME, FOR_READING)
strComputers = objFile.ReadAll
objFile.Close

'Make an array out of the list it reads from the input file
arrComputers = Split(strComputers, vbCrLf)

'setting up some initial values
DIM result
DIM noresult
result = 0
noresult = 0

'Our main loop. Everything below this is run for every entry in the imput file
For Each strComputer In arrComputers

  'first column in the file we are writing to is the computer name.
  'Every bit of info we want to provide is ended with a comma for delimitation
   objOutputFile.Write
   objOutputFile.Write
   objOutputFile.Write strComputer
   objOutputFile.Write ","
  
  
  Err.Clear
  'Connect to the WMI registry provider
  Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!//" & _
     strComputer & "/root/default:StdRegProv")
        'Error Handling If it cant connect to the WMI provider,
        'exit with the Error Description
     If Err.Number <> 0 Then
           Wscript.Echo strComputer & " " & "Error Number " & _
           Err.Number &  ": " & Err.Description
           Err.Clear
           Else
  
          'The Registry path we are going to read from
    strKeyPath = "SOFTWARE/Microsoft/Windows NT/CurrentVersion/HotFix"
    objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys

    
    'Everytime we run though the loop, these values are reset first.
    result = 0
    noresult = 0
    
    'If it comes across the hotfix we are looking for,
    'it changed the value for this loop
    For Each Subkey in arrSubKeys
                   
        IF Subkey = HOTFIX Then
        result = 1
        noresult = 0
       
        Else
        noresult = 1
       
     End IF           
              
    Next          
          
    
     'Now we have a value, lets print some text about it,
     'both to the screen, and to our output file
     IF result = 1 Then
       
       WScript.Echo strComputer & " " & HOTFIX & " installed!!!"
       objOutputFile.Write HOTFIX & " installed!!!"
     Else
       WScript.Echo strComputer & " " & HOTFIX & " not found!"
       objOutputFile.Write HOTFIX & " not found!"
     End IF

     
        'End with a comma for this column
        objOutputFile.Write ","
        
        
       
      
        

     end if
     
     'Start a new line  
     objOutputFile.Writeline
     
Next
objOutputFile.Close 

PyCharm默认快捷键

PyCharm3.0默认快捷键(翻译的) PyCharm Default Keymap 1、编辑(Editing) Ctrl + Space    基本的代码完成(类、方法、属性) C...
  • c910118
  • c910118
  • 2018年01月04日 16:52
  • 116

安装MongoDB遇到问题

1. 首先,当然是下载 MongoDB MongoDB的官方网站是:http://www.mongodb.org/, 最新版本下载在:http://www.mongodb.org/down...
  • gebitan505
  • gebitan505
  • 2015年08月28日 14:53
  • 15238

Python-Image的简单操作整理

Image的简单操作(常用)from PIL import Image, ImageDraw, ImageFont 首先需要导入需要的图像库: import Image 读取一张图片: img=Ima...
  • murcy_ymx
  • murcy_ymx
  • 2017年12月27日 09:34
  • 19

阿里百川HotFix解决方案使用体验

最近,我们的应用除了一个小bug,但是解决这个bug的新版本却发布了快一个月,这其中有种种问题导致新的版本发布不断拖后,为了解决这个问题,查阅了一下资料,什么androidfix,还有什么其他的,这个...
  • qwer4755552
  • qwer4755552
  • 2016年09月10日 12:05
  • 6211

Android热修复:Andfix和Hotfix,两种方案的比较与实现

Andfix和hotfix是两种android热修复框架。android的热修复技术我看的最早的应该是QQ空间团队的解决方案,后来真正需要了,才仔细调查,现在的方案中,阿里有两种Dexposed和An...
  • yuankundong
  • yuankundong
  • 2016年05月10日 17:44
  • 3931

HotFix介绍及HotFix开源项目推荐

What is HotFix? 以补丁的方式动态修复紧急Bug,不再需要重新发布App,不再需要用户重新下载,覆盖安装(来自:安卓App热补丁动态修复技术介绍) HotFix原理 首先H...
  • u014761700
  • u014761700
  • 2016年07月24日 12:45
  • 1155

AndHotFix热修补使用总结

今天给大家介绍AndHotFix热修补的使用,也没有那么的难,我结合了github和csdn的一些东西,自己总结出来一套非常简单的操作流程。 这个就是我结合出来的AndHotFix的结构,...
  • he6687086
  • he6687086
  • 2016年07月23日 08:34
  • 682

5大Android hotfix 线上热修复框架比较

hot fix1.阿里巴巴-淘宝https://github.com/alibaba/dexposed#Dexposed不支持Art模式(5.0+),且写补丁有点困难,需要反射写混淆后的代码,粒度太细...
  • RichieZhu
  • RichieZhu
  • 2016年01月28日 16:02
  • 2541

Android 热修复方案--阿里百川HotFix

概述我们都知道一旦我们的应用被发布到各大平台上面之后修复bug是一件很麻烦的事情,如果要重新发布审核周期之长,用户肯定不接受,虽然也可以在应用中自检更新,但是一个小小的bug动辄就更新应用实在是大材小...
  • wu996489865
  • wu996489865
  • 2017年04月27日 10:41
  • 2881

各大HotFix热补丁方案分析和比较

最近开源界涌现了很多热补丁项目,但从方案上来说,主要包括Dexposed、AndFix、ClassLoader(来源是原QZone,现淘宝的工程师陈钟,在15年年初就已经开始实现)三种。前两个都是阿里...
  • zhangcanyan
  • zhangcanyan
  • 2016年06月25日 17:25
  • 986
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:A VB Script that checks registry for installed hotfix
举报原因:
原因补充:

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