Microsoft.NET

Few useful Installation Script(VBScript) functions

Ram Shankar Yadav — Thu, 22 May 2008 06:32:43 GMT

After so long I’m posting something, lately I was working on installation script of our project, and came across few good things. I’m sharing few of them here:

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

'Global variables

Dim objFSO, objLogFile, WsShell

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WsShell = CreateObject("WScript.Shell")

'Getting Program Files path

Const PROGRAM_FILES = &H26&

Dim objShell, objFolder, objFolderItem, strProgramFilesPath

Set objShell = CreateObject("Shell.Application")

Set objFolder = objShell.Namespace(PROGRAM_FILES)

Set objFolderItem = objFolder.Self

strProgramFilesPath = objFolderItem.Path

WScript.Echo strProgramFilesPath

'For getting Documents and Settings\<UserName>

Dim strUserProfileFolder

strUserProfileFolder = WsShell.Environment("PROCESS")("UserProfile")

WScript.Echo strUserProfileFolder

'Getting Desktop folder

Dim objDesktop

objDesktop = WsShell.SpecialFolders("Desktop")

WScript.Echo objDesktop

'Rename File

Function RenameFile(oldName, newName)

If(objFSO.FileExists(oldName)) Then

objLogFile.WriteLine( oldName & "File found and renaming/moving it to " & newName)

DeleteFile newName

objFSO.MoveFile oldName, newName

objLogFile.WriteLine( oldName & "File renamed/moved successfully " & newName)

Else

objLogFile.WriteLine( oldName & " File does not exist.")

End If

End Function

'Rename Folder

Function RenameFolder(oldName, newName)

If(objFSO.FolderExists(oldName)) Then

If(objFSO.FolderExists(newName)) Then

objFSO.DeleteFolder newName, True

End If

objFSO.MoveFolder oldName, newName

End If

End Function

'Delete File

Function DeleteFile(filePath)

If objFSO.FileExists(filePath) Then

objFSO.DeleteFile filePath, True

objLogFile.WriteLine("File : " + filePath + " deleted successfully")

End If

End Function

'Calling an Excel Macro

Function CallExcelMacro(filePath, macroName)

Dim objExcel

Dim objWorkbook

Set objExcel = CreateObject("Excel.Application")

objExcel.Visible = False

If objFSO.FileExists(filePath) Then

objExcel.EnableEvents = False

set objWorkbook = objExcel.Workbooks.Open (filePath)

objExcel.EnableEvents = True

objLogFile.WriteLine("Calling Macro :: " & macroName)

objExcel.Run "'" & objFSO.GetFileName(filePath) & "'!" & macroName

objWorkbook.Close True

Else

objLogFile.WriteLine( filePath & " File does not exist.")

End If

objExcel.Quit

Set objWorkbook = Nothing

Set objExcel = Nothing

End Function

'Registering .NET Components

Function RegisterComponents(assemblyPath, assemblyName)

Dim winDir

Dim param,program

Dim assemblyFullPath

assemblyFullPath = assemblyPath + "\"+ assemblyName

winDir = objFSO.GetSpecialFolder(0)

program = winDir + "\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe "

If objFSO.FileExists(program) Then

objLogFile.WriteLine( "Registering... " + assemblyName)

' Register/UnRegiter Filename

param = " /unregister " + chr(34) + assemblyFullPath + chr(34)

WsShell.Run program + param , 0, True

param = " /tlb " + chr(34) + assemblyFullPath + chr(34) + " /codebase"

WsShell.Run program + param , 0, True

objLogFile.WriteLine( "Successfully Registered... " + assemblyName)

Else

objLogFile.WriteLine( "Failed to register assembly, as this machine does not have .NET Framework 2.0 runtime installed!")

End If

End Function

'Unregistering .NET Components

Function UnRegisterComponents(assemblyPath, assemblyName)

Dim winDir

Dim param,program

Dim assemblyFullPath

assemblyFullPath = assemblyPath + "\"+ assemblyName

winDir = objFSO.GetSpecialFolder(0)

program = winDir + "\Microsoft.NET\Framework\v2.0.50727\RegAsm.exe "

If objFSO.FileExists(program) Then

objLogFile.WriteLine( "UnRegistering... " + assemblyName)

' Register/UnRegiter Filename

param = " /unregister " + chr(34) + assemblyFullPath + chr(34)

WsShell.Run program + param , 0 , True

objLogFile.WriteLine( "Successfully UnRegistered... " + assemblyName)

Else

objLogFile.WriteLine( "Failed to unregister assembly, as this machine does not have .NET Framework 2.0 runtime installed!")

End If

End Function

'Copy Folder

Function CopyFolderToDestinationFolder(strSourcePath, strDestinationPath, strFolderToCopy)

Dim strTempSource

Dim strTempDestination

strTempSource = strSourcePath & strFolderToCopy

strTempDestination = strDestinationPath & strFolderToCopy

If Not (objFSO.FolderExists(strTempDestination))Then

CreateFolder(strTempDestination)

End If

If objFSO.FolderExists(strTempSource) Then

objLogFile.WriteLine( "Copy " & strFolderToCopy & " Folder : Start")

If objFSO.FolderExists(strTempDestination) Then

objFSO.DeleteFolder strTempDestination, True

End If

objFSO.CopyFolder strTempSource, strTempDestination

objLogFile.WriteLine( "Copy " & strFolderToCopy & " Folder : End")

Else

objLogFile.WriteLine( strTempSource & "Folder does not exist.")

End If

End Function

'Copy File

Function CopyFileToDestinationFolder(strSourcePath, strDestinationPath, strFileName)

If objFSO.FileExists(strSourcePath & strFileName) Then

objFSO.CopyFile strSourcePath & strFileName, strDestinationPath, True

objLogFile.WriteLine( "File : " & strSourcePath & strFileName & " copied successfully to " & strDestinationFolder & strFileName)

Else

objLogFile.WriteLine( strDestinationFolder & strFileName & " does not exist.")

End If

End Function

'Clearing Read only attribute of a file

Function ClearReadOnlyAttribute(filePath)

Dim file

If objFSO.FileExists(filePath) Then

Set file = objFSO.GetFile(filePath)

If file.Attributes Then

file.Attributes = 0

objLogFile.WriteLine("File : " + filePath + " attributes cleared successfully!")

End If

Else

objLogFile.WriteLine("File : " + filePath + " does not exists")

End If

End Function

'Create Desktop Shortcut

Function CreateDesktopShortcut(fullFilePath, shortcutName)

' ----------------------------------------------------------'

Dim objDesktop, objLink

Dim strIconPath

' --------------------------------------------------

' Here are the variables that to change if you are making a 'real' script

'strIconPath = "%SystemRoot%\system32\SHELL32.dll,5"

objDesktop = WsShell.SpecialFolders("Desktop")

Set objLink = WsShell.CreateShortcut(objDesktop & "\" & shortcutName & ".lnk")

' ---------------------------------------------------

' Section which adds the shortcut's key properties

objLink.Description = shortcutName

'objLink.HotKey = "CTRL+SHIFT+X"

'objLink.IconLocation = strIconPath

objLink.TargetPath = fullFilePath

objLink.WindowStyle = 3

'objLink.WorkingDirectory = filePath

objLink.Save

' End of creating a desktop shortcut

End Function

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

Happy Coding

Free eBooks from Microsoft on LINQ, ASP.NET AJAX and Silverlight! - grab it now!!!

Ram Shankar Yadav — Fri, 04 Jan 2008 06:51:05 GMT


Introducing Microsoft LINQ by Paolo Pialorsi and Marco Russo	Introducing Microsoft ASP.NET AJAX by Dino Esposito	Introducing Microsoft Silverlight 1.0 by Laurence Moroney

http://csna01.libredigital.com/

Happy Learning

Visual Studio 2008 and .NET Framework 3.5 Training Kit - Downloadable!!

Ram Shankar Yadav — Mon, 24 Dec 2007 08:29:09 GMT

Hey Guys! Just found this useful stuff and sharing it!

What it is?

The Visual Studio 2008 and .NET Framework 3.5 Training Kit includes presentations, hands-on labs, and demos. This content is designed to help you learn how to utilize the Visual Studio 2008 features and a variety of framework technologies including: LINQ, C# 3.0, Visual Basic 9, WCF, WF, WPF, ASP.NET AJAX, VSTO, CardSpace, SilverLight, Mobile and Application Lifecycle Management.

Where it is?

http://www.microsoft.com/downloads/details.aspx?FamilyID=8BDAA836-0BBA-4393-94DB-6C3C4A0C98A1&displaylang=en

Happy Learning!

MSBuild Links!

Ram Shankar Yadav — Mon, 17 Dec 2007 13:20:31 GMT

Last week I was occupied by two things: Year End Party and MSBuild. Former was rocking and later was interesting! I’ve got few links and would like to share it with you guys.

MSBuild Links:

MSBuild.pdf : http://www.guysmithferrier.com/downloads/msbuild.pdf

[ppt] MSBuild : Architecting and Customized Build System: http://download.microsoft.com/download/f/1/6/f16badeb-a4d7-434b-92a9-8e2f716c35fe/DEV/Managing_the_Daily_Build_Process_with_Team_System_and_MSBuild.ppt

[MSDN TV] Visual Studio 2005: MSBuild - http://msdn.microsoft.com/msdntv/episode.aspx?xml=episodes/en/20040122vsnetak/manifest.xml

7 Steps to MSBuild: http://brennan.offwhite.net/blog/2006/11/30/7-steps-to-msbuild/

MSBuild Team Blog : http://blogs.msdn.com/msbuild/default.aspx

Compile Apps Your Way With Custom Tasks For The Microsoft Build Engine : http://msdn.microsoft.com/msdnmag/issues/06/06/insidemsbuild/default.aspx

http://www.sedodream.com/CategoryView,category,MSBuild.aspx

MSBuild: By Example: http://en.csharp-online.net/MSBuild:_By_Example

Integrating MSBuild with CruiseControl.NET : http://www.dougrohm.com/cs/pages/56.aspx

I hope that you’ll find it useful!

If you have more links just add a comment to this post!

Happy Building

Visual Studio Debugging Tricks

Ram Shankar Yadav — Wed, 05 Dec 2007 05:36:26 GMT

Hey Guys!

I've got something to share which will help us in our "bugging" life…………

Here it goes:

Visual Studio 2005: Cool Debugging Tricks

http://www.eggheadcafe.com/tutorials/aspnet/1e7daccd-ed00-4a35-a2ed-92fb0ad72bec/visual-studio-2005-cool.aspx

Happy Debugging!

To Do : Before you deliver the code

Ram Shankar Yadav — Mon, 26 Nov 2007 09:13:59 GMT

Today I got few guidelines that I would love to share it with you guys, before you deliver the code!

Check existing code passes all unit test cases.
Check Nant script copies the files to proper location
Test UI according to unit test cases written.
Format your code by "select all" the code and press Ctrl+K, Ctrl+F.
If project is completed, do regression testing properly.
Code is as per the coding standard.
If you got any code review comments, you have incorporated it and run unit test cases.

Happy Coding

Migration and Interoperability from Win32 to WPF and vice-versa

Ram Shankar Yadav — Sat, 19 May 2007 12:50:33 GMT

I found this link while browsing and sharing it you you guys!

http://msdn2.microsoft.com/en-us/library/ms753178.aspx

Happy Interop

MSDN Wiki

Ram Shankar Yadav — Thu, 09 Nov 2006 04:03:00 GMT

MSDN Wiki

What is MSDN Wiki?

MSDN Wiki provides an infrastructure for users to comment, edit, and add content to the Visual Studio 2005 and .NET Framework 2.0 online documentation.

What Microsoft content is included on the MSDN Wiki beta site?

The site includes the English version of the Visual Studio 2005 and .NET Framework 2.0 documentation. In addition, it includes versions of these topics that are machine translated into Brazilian Portuguese.

How is this different from the content on msdn2.microsoft.com?

MSDN Wiki pulls its Microsoft content from the same database used by MSDN, so the Microsoft content you see on the MSDN Wiki site is the same as what is available on MSDN2. With the MSDN Wiki site we are experimenting with ways we can integrate community contributions into the Microsoft content.

Will other languages be included in the future?

Within the next year we plan to add MSDN Wiki functionality to the Japanese, French, German, Italian, Spanish, Korean, and Simplified and Traditional Chinese documentation.

Will content I add during the beta period be carried over to the RTW version of the site?

Yes!

MSDN Wiki Home

MSDN Wiki FAQ's

Happy Wiking

Microsoft .NET Framework 3.0 is out !

Ram Shankar Yadav — Tue, 07 Nov 2006 08:33:00 GMT

Hey guys it's true! It's finally out! Microsoft has finally released its next version of framework. I wrote about it in this post. Microsoft .NET Framework 3.0 aka WinFX is here with new things like WCF, WPF, WWF and InfoCard.

I've already installed it on my machine....

Links:

Microsoft .NET Visual Studio Developer Center

Microsoft .NET Framework 3.0 download page

Pre-released Microsoft .NET Framework 3.0 Uninstall Tool

Visual Studio 2005 extensions for .NET Framework 3.0 (Windows Workflow Foundation)

Visual Studio 2005 extensions for .NET Framework 3.0 (WCF & WPF), November 2006 CTP

Windows SharePoint Services 3.0 Tools: Visual Studio 2005 extensions

Microsoft ASP.NET AJAX

Microsoft Visual Studio 2005 Tools for the 2007 Microsoft Office System

Happy Coding!

Choosing Between Transact-SQL and Managed Code

Ram Shankar Yadav — Fri, 13 Oct 2006 11:38:00 GMT

I got this from my friend Shally, and it really worth reading ...........

When you write stored procedures, triggers, and user-defined functions, one decision you will now have to make is whether to use traditional Transact-SQL or a programming language that is compatible with the .NET Framework, such as Visual Basic .NET or C#. The answer to this question will depend on the particular situation that is involved; in some situations you'll want to use Transact-SQL, while in other situations you will want to use managed code.

Transact-SQL is best for situations in which the code will primarily perform data access with little or no procedural logic. Programming languages that are compatible with the .NET Framework are best suited for computationally intensive functions and procedures that feature complex logic, or for situations in which you want to take advantage of the .NET Framework class library.

Code placement is also important. Both Transact-SQL and managed code run on the server. This places functionality and data close together, and allows you to take full advantage of a server's processing power. This is beneficial because it decreases traffic between the data and middle-tier. By simply performing the computation next to the data, a system that is I/O-bound may find this method significantly beneficial. CLR functions also can take advantage of the SQL Server query processor, which can parallelize and optimize execution. On the other hand, you may wish to avoid placing processor intensive tasks on your database server. Most client computers today are very powerful, and you may wish to take advantage of this processing power by placing as much code as possible on the client. There is no "one size fits all" answer.

Happy Coding