Uncle Walter's Script Archive

VB Script - Get Windows Time

strComputer = "."

Set objWMIService = GetObject ( _

                "winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery( _

                "Select * from Win32_LocalTime")

For Each objItem in colItems

                wscript.Echo "Day: " & objItem.Day & VBNewLine _

                & "Hour: " & objItem.Hour & VBNewLine _

                & "Minute: " & objItem.Minute & VBNewLine _

                & "Year: " & objItem.Year

Next

 

Perl Script – Check Windows Time Against Local Gateway NTP

#

# Built to determine time difference between node and node's gateway

#

 

@array = `ipconfig /all`;

 

foreach $line ( @array )

{

            chomp $line;

            if ( $line =~ "IP Address" )

            {          

                        $ipLine = $line;

                        if ( $ipLine =~ " 10." )

                        {

                                    @ipLine = split(": ", $ipLine);

                                    $ip = @ipLine[1];

 

                                    $ndx = rindex($ip, ".") + 1;

 

                                    $gateway = substr $ip, 0, $ndx;

                                    $gateway = $gateway . "1";                                                                   

                        }

            }

}

 

@result = `w32tm /stripchart /computer:$gateway /dataonly /samples:1`;

 

foreach $timeLine ( @result )

{

            chomp $timeLine;

            if ( $timeLine =~ ", " )

            {

                        @arrTime = split(", ", $timeLine);

                        if ( @arrTime[1] =~ "error: " )

                        {

                                    print "@arrTime[1]\n";

                                    $timeDiff = "ERR";                               

                        }

                        else

                        {

                                    $timeDiff = @arrTime[1] / 60;

                                    $timeDiff = round($timeDiff);

                        }

            }

}

 

if ( $timeDiff eq "ERR" )

{

            `opcmsg a=TimeCheck o=TimeCheck msg_t="Time check on node can not communicate with time server." s=critical`;

}

elsif ( $timeDiff >= 2 || $timeDiff <= -2 )

{

            `opcmsg a=TimeCheck o=TimeCheck msg_t="Time is off by more than 2 minutes ( approx. difference: $timeDiff minutes ) on node" s=critical`;

}

 

 

sub round

{

            my $number = $_[0];

            return int($number + .5 * ( $number <=> 0));

}

 

VB Script – Check if a local or domain admin has logged in

'***************************************

'*    Define Variables for script      *

'***************************************

Dim objRootLDAP

Dim strDNSDomain

Dim strArray()

Dim n

Dim objNet

 

'***************************************

'*    Get local Domain Info            *

'* Do Not Crash if there is no Domain  *

'***************************************

On Error resume Next

            if err.number = 0 Then

                        Set objNet = CreateObject("ADSystemInfo")

                        n = objNet.DomainShortName

            end if

 

 

'***************************************

'*    Function to Check local admins   *

'***************************************

 

function memberOf(groupname)

            On Error goto 0

            On Error Resume Next

            set oUser = GetObject("WinNT://127.0.0.1/" & varUserName & ",user")

            ' Enumerate Groups for the Use

                        If err.number = 0 Then

                                    for each oGroup in oUser.Groups

                                                if ucase(oGroup.Name) = ucase(groupName) then

                                                memberOf = true

                                                exit for

                                    end if

next

                        Else

 

                                    memberof = False

 

                        end if

 

            set oUser = nothing

            set oGroup = nothing

end function

 

'***************************************

'*  Function to Check Domain admins    *

'***************************************

 

function memberOfdomain(groupName)

            On Error goto 0

            On Error Resume Next

            set oUser = GetObject("WinNT://" & n & "/" & varUserName & ",user")

                        If err.number = 0 Then

                                    for each oGroup in oUser.Groups

                                                if ucase(oGroup.Name) = ucase(groupName) then

                                                memberOfdomain = true

                                                exit for

                                    end if

            next

                        Else

 

                                    memberofdomain = False

 

                        end if

            set oUser = nothing

            set oGroup = nothing

end function

 

'***************************************

'*    Main Part of Script              *

'***************************************

 

Dim ArgObj, varUserName, strCommand

Set ArgObj = WScript.Arguments

 

varUserName = ArgObj(0)

 

if memberOf("Administrators") then

            strCommand = "cmd /c opcmsg.exe o=Admin_Logon a=Admin_Logon msg_t=""" & varUserName & " has logged in and is a member of the Local Administrators group.  ," & varUsername & ",Local"""

            runCommand(strCommand)

End If

 

if memberOfdomain("Domain Admins") then

            strCommand = "cmd /c opcmsg.exe o=Admin_Logon a=Admin_Logon msg_t=""" & varUserName & " has logged in and is a member of the Domain Administrators group.  ," & varUsername & ",Domain"""

            runCommand(strCommand)

End if

 

sub runCommand(command)

            set StdOut = WScript.StdOut

            set objShell = CreateObject("WScript.Shell")

            set objScriptExec = objShell.Exec (command)

end sub

 

Perl – Count number or processes running in Unix and add to CODA

#!/bin/sh


PROGNAME=`basename ${0}`

Process=`echo $1` # the process to look for

MonitorName=$2 # ITO monitored object name

tmpNumProcs=`ps -ef | grep "${Process}" | \

 grep -v ${PROGNAME} | grep -v grep | wc -l`

NumProcs=`echo ${tmpNumProcs}` 

opcmon ${MonitorName}=${NumProcs}

exit $?

 

DOS Batch File – Get Current Date for File Name

@echo off

SET Month=%Date:~4,2%

SET Day=%Date:~7,2%

SET Year=%Date:~-2%

Echo The file is %Month%%Day%%Year%%.txt

 

DOS Batch File – Return Newest File Name

@echo off

For /f “tokens=*” %%i in (‘dir /a:-d/b/0:d’) do set NEWEST=%%i

Echo The newest file is %NEWEST%