Now integrates with Amazon Associates...

Blogger Buzz: Blogger integrates with Amazon Associates

VB Script Code -Basics

VB Script Basics

Short notes on VB Script (Windows scripting and basic administrator script-vbscript) & Some useful VB script code examples that assist you in automating system administrator tasks and helps you in developing appropriate script that best suits to your work. The system administrator can make use of this repository for commonly used scripts at their work and aimed to provide basic vb script knowledge for system administrators on Windows platform too. It is a simple repository where you can tailor your script needs from frequently used system administrator script examples.

What is Windows script file?
A Windows script is a text file. You can create a script with any text editor as long as you save your script with a WSH-compatible script extension (.js, vbs, or .wsf).

To simplify your script writing, you can divide a script into more than one part. With this approach, you would create a .wsf file and use it as the starting point of execution. The other parts could be .js or .vbs files

Windows Script Host (WSH) enables scripts to be run directly in Windows by double-clicking a script file or by typing the name of a script file at a command prompt. Like Microsoft Internet Explorer, WSH serves as a controller of ActiveX scripting engines. WSH has very low memory requirements and is ideal for both interactive and non-interactive scripting needs.
The Windows Script Host object model consists of different objects. The root object is the WScript object.

The Windows Script Host object model provides a logical, systematic way to perform many administrative tasks

How to execute windows script file?

To Run Scripts Using the Windows-Based Script Host (Wscript.exe)
•At a command prompt type wscript.exe or cscript.exe, and then press ENTER.
•Set the script host properties you want, and then click OK.

•In Windows Explorer or My Computer, double-click the script file you want to run.

There are two versions of WSH:A Windows-based version (Wscript.exe) that provides Windows-based properties for setting script properties, and a command prompt-based version (Cscript.exe) that provides command-line switches for setting script properties. You can run either of these versions by typing "wscript.exe" or "cscript.exe" at a command prompt.

Script Examples:

'******** VB Script to initiate SCCM client action for machine policy*********************

t="Request & Evaluate Machine Policy"

k=initclientaction(t)

msgbox k

function initclientaction(t)

k=3

set cpApplet = CreateObject("CPAPPLET.CPAppletMgr")

Set actions = cpApplet.GetClientActions

For Each action In actions

If Instr(action.Name,t) > 0 and k =3 Then

action.PerformAction

initclientaction= true

k=1

End if

Next

if not k=1 then

initclientaction=k

end if

end function

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

'****** VB Script to kill process **************************

Dim objWMIService, objProcess, colProcess

Dim strComputer, strProcess

Dim strList, count

pname=inputbox("Please enter process name to kill ")

strComputer = "."

sqlcmd="Select * from Win32_Process Where Name = '" & pname&"'"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery (sqlcmd)

count=0

For Each objProcess in colProcess

if objProcess.Name=pname then

objProcess.Terminate()

end if

next

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

'******* VB Script to count process **************************

pname=inputbox("Enter process name to count")

msgbox pcount(pname)

function pcount(pname)

Dim objWMIService, objProcess, colProcess

Dim strComputer, strProcess

Dim strList, count, sqlcmd

strComputer = "."

sqlcmd="Select * from Win32_Process Where Name = '" & pname&"'"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery (sqlcmd)

count=0

For Each objProcess in colProcess

if objProcess.Name=pname then

count=count+1

end if

next

pcount=count

end function

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

'******** VB Script to get free disk space details **************************

strComputer = "."

sqlcmd="Select * from Win32_Process Where Name = '" & pname&"'"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

Set coldisks = objWMIService.ExecQuery("SELECT * FROM Win32_LogicalDisk")

For Each objDisk in colDisks

if objDisk.DeviceID = "C:" then

l2=objDisk.FreeSpace/1024

l2=l2/1024

l2=l2/1024

end if

Next

msgbox "Free Disk Space on C drive : "&left(l2,5)&" GB"

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

'******* VB Script to start or stop Service **************************

strComputer = "."

sqlcmd="Select * from Win32_Process Where Name = '" & pname&"'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")


sq="Select * from Win32_NTLogEvent Where Logfile = 'Application' and Type='Error'"
ii=0
desc=""

Set colLoggedEvents = objWMIService.ExecQuery(sq)

For Each objEvent in colLoggedEvents

ii=ii+1
if ii<=4 then
t=objEvent.TimeWritten
desc= left(t,12)&" ECode " & objEvent.EventCode & " Message: " & objEvent.Message & "!"&desc

end if
next
msgbox desc

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

'******** VB Script to capture event logs **************************

vServiceName="Alerter"

strComputer = "."

sqlcmd="Select * from Win32_Process Where Name = '" & pname&"'"

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" _

& strComputer & "\root\cimv2")

strWQL = "SELECT * FROM Win32_Service"

strWQL = strWQL & " WHERE Name = '" & vServiceName & "'"

Set colWinServiceSet = objWMIService.ExecQuery(strWQL)

If colWinServiceSet.Count > 0 Then

For Each objWinService in colWinServiceSet

'intRetVal = objWinService.StartService

If objWinService.Started = False Then '// If Service is in Stop status

intRetVal = objWinService.StartService

Else '// Stop Service

'If objWinService.Started = True Then '// If Service is in Start status

intRetVal = objWinService.StopService

'End If

End If

Next

Else

errdesc= vServiceName & " not found."

writefile file9,errdesc

End If

Set objWMIService = Nothing

Thanks for visiting ...