VbsEdit, the award-winning VBScript editor that dramatically reduces the time you spend writing .VBS scripts

Sample scripts


Operating System
   Registry
       Read a Binary Registry Value , WMI

' Read a Binary Registry Value


Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
Set StdOut = WScript.StdOut
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
    strComputer & "\root\default:StdRegProv")
 
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
strValueName = "LicenseInfo"
oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath, _
    strValueName,strValue
 
 
For i = lBound(strValueto uBound(strValue)
    StdOut.WriteLine  strValue(i)
Next



VbsEdit includes all these samples!



Download now! (32-bit version)
version 4.0   -   The evaluation version never expires

Download 64-bit version



Home   Buy Now   HtaEdit   Support   Video   What's new ?   Awards

Copyright (C) 2001-2010 Adersoft