Archive - August 2012

"Efficiency is doing things right. Effectiveness is doing the right things." - Peter Drucker

Index

Post It Note
Granting Rights
Rename Computer
Return Screen Resolution
Return Process Found
Disable Standby
Return Profile Names

Suppress Extended Protection
Add Dynamic Content in HTA
Content Glider
Picture Carousel
Smoother Ticker

Δ Friday, August 31st, 2012

Δ Post It Note (simple version)

How to create a post it with HTA

[download resource files]

Demo

This is a simple, be useful, HTA that can be used as a post it note for your desktop.

Δ [email me]

Δ Monday, August 27th, 2012

Δ Granting Rights

How to use cacls.exe in VBScript

[download resource files]

This uses cacls.exe inside an instantiated object to change permissions on folders.

Δ [email me]

Δ Friday, August 24th, 2012

Δ Rename Computer

How to rename computer using batch

[download resource files]

Uses applied registry keys to change the name of the computer.

Δ [email me]

Δ Wednesday, August 22nd, 2012

Δ Return Screen Resolution

How to return screen resolution using WMI

[download resource files]

Demo

Uses Win32_DesktopMonitor to return screen resolution. This will work for single screen/dual screen
setups.

on error resume next
Dim logfile
Const ForAppending=8
Const ForWriting=2
Set fso = CreateObject("Scripting.FileSystemObject")
set wshnetwork = CreateObject("Wscript.Network")

Office = left(wshnetwork.computername,2)

backuppath = "C:\temp\"

If Not fso.FileExists(backuppath & "Resolution.txt") Then
	fso.CreateTextFile(backuppath & "Resolution.txt")
End If

set logfile = fso.OpenTextFile(backuppath & "Resolution.txt", ForWriting, True)

Set WMIObjSet2 = GetObject("winmgmts:{impersonationLevel=impersonate}"). _
	InstancesOf("Win32_DesktopMonitor")

logfile.writeline "------------------"
logfile.writeline "Please verify the"
logfile.writeline "screen resolution."
logfile.WriteBlankLines(1)
logfile.WriteLine now()

For Each obj2 In WMIObjSet2
	logfile.WriteLine "Device ID: " & obj2.DeviceID
	logfile.WriteLine "Description: " & obj2.Description
	wscript.Echo "Horizontal Resolution: " & obj2.ScreenWidth
	wscript.echo "Vertical Resolution: " & obj2.ScreenHeight
	logfile.WriteLine "Screen Width: " & obj2.ScreenWidth
	logfile.WriteLine "Screen Height: " & obj2.ScreenHeight
	logfile.WriteBlankLines(1)
Next
logfile.close

Δ [email me]

Δ Monday, August 20th, 2012

Δ Return Process Found

How to query and return if a process is found

[download resource files]

Demo

Uses Select * from Win32_Process to look for the specified process.

Δ [email me]

Δ Friday, August 17th, 2012

Δ Disable Standby

How to stop/disable power management standby mode

[download resource files]

A simple script that uses powercfg.exe to control power management.

Δ [email me]

Δ Thursday, August 16th, 2012

Δ Return Profile Names

How to return profiles in batch

[download resource files]

Demo

Uses the For /D and simple comparison to return user profiles.

@rem ----- ExeScript Options End ----- @echo on set CurDir=%CD% set _curruser=%%~nu :::::::::::BEGIN OS CHECK:::::::::::: ver | find "XP" > nul if %ERRORLEVEL% == 0 goto :winxp ver | find "7600" > nul if %ERRORLEVEL% == 0 goto :win7 ver | find "7601" > nul if %ERRORLEVEL% == 0 goto :win7 goto :end ::::::::::::END OS CHECK::::::::::::: :winxp REM RETURN WINXP USER PROFILES - run routine minus exceptions rem get user profiles for /D %%u in (C:\docume~1\*) do ( rem add exceptions here if "%_curruser%" NEQ "administrator" ( if "%_curruser%" NEQ "All Users" ( if "%_curruser%" NEQ "Default" ( if "%_curruser%" NEQ "LocalService" ( if "%_curruser%" NEQ "NetworkService" ( REM YOUR CODE HERE WITH %_curruser% ) ) ) ) ) ) exit /b 0 :win7 REM RETURN WIN7 USER PROFILES - run routine minus exceptions rem get user profiles for /D %%u in (C:\Users\*) do ( rem add exceptions here if %_curruser% NEQ Public ( if %_curruser% NEQ Default ( REM YOUR CODE HERE WITH %_curruser% ) ) ) exit /b 0 :end exit /b 0

Δ [email me]

Δ Wednesday, August 15th, 2012

Δ Suppress Extended Protection

How to disable IE prompting for authentication on Windows

Uses a registry key to Suppress Extended Protection. This feature enhances the protection and handling of
credentials, however can cause issues with programs like the citrix client.

:: IE prompting for authentication on Windows 2008 machine due to the DEP feature
:: 
:: PROBLEM DESCRIPTION:
:: One of my customers observed that IE 8 is prompting for authentication every time he accesses his aspx 
:: page. He is using Single Sign On which takes the credentials of the currently logged in user and logs 
:: the application under this context. The issue is observed only on the Windows 2008 machine which had 
:: IE 8. Also the customer is trying to login to the SAP J2EE server.
:: Customer had already set the Login prompt to "login with current user name password" in intranet zone in IE. 
::
:: FINDINGS:
:: 1. I also confirmed that "Enable Integrated Windows Authentication" is enabled under Advanced tab. 
:: 2. From the fiddler logs, I was able to isolate that on the non-working machine Kerberos authentication 
::    was failing and the IE falls back on NTLM.
:: 3. Which researching on this issue, I got an article that talks about an issue during logon to the SAP 
::    Enterprise Portal (SAP J2EE) server after installing MS09-054. They talk about configuring the 
::    SuppressExtendedProtection DWORD under the LSA registry key to 3. 
:: 
:: A few articles
:: http://forums.sdn.sap.com/message.jspa?messageID=8308489 
:: 
:: Extended Protection for Authentication
:: http://support.microsoft.com/kb/968389 
:: 
:: 4. I add the DWORD under HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\LSA registry hive.
:: 5. From the netmon logs I was able to identify why the Kerberos authentication was failing. I realized
::    that we are running into the issues mentioned in the following article,
:: 
:: The security principals and the services that use only DES encryption for Kerberos authentication are 
:: incompatible with the default settings on a computer that is running Windows 7 or Windows Server 2008 R2
:: http://support.microsoft.com/kb/977321 
::
:: 6. Thus we modified the policies for "Network security: Configure encryption types allowed for Kerberos" 
::    option and selected all the six check boxes for the encryption types. 
::
:: CAUSE 
:: By default, the security settings for DES encryption for Kerberos are disabled on the following computers: 
:: Computers that are running Windows 7 
:: Computers that are running Windows Server 2008 R2 
:: Domain controllers that are running Windows Server 2008 R2
:: By default, Windows 7 uses Advance Encryption Standard (AES) or RC4 for "encryption types" and for "etypes."
:: The services that are configured for only DES encryption fail unless: 
:: The service is reconfigured to support RC4 encryption or to support AES encryption. 
:: All client computers, all servers, and all domain controllers for the domain of the service account are 
:: configured to support DES encryption. 
:: 
:: SOLUTION:
:: The solution to this authentication issue is to follow these 2 steps,
:: 1. Set "SuppressExtendedProtection" to 3
:: 2. Select all the six check boxes for the encryption types under Network security: Configure encryption 
::    types allowed for Kerberos option.
:: 
:: How to automate it - script this
%windir%\system32\REG.exe ADD "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Lsa" /v SuppressExtendedProtection /d "3" /t REG_DWORD /f

Δ [email me]

Δ Tuesday, August 14th, 2012

Δ Add Dynamic Content in HTA

How to allow user to add extra content into hta

[download resource files]

Demo

How to allow the end-user to add objects in real-time to a HTA/HTML.

Δ [email me]

Δ Tuesday, August 7th, 2012

Δ Content Glider

How to create a smooth content glider for presenting text/media

[download resource files]

Demo

A simple glider using Javascript.

</script>
</head>

<body>

featuredcontentglider.init({
 gliderid: "canadaprovinces", //ID of main glider container
 contentclass: "glidecontent", //Shared CSS class name of each glider content
 togglerid: "p-select", //ID of toggler container
 remotecontent: "", //Get gliding contents from external file on server? "filename" or "" to disable
 selected: 0, //Default selected content index (0=1st)
 persiststate: false, //Remember last content shown within browser session (true/false)?
 speed: 500, //Glide animation duration (in milliseconds)
 direction: "downup", //set direction of glide: "updown", "downup", "leftright", or "rightleft"
 autorotate: true, //Auto rotate contents (true/false)?
 autorotateconfig: [3000, 2] //if auto rotate enabled, set [milliseconds_btw_rotations, cycles_before_stopping]
 })

</script>

<div class="glidecontent">
 Your content 1 here
 </div>

<div class="glidecontent">
 Your content 2 here
 </div>

<div class="glidecontent">
 Your content 3 here
 </div>
 
  <div class="glidecontent">
 Your content 4 here
 </div>
 
  <div class="glidecontent">
 Your content 5 here
 </div>

</div>

Δ [email me]

Δ Friday, August 3rd, 2012

Δ Picture Carousel

How to rotate pictures

[download resource files]

Demo

Using Javascript and pictures, you can add a carousel to your website or HTAs.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<HTML>

<HEAD>

<TITLE>Easy Carousel</TITLE>

<STYLE>DIV.bgcarousel {
	WIDTH: 700px; BACKGROUND: url(ajaxload.gif) black no-repeat center center; HEIGHT: 500px
}
IMG.navbutton {
	MARGIN: 5px; opacity: 0.7
}
DIV.slide {
	BACKGROUND-COLOR: black; BACKGROUND-REPEAT: no-repeat; BACKGROUND-POSITION: center center; COLOR: black; background-size: cover
}
DIV.selectedslide {
	
}
DIV.slide DIV.desc {
	Z-INDEX: 5; POSITION: absolute; PADDING-BOTTOM: 10px; PADDING-LEFT: 10px; WIDTH: 200px; PADDING-RIGHT: 10px; FONT: bold 18px sans-serif, Arial; COLOR: gold; TOP: 100px; PADDING-TOP: 10px; LEFT: 40px; text-shadow: 0 -1px 1px #8a8a8a
}
DIV.selectedslide DIV.desc {
	
}
DIV.slide DIV.desc H2 {
	MARGIN: 0px; FONT-SIZE: 150%
}
DIV.slide DIV.desc A {
	COLOR: yellow; TEXT-DECORATION: none
}
</STYLE>

var firstbgcarousel=new bgCarousel({
	wrapperid: 'mybgcarousel', //ID of blank DIV on page to house carousel
	imagearray: [
		['autumnpark.jpg', '<h2>Autumn Day</h2>The sun peaks through the trees, a knife that cuts through the chill, crisp air.'], //["image_path", "optional description"]
		['chime.jpg', '<h2>Wind Chime</h2>The bellweather of the sky, the chime speaks of impending turmoil.'],
		['girlportrait.jpg', 'The scent of spring invigorates her as she inhales whilst the warm breeze brings a wave of tranquility.'],
		['redbench.jpg', 'Alone and Lonliness- Peace and Inner Struggle'] //<--no trailing comma after very last image element!
	],
	displaymode: {type:'auto', pause:5000, cycles:2, stoponclick:false, pauseonmouseover:true},
	navbuttons: ['left.gif', 'right.gif', 'up.gif', 'down.gif'], // path to nav images
	activeslideclass: 'selectedslide', // CSS class that gets added to currently shown DIV slide
	orientation: 'h', //Valid values: "h" or "v"
	persist: true, //remember last viewed slide and recall within same session?
	slideduration: 2000 //transition duration (milliseconds)
})

</SCRIPT>

</BODY></HTML>

Δ [email me]

Δ Wednesday, August 1st, 2012

Δ Smoother Ticker

How to create a smoother ticker in Javascript

[download resource files]

Demo

Have you ever noticed the html marquee can be quite rigid and jerky sometimes? Well this Javscript will
create much smoother scrolling text.

var tWidth='300px';                  // width (in pixels)
var tHeight='25px';                  // height (in pixels)
var tcolour='#ffffcc';               // background colour:
var moStop=true;                     // pause on mouseover (true or false)
var fontfamily = 'arial,sans-serif'; // font for content
var tSpeed=3;                        // scroll speed (1 = slow, 5 = fast)

// enter your ticker content here (use \/ and \' in place of / and ' respectively)
var content='Your message goes here';

Δ [email me]

About

   I'm a Computer
   Systems Engineer

   Living and Loving Life

Author