tag:blogger.com,1999:blog-9702341Thu, 04 Aug 2011 20:18:56 +0000PythonPostgreSQLMySQLSQLWindows AutomationDatabaseJythonPMPLinuxXML AutomationWLSTWeblogicSolarisBuild AutomationSedBashPerlAwkJavaTestingExcelA Blog of Automation and Administration Activitieshttp://ullaslinux.blogspot.com/noreply@blogger.com (ullas)Blogger188125noreply@blogger.comnoA Blog of Automation and Administration Activitiestag:blogger.com,1999:blog-9702341.post-2579513892135459668Sat, 19 Jun 2010 12:30:00 +00002010-06-19T18:00:57.842+05:30Windows AutomationGood reading http://www.techotopia.com/index.php/Using_COM_with_Windows_PowerShell http://www.youdidwhatwithtsql.com/automating-internet-explorer-with-powershell/467 http://www.pvle.be/2009/06/web-ui-automationtest-using-powershell/ http://powershell.com/Mastering-PowerShell.pdf Active Directory http://blogs.technet.com/b/benp/archive/2007/04/10/creating-an-ad-shell.aspx http://http://ullaslinux.blogspot.com/2010/06/some-good-links-to-powershell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-2896870564467471755Sat, 19 Jun 2010 12:27:00 +00002010-06-19T17:57:56.998+05:30Windows AutomationRAM in MB $mem = Get-WmiObject -Class Win32_ComputerSystem # Display memory "This system has {0} MB Free Memory" -f $($mem.TotalPhysicalMemory/1mb) Processor cOUNT $system = Get-WmiObject -Class Win32_ComputerSystem Non Working devices Get-WmiObject Win32_PNPEntity | where {$_.ConfigManagerErrorcode -ne 0}http://ullaslinux.blogspot.com/2010/06/ram-count-poweshell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-5575944924574467519Fri, 18 Jun 2010 16:38:00 +00002010-06-18T22:08:53.400+05:30Windows AutomationstrComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" _ & strComputer & "\root\cimv2") Set colChassis = objWMIService.ExecQuery _ ("Select * from Win32_SystemEnclosure") For Each objChassis in colChassis For Each objItem in objChassis.ChassisTypes Wscript.Echo "Chassis Type: " & objItem Next Nexthttp://ullaslinux.blogspot.com/2010/06/determine-whether-computer-is-tower.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-3944680937527828406Fri, 18 Jun 2010 16:34:00 +00002010-06-18T22:04:20.607+05:30Windows AutomationForeach ($name in (Get-Content c:\names.txt)) { # do something with $name }http://ullaslinux.blogspot.com/2010/06/right-way-to-read-file-in-itration.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-2467548974477940363Fri, 18 Jun 2010 16:33:00 +00002010-06-18T22:03:39.162+05:30Windows AutomationGet-WmiObject Win32_OperatingSystem | Format-List BuildNumber,CSName,ServicePackMajorVersionhttp://ullaslinux.blogspot.com/2010/06/service-pack-in-os-powershell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-9196824681734928348Fri, 18 Jun 2010 16:32:00 +00002010-06-18T22:02:28.753+05:30Windows AutomationUPTIME $myobj.uptime = (Get-Date) - [System.DateTime]::ParseExact($OSInfo.LastBootUpTime.Split(".")[0],'yyyyMMddHHmmss',$null) $myobj.uptime = "$($myobj.uptime.Days) days, $($myobj.uptime.Hours) hours," +` " $($myobj.uptime.Minutes) minutes, $($myobj.uptime.Seconds) seconds"http://ullaslinux.blogspot.com/2010/06/uptime-of-server-in-powershell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-1844761947241438140Fri, 18 Jun 2010 16:29:00 +00002010-06-18T21:59:48.266+05:30Windows AutomationDaTA base: Add data $ds = new-object System.Data.DataSet $ds.Tables.Add("person") [void]$ds.Tables["person"].Columns.Add("name",[string]) [void]$ds.Tables["person"].Columns.Add("last",[string]) $dr = $ds.Tables["person"].NewRow() $dr["name"] = "ullas" $dr["last"] = "t" $ds.Tables["person"].Rows.Add($dr) $dr name last ---- ---- ullas thttp://ullaslinux.blogspot.com/2010/06/adding-data-to-database-with-powershell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-3265208880014401737Fri, 18 Jun 2010 16:26:00 +00002010-06-18T21:56:41.422+05:30Windows AutomationTry Catch template try { try { # Command that uses -erroraction stop or $erroractionpreference = 'Stop' } # Here we catch the Exception generated by the ErrorAction "Stop" # Only necessary if there is any processing we want to do if the # exception is of type ActionPreferenceStopExecution, # otherwise this block can be deleted catch [http://ullaslinux.blogspot.com/2010/06/try-catch-template-for-powershell.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-1661894420624851267Fri, 18 Jun 2010 16:24:00 +00002010-06-18T21:54:45.090+05:30Windows Automation$strComputer = “.” $Excel = New-Object -Com Excel.Application $Excel.visible = $True $Excel = $Excel.Workbooks.Add() $Sheet = $Excel.WorkSheets.Item(1) $Sheet.Cells.Item(1,1) = “Computer” $Sheet.Cells.Item(1,2) = “Drive Letter” $Sheet.Cells.Item(1,3) = “Description” $Sheet.Cells.Item(1,4) = “FileSystem” $Sheet.Cells.Item(1,5) = “Size in GB” $Sheet.Cells.Item(1,6) = “Free Space in GB” $WorkBookhttp://ullaslinux.blogspot.com/2010/06/wmi-info-on-excel.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-6275329748560322018Sun, 30 May 2010 16:59:00 +00002010-05-30T22:29:27.850+05:30Windows Automation$oIE=new-object -com internetexplorer.application $oIE.navigate2("About:blank") while ($oIE.busy) { sleep -milliseconds 50 } $oIE.visible=$true $procList=ps |select-object ProcessName,Handles,NPM,PM,WS,VM,CPU,Id |convertto-html $oDocBody=$oIE.document.documentelement.lastchild ; #populate the document.body $oDocBody.innerhtml=$procList $oDocBody.style.font="12pt Arial"; $http://ullaslinux.blogspot.com/2010/05/sample-of-powershell-usage-for.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-8391109241963264330Sun, 30 May 2010 16:03:00 +00002010-05-30T21:33:54.269+05:30Windows Automation # Twitter login name or email $username_or_email = "xxxxxxxxxxxxxxxx"; # Your twitter password $password = "xxxxxxxxxxxx"; $url = "http://twitter.com/login"; # txt file containing 1 tweet per line $tweets = Get-Content "$env:USERPROFILE\tweets.txt"; #Interval between tweets $sleep = 60; # This is just an attempt to handle the situation where you are already logged into twitter trap [http://ullaslinux.blogspot.com/2010/05/sample-of-ie-automation-with-power.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-110527502118476774Sun, 30 May 2010 16:01:00 +00002010-05-31T20:07:20.825+05:30Windows Automation<# .SYNOPSIS Validates application login userid and password from a given excel sheet .EXAMPLE validateLogin users.xls This command picks userid and password from given excel sheets and validates from given URL #> #Set-PSDebug -trace 2 # Debug Information #Set-PSDebug -step # Debug using stepping if ($args) { throw "USAGE: validateLogin users.xls" } function http://ullaslinux.blogspot.com/2010/05/template-for-ie-automation-with.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-5804024449464921276Sat, 29 May 2010 05:17:00 +00002010-05-29T10:47:41.670+05:30Windows Automationhttp://www.icpug.org.uk/national/features/030316fe.htm Eg. Dim Wsh Set Wsh = Wscript.CreateObject("Wscript.Shell") Wsh.AppActivate "Exploring" Wsh.SendKeys "{F2}{END}{LEFT}{LEFT}{LEFT}{LEFT}{BS}{BS}{BS}~{DOWN}" Name it macro.vbs When I instantiate the WshShell object I need to be able to refer to it in some way. Wsh is a variable for this purpose so, first of all, I explicitly declare it with http://ullaslinux.blogspot.com/2010/05/windows-macros-with-wsh.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-7248388356499435745Fri, 28 May 2010 16:09:00 +00002010-05-28T22:26:31.958+05:30Java1) http://blogs.atlassian.com/developer/2009/06/selenium_testing_with_windows.html 2) http://www.thoughtworks-studios.com/twist-agile-test-automation/1.0/help/how_do_i_use_selenium_to_test_https_sites.html 3) http://yuce.tekol.net/2009/10/web-application-testing-with-selenium.htmlhttp://ullaslinux.blogspot.com/2010/05/selenium-testing-articles.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-8715454060763147633Wed, 26 May 2010 15:47:00 +00002010-05-26T21:17:49.831+05:30JythonWLSTWeblogicdef appStatus(server_name): try: print '---------------------- Application status---------------------' mBeans=adminHome.getMBeansByType("ApplicationRuntime") for bean in mBeans: if server_name != bean.getObjectName().getLocation(): continue components= bean.lookupComponents() for http://ullaslinux.blogspot.com/2010/05/application-status-checking-with-wlst.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-757982319721512576Sat, 22 May 2010 11:22:00 +00002010-05-22T16:52:46.732+05:30Databasehttp://www.devx.com/tips/Tip/22127http://ullaslinux.blogspot.com/2010/05/hierarchical-tree-structures-in.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-3692326510430586998Sat, 08 May 2010 05:08:00 +00002010-05-08T10:40:24.615+05:30PerlHere is a way using pipes open(PS_F, "ps -f|"); while () { ($uid,$pid,$ppid,$restOfLine) = split; # do whatever I want with the variables here ... } close(PS_F); You can also try with split(/\s+/,$_)http://ullaslinux.blogspot.com/2010/05/perl-reading-processes-from-unix.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-2634675558944267827Sat, 08 May 2010 00:52:00 +00002010-05-08T06:22:44.554+05:30JavaPerlJythonPythonhttp://www.cs.clemson.edu/~malloy/courses/patterns/slides/http://ullaslinux.blogspot.com/2010/05/good-presentation-on-patterns.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-2001022879674985264Fri, 07 May 2010 16:59:00 +00002010-05-08T06:23:08.411+05:30PerlHere is a script fot this http://aplawrence.com/Unix/perlforkexec.html http://docstore.mik.ua/orelly/perl/cookbook/index.htmhttp://ullaslinux.blogspot.com/2010/05/perl-and-unix-processes-control.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-8875706573609048484Mon, 03 May 2010 16:08:00 +00002010-05-03T21:38:23.280+05:30XML AutomationWindows AutomationPerlJythonPythonhttp://web.cs.mun.ca/~paul/cs3724/material/web/notes/node25.htmlhttp://ullaslinux.blogspot.com/2010/05/fsm-mealy-state-machine.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-8773973150768925108Mon, 03 May 2010 15:00:00 +00002010-05-03T20:30:54.160+05:30XML AutomationWindows AutomationPerlBuild AutomationLinuxJythonSedPythonWeblogichttp://www.itl.nist.gov/div897/sqg/dads/http://ullaslinux.blogspot.com/2010/05/huge-collection-of-algorithms.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-3796274582831368162Wed, 28 Apr 2010 10:45:00 +00002010-04-29T15:49:51.734+05:30Perl1) If you just want the keys and do not plan to ever read any of the values, use keys(): foreach my $key (keys %hash) { ... } 2) If you just want the values, use values(): foreach my $val (values %hash) { ... } 3) If you need the keys and the values, use each(): keys %hash; # reset the internal iterator so a prior each() doesn't affect the loop while(my($k, $v) = each %hash) { ... } 4) http://ullaslinux.blogspot.com/2010/04/itrating-hashes-in-perl-many-ways.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-8486333514599100169Wed, 28 Apr 2010 06:21:00 +00002010-04-28T11:51:46.896+05:30Perl#!/usr/bin/perl use strict; use warnings; use Getopt::Std; use vars qw/ %opts /; getopts('he:c:', \%opts ); usage() if $opts{h}; usage() if($opts{e} eq "" or $opts{c} eq ""); sub usage(){ print "This program should be used as below\n"; print "usage: $0 [-h] [e petrol] [-c elgi]\n"; print " -h : this (help) message\n"; print " -e : energy name\n"; http://ullaslinux.blogspot.com/2010/04/command-line-options-with-perl-eg.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-3395593977073687058Sun, 25 Apr 2010 05:03:00 +00002010-04-29T15:50:01.960+05:30PerlCreate an array from a string @months = split ' ', "Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec" or @months = qw/Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec/ Create a string from an array. @stuff = ("hello", 0..9, "world"); $string = join '-', @stuff Generate an array with even numbers from 1 to 100 perl -le '@even = grep {$_ % 2 == 0} 1..100; print "@even"' The spaceship operator <=> http://ullaslinux.blogspot.com/2010/04/tips-and-tricks-in-perl.htmlnoreply@blogger.com (ullas)0tag:blogger.com,1999:blog-9702341.post-6059378566915106177Sat, 24 Apr 2010 17:24:00 +00002010-04-24T22:54:32.436+05:30PerlHere is a oneliner for this perl -le 'print map { ("a".."z")[rand 26] } 1..8' Here the map function executes ("a".."z")[rand 26] code 8 times (because it iterates over the dummy range 1..8). In each iteration the code chooses a random letter from the alphabet. When map is done iterating, it returns the generated list of characters and print function prints it out by concatenating all the http://ullaslinux.blogspot.com/2010/04/random-password-generator-in-perl.htmlnoreply@blogger.com (ullas)0en-usnonadult