VBS – Installed RAM

The below snippet of vbs is used to query WMI for the amount of ram installed on a pc. For a remote device, change strComputer to the hostname of the target computer.

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer in colSettings 
 Wscript.Echo "System Name: " & objComputer.Name
 Wscript.Echo "Total Physical Memory: " & objComputer.TotalPhysicalMemory

Taken from: https://msdn.microsoft.com/en-us/library/aa394587(v=vs.85).aspx

Perfect download manager – uGet

Every now and then I find the need to use a download manager. However they normally take over your system attempting to handle every download. Most of the free ones also tend to be packed full of ad-ware.

Today I ran into uGet, which is absolutely perfect.  On top of being both open source and portable, it does exactly what its intended to do – download – without any added frills or annoyances.

Product homepage: http://ugetdm.com/
ourceForge page: http://sourceforge.net/projects/urlget/


AxAcroPDF control focus stealing prevention

The AxAcroPDF control takes focus when a PDF file is loaded into it.

To prevent this, the AxAcroPDF control is placed into a panel which is disabled prior to loading a pdf. This inturn disables the AxAcroPDF control preventing it from taking focus.

A mouse hook is used to check if the mouse has entered the area of the panel, in which case the panel is enabled to allow the user to interact with the AxAcroPDF control.



VB.net Source: AxAcroPDF-Focus-Example.zip (1645 downloads)

Get members from AD group in VBA

Get the names of all the members in an active directory group – in VBA

Returns the list of names semicolon deliberated

Function getNamesADGroup(groupname As String) As String
    On Error Resume Next
    Dim ret As String
    Set Group = GetObject("WinNT://" & "corp" & "/" & groupname & ",group")

    For Each Member In Group.Members
        If Len(Member.FullName) Then _
            ret = ret & Member.FullName & ";"
    On Error GoTo 0
    If Len(ret) Then _
        getNamesADGroup = Left(ret, Len(ret) - 1)
End Function

Cyptsy ID Puller

This application pulls in the most current list of cryptsy market IDs.

Requires .Net Framework 4.5 cryptsyidsDownload App:  Cryptsy ID Puller (744 downloads)

Download Source:  Cryptsy ID Puller Source (710 downloads)