Archive October » ITNotes.Net

Archive for October, 2009

Re-Usable VBScript Functions – Part I

In this Multi-Part Series I will post lists on VBScript Functions and Subs that I have either found or written. I am a big fan of turning any useful code into a functions and adding it to my default VBScript Template, it saves a ton of time on the next scripting task. By no means am I claiming I wrote all of these, most were just re-purposed into reusable functions. I hope you find these useful. In the later part of the series I will include my template I use to begin all my scripts.

Determine if the computer is a laptop:

^?View Code VBSCRIPT

Function IsLaptop(strComputer)
    On Error Resume Next
    Set objWMIService = GetObject( "winmgmts://" &amp; strComputer &amp; "/root/cimv2" )
    Set colItems = objWMIService.ExecQuery( "Select * from Win32_Battery", , 48 )
    IsLaptop = False
    For Each objItem in colItems
        IsLaptop = True
    Next
    If Err Then Err.Clear
    On Error GoTo 0
End Function

Example of use

^?View Code VBSCRIPT

If IsLaptop( "." ) Then
    WScript.Echo "Laptop
Else
    WScript.Echo "Desktop or server
End If

Shell out a command line with switches:

^?View Code VBSCRIPT

Sub RunSwch(ByVal strRunCmd, strRunSwitch)
Dim objWshShell
    Set objWshShell = CreateObject("WScript.Shell")
    objWshShell.Run Chr(34) &amp; strRunCmd &amp; Chr(34)&amp; " " &amp; strRunSwitch, 1, True
    Set objWshShell = Nothing
End Sub

Example of use

^?View Code VBSCRIPT

RunSwch "C:\Program Files\ApplicationX\Start.exe","/S /X /Log C:\log.log"

Shell out a command line without switches:

^?View Code VBSCRIPT

Sub Run(ByVal strRunCmd)
Dim objWshShell
    Set objWshShell = CreateObject("WScript.Shell")
    objWshShell.Run Chr(34) &amp; strRunCmd &amp; Chr(34), 1, True
    Set objWshShell = Nothing
End Sub

Example of use

^?View Code VBSCRIPT

Run "C:\Program Files\ApplicationX\Start.exe"

Tags: Functions and Subs, LinkedIn, VBScript

Thursday, October 15th, 2009 VBScript No Comments

Windows 7 Ultimate Signature Edition

I received my copy of Windows 7 Ultimate Signature Edition today in the mail. I thouhgt I would share an image of it. The DVD itself is just a promotional disc with the Product Key inside the case. The only thing special is the outside of the case itself. Well here it is (It was impossible with my photography skills to get rid of the glare)