Public Shared Function GetVery1stDayNoOfTheYear(ByVal faDay As String, ByVal faYear As Integer) As Integer
    Dim vRet As Integer = 0
    For vRet = 1 To 7
        If UCase(Format(CDate("0" & vRet & "-Jan-" & faYear), "ddd")) = UCase(faDay) Then
            Exit For
        End If
    Next
    Return vRet
End Function 

 

 

 
There are many sites offering visit analysis for your web site including google. Once you register with them, you will get some client side script. You can put them in each of your page, and thing are over. You can try your own visit analysis module with the help of the following codes. It uses an xml file i.e. AppVisitCount.Xml, the structure is given below. All you need is to call the following functions
 
LetVisitCount(): For page load of every aspx file or master file
GetVisitCount(): To know the current visit count
GetCountBoard(): To have the following output
 

1

5

0

8

1

9

4

7

 
You can also write additional functions to maintain a database level logs for capturing statistics for various analysis. The function LetVisitCount() is the right place for calling your functions for such data captures.
 
'''''''''file:AppVisitCount.Xml
 
<?xml version="1.0" standalone="yes"?>
<table>
  <row>
    <hitcounter>15081947</hitcounter>
  </row>
</table>
 
'''''''''code:forVisitCount
 
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Xml
Imports System.IO
 
Private Shared Function GetVisitCount() As Long
    Dim vDs As New DataSet
    Dim vHits As Long = 0
    vDs.ReadXml(HttpContext.Current.Request.PhysicalApplicationPath & "\AppVisitCount.Xml")
    vHits = CLng(vDs.Tables(0).Rows(0).Item("hitcounter").ToString)
    Return vHits
End Function
 
Public Shared Sub LetVisitCount()
    Dim vHits As Long = 0
    If HttpContext.Current.Session("hitcounter") Is Nothing Then
        vHits = SetVisitCount()
        HttpContext.Current.Session("hitcounter") = vHits
    Else
        vHits = GetVisitCount()
    End If
End Sub
 
Public Shared Function GetCountBoard() As String
    Dim vHitsBoard As String = ""
    If Not HttpContext.Current.Session("Hits") Is Nothing Then
        Dim vHits As String = Format(CLng(HttpContext.Current.Session("hitcounter")), "0000000")
        Dim vCnt As Integer = Len(vHits)
        Dim vCtr As Integer = 0
        vHitsBoard = vHitsBoard & "<table border=1 cellpadding=1 cellspacing=0><tr>"
        For vCtr = 1 To vCnt
            vHitsBoard = vHitsBoard & "<td height=25px bgcolor='#000000' "
            vHitsBoard = vHitsBoard & "style='color:#ffffff;font-weight:bold'>"
            vHitsBoard = vHitsBoard & Mid(vHits, vCtr, 1) & "</td>"
        Next
        vHitsBoard = vHitsBoard & "</tr></table>"
    End If
    Return vHitsBoard
End Function
 
Private Shared Function SetVisitCount() As Long
    Dim vDs As New DataSet
    Dim vHits As Long = 0
    vDs.ReadXml(HttpContext.Current.Request.PhysicalApplicationPath & "\AppVisitCount.Xml")
    vHits = CLng(vDs.Tables(0).Rows(0).Item("hitcounter").ToString) + 1
    vDs.Tables(0).Rows(0).Item("hitcounter") = vHits
    vDs.WriteXml(HttpContext.Current.Request.PhysicalApplicationPath & "\AppVisitCount.Xml")
    Return vHits
End Function
 
»»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com

 
There are many situations where your application requires giving facilities for uploading files. If this files require sharing publically you should keep it in your web application folder so that search engines can easily search it and index then. This will also help you to ease your site search engines also. But it not a good idea to keep it inside your web application folder if you want to make it secured from unauthorized access. In such case you must keep this folder outside. But this will restrict you to use href tag from downloading. The following code will help you.
 
Imports Microsoft.VisualBasic
Imports System.Data
Imports System.IO
 
Public Shared Function DoDownload_File(ByVal faType As String, ByVal faFile As String, ByVal faPath As String) As Boolean 
    Dim vRet As Boolean = False
    Try
        HttpContext.Current.Response.ContentType = "application/" & faType
        HttpContext.Current.Response.AppendHeader("Content-Disposition", "attachment; filename=" & faFile)
        HttpContext.Current.Response.TransmitFile(faPath)
        HttpContext.Current.Response.End()
        vRet = True
    Catch ex As Exception
        vRet = False
    Finally
        'doNothing
    End Try
    Return vRet
End Function
 
Public Shared Function DoDownload_Image(ByVal faFile As String, ByVal faPath As String) As Boolean 
    Dim vRet As Boolean = False
    Try
        Dim contenttype As String = "image/" & Path.GetExtension(faFile).Replace(".", "")
        Dim fs As FileStream = New FileStream(faPath & faFile, FileMode.Open, FileAccess.Read)
        Dim br As BinaryReader = New BinaryReader(fs)
        Dim bytes As Byte() = br.ReadBytes(Convert.ToInt32(fs.Length))
        br.Close()
        fs.Close()
        HttpContext.Current.Response.Buffer = True
        HttpContext.Current.Response.Charset = ""
        HttpContext.Current.Response.Cache.SetCacheability(HttpCacheability.NoCache)
        HttpContext.Current.Response.ContentType = contenttype
        HttpContext.Current.Response.AddHeader("content-disposition", "attachment;filename=" & faFile)
        HttpContext.Current.Response.BinaryWrite(bytes)
        HttpContext.Current.Response.Flush()
        HttpContext.Current.Response.End()
        vRet = True
    Catch ex As Exception
        vRet = False
    Finally
        'doNothing
    End Try
    Return vRet
End Function 

 
FTP Transfers files to and from a computer running a File Transfer Protocol (FTP) server service such as Internet Information Services. Ftp can be used interactively or in batch mode by processing ASCII text files. The following codes illustrates how to do the related operations programatically using VB.Net environment. 
 
Imports System.IO
Imports System.Net
 
Public Function doActionFTP_GetFileList( _
    ByVal FullFtpUrl As String,
    Optional ByVal Usr As String = "", _
    Optional ByVal Pwd As String = "" _
    ) As String
    Dim vDirList As String = ""
    Try
        Dim fwreqObj As FtpWebRequest = DirectCast(WebRequest.Create(FullFtpUrl), FtpWebRequest)
        fwreqObj.Method = WebRequestMethods.Ftp.ListDirectoryDetails
        fwreqObj.Credentials = New NetworkCredential(Usr, Pwd)
        Dim fwresObj As FtpWebResponse = DirectCast(fwreqObj.GetResponse(), FtpWebResponse)
        Dim srObj As New StreamReader(fwresObj.GetResponseStream, System.Text.Encoding.ASCII)
        vDirList = srObj.ReadToEnd
 
    Catch ex As Exception
        vDirList = ""
 
    End Try
    Return vDirList
End Function
 
Public Function doActionFTP_GetFileCrDate( _
    ByVal FullFtpUrl As String, _
    Optional ByVal Usr As String = "", _
    Optional ByVal Pwd As String = "" _
    ) As Date
    Dim fcDate As Date = Now
    Try
        Dim fwreqObj As FtpWebRequest = DirectCast(WebRequest.Create(FullFtpUrl), FtpWebRequest)
        fwreqObj.Method = WebRequestMethods.Ftp.GetDateTimestamp
        fwreqObj.Credentials = New NetworkCredential(Usr, Pwd)
        Dim fwresObj As FtpWebResponse = DirectCast(fwreqObj.GetResponse(), FtpWebResponse)
        fcDate = fwresObj.LastModified
 
    Catch ex As FileNotFoundException
        fcDate = DateValue("15-AUG-1947")
 
    Catch ex As Exception
        fcDate = DateValue("26-JAN-1951")
 
    End Try
    Return fcDate
End Function
 
Public Function doActionFTP_Upload( _
    ByVal FullFilePath As String, _
    ByVal FullFtpUrl As String, _
    Optional ByVal Usr As String = "", _
    Optional ByVal Pwd As String = "" _
    ) As Boolean
    Try
        Dim fwreqObj As FtpWebRequest = DirectCast(WebRequest.Create(FullFtpUrl), FtpWebRequest)
        fwreqObj.Method = WebRequestMethods.Ftp.UploadFile
        fwreqObj.Credentials = New NetworkCredential(Usr, Pwd)
 
        Dim byteObj As Byte() = File.ReadAllBytes(FullFilePath)
        fwreqObj.ContentLength = byteObj.Length
 
        Dim sObj As Stream = fwreqObj.GetRequestStream()
        sObj.Write(byteObj, 0, byteObj.Length)
        sObj.Close()
 
        Dim fwresObj As FtpWebResponse = DirectCast(fwreqObj.GetResponse(), FtpWebResponse)
        fwresObj.Close()
    Catch ex As Exception
        vRet = False
 
    Finally
     'do nothing
 
    End Try
    Return vret
End Function
 
Public Function doActionFTP_Dnload( _
    ByVal FullFtpUrl As String, _
    ByVal FullFilePath As String, _
    Optional ByVal Usr As String = "", _
    Optional ByVal Pwd As String = "" _
    ) As Boolean
    Dim vRet As Boolean = False
    Try
        Dim fwreqObj As FtpWebRequest = DirectCast(WebRequest.Create(FullFtpUrl), FtpWebRequest)
        fwreqObj.Method = WebRequestMethods.Ftp.DownloadFile
        fwreqObj.Credentials = New NetworkCredential(Usr, Pwd)
 
        Dim fwresObj As FtpWebResponse = DirectCast(fwreqObj.GetResponse(), FtpWebResponse)
        Dim sObj As Stream = fwresObj.GetResponseStream()
 
        Dim rObj As New StreamReader(sObj)
        Dim fsObj As New FileStream(FullFilePath, FileMode.Create)
        Dim wObj As New StreamWriter(fsObj)
 
        wObj.Write(rObj.ReadToEnd)
        wObj.Flush()
        wObj.Close()
        fsObj.Close()
        rObj.Close()
        sObj.Close()
        fwresObj.Close()
        vret = True
    Catch ex As Exception
        vRet = False
 
    Finally
     'do nothing
 
    End Try
    Return vret
End Function
 

 

Google Maps (for a time named Google Local) is a web mapping service application and technology provided by Google, free (for non-commercial use), that powers many map-based services, including the Google Maps website, Google Ride Finder, Google Transit, and maps embedded on third-party websites via the Google Maps API.   It offers street maps, a route planner for traveling by foot, car, or public transport and an urban business locator for numerous countries around the world.   According to one of its creators (Lars Rasmussen), Google Maps is "a way of organizing the world's information geographically"   Ref: http: //code.google.com/apis/maps/documentation/introduction.html Ref: http: //en.wikipedia.org/wiki/Google_Maps

Sample Code
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xmlns:v="urn:schemas-microsoft-com:vml">
    <head>
        <meta http-equiv="content-type" content="text/html; charset=utf-8"/>
        <title>Google Maps JavaScript API Example: Simple Map</title>
        <script src="http://maps.google.com/maps?file=api&amp;v=2&amp;key=abcdefg&sensor=true_or_false" type="text/javascript"></script>
        <script type="text/javascript">
            function initialize() {
                var map = new GMap2(document.getElementById("map_canvas"));
                map.setCenter(new GLatLng(20,77), 3);
                map.setUIToDefault();
            }
        </script>
    </head>
    <body onload="initialize()" onunload="GUnload()" leftmargin=0 rightmargin=0 topmargin=0 bottommargin=0>
        <div id="map_canvas" style="width: 600px; height: 450px"></div>
    </body>
</html>
 

 

 
A boy was drowning in a river and he shouted for help. A man passing by jumped in the river and saved the boy's life. As the man was leaving the boy said, Thank-you.'' The man asked, "For what?" The boy replied, "For saving my life."
 
The man looked into the boy's eyes and said,
 
"Upon, make sure when you grow up that your life was worth saving."
 
by Shiv Khera { You Can Win }
 

 
A farmer had a dog who used to sit by the roadside waiting for vehicles to come around. As soon as one came he would run down the road, barking and trying to overtake it. One day a neighbor asked the farmer "Do you think your dog is ever going to catch a car?" The farmer replied, "That is not what bothers me. What bothers me is what he would do if he ever caught one."
 
Many people in life behave like that dog who is pursuing meaningless goals.
 
by Shiv Khera { You Can Win }
 

 
A user who has not installed Visual Basic cannot see any Add-Ins in the Add-In dialog in Visual Basic. The reason is that Visual Basic retrieves available Add-Ins based on the CurrentUser Settings in the Registry. To resolve the issue the Add-Ins need to be registered for each user. You can refer http://support.microsoft.com/?id=190212 for variously possibilities on registering add-ins. If you have installed Visual Basic / Visual Studio at its default location then you can try the following scripts. Either you copy these codes and paste into ms-dos command prompt or you can use it as a ms-dos batch file.
 
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\PDWizard\PDADDIN.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\CTRLWIZ.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\AXDOCWIZ.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\AITOOL.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\APPWIZ.OCX"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\CLSSBLD.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\DATAFORM.OCX"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\MSDATOBJ.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\PROPPGWZ.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\RESEDIT.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\TEMPMGR.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\vb98\Wizards\WIZMAN.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\Common\Tools\VCM\VCMMGR.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBADDIN.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBADDINMENUS.DLL"
"%systemroot%\system32\regsvr32.exe" "%programfiles%\microsoft visual studio\Common\Tools\VS-Ent98\vmodeler\RVBRESO.DLL"

»»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com

There is a big difference between activity and accomplishment. This was demonstrated by a French scientist named Fable. He conducted an experiment with processionary caterpillars. Caterpillars follow the one in front of them blindly. Fable arranged them in a circle in a flowerpot so that the lead caterpillar actually was behind the last one forming a circle. He put pine needles (food for the caterpillars) in the center of the flowerpot. The caterpillars kept going in a circle in the pot. Eventually, after a week of circling around, they dropped dead of exhaustion and starvation with food only inches away from them. We need to learn a lesson from the caterpillars. Just because you are doing something, doesn't mean you are getting anywhere. One must evaluate one's activity in order to have accomplishment.
 
A man was out driving with his wife and the wife said, "Honey, we are going the wrong way." The husband replied, "Who cares, we are making great time!" If we confuse activity with accomplishment, we could be making great time but we won't get anywhere.
 
by Shiv Khera { You Can Win }
 

 
A group of graduates, well established in their careers, were talking at a reunion and decided to go visit their old university professor, now retired.
 
During their visit, the conversation turned to complaints about stress in their work and lives.
 
Offering his guests hot chocolate, the professor went into the kitchen and returned with a large pot of hot chocolate and an assortment of cups - porcelain, glass, crystal, some plain looking, some expensive, some exquisite - telling them to help themselves to the hot chocolate.
 
When they all had a cup of hot chocolate in hand, the professor said: "Notice that all the nice looking, expensive cups were taken, leaving behind the plain and cheap ones. While it is normal for you to want only the best for yourselves, that is the source of your problems and stress.
 
The cup that you're drinking from adds nothing to the quality of the hot chocolate.. In most cases it is just more expensive and in some cases even hides what we drink.
 
What all of you really wanted was hot chocolate, not the cup; but you consciously went for the best cups... And then you began eyeing each other's cups.
 
LIFE IS THE HOT CHOCOLATE; YOUR JOB, MONEY AND POSITION IN SOCIETY ARE THE CUPS.
 
They are just tools to hold and contain life.
 
The cup you have does not define, nor change the quality of life you have.
 
Sometimes, by concentrating only on the cup, we fail to enjoy the hot chocolate God has provided us. God makes the hot chocolate, man chooses the cups. The happiest people don't have the best of everything. They just make the best of everything that they have.
 
Live simply. Love generously. Care deeply. Speak kindly. And enjoy your hot chocolate.
 
by Unknown
 

 
On the best sunny day, the most powerful magnifying glass will not light paper if you keep moving the glass. But if you focus and hold it, the paper will light up. That is the power of concentration.
 
A man was traveling and stopped at an intersection. He asked an elderly man, "Where does this road take me?" The elderly person asked, "Where do you want to go?" The 150 of 150 man replied, "I don't know." The elderly person said, "Then take any road. What difference does it make?"
 
How true. When we don't know where we are going, any road will take us there. Supposing you have the football eleven enthusiastically ready to play the game, all charged up, and then someone took the goal post away. What would happen to the game? There is nothing left. How do you keep score? How do you know you have arrived? Enthusiasm without direction is like wildfire and leads to frustration. Goals give a sense of direction.
 
Would you sit in a train or a plane without knowing where it was going? The obvious answer is no. Then why do people go through life without having any goals?
 
by Shiv Khera { You Can Win }
 

Asp.Net 2.0 Ajax Extensions 1.0
(download attachment | download from original link)
 
Asp.Net Ajax enables developers to choose their preferred method of Ajax development, whether it is server-side programming, client-side programming, or a combination of both for building highly interactive and responsive web applications that work across all popular browsers. The UpdatePanels and a ScriptManager will solve all your partial post-back problems.
 
Asp.Net 2.0 Ajax Validators
(download attachment | download from original link)
 
Asp.Net 2.0 Ajax Extensions 1.0 has got some bugs while using validators. At first instant validation control will do its work but thereafter it won’t fire. Here we need the binary validators.dll. It also requires the following configurations in your web.config file.
 
<system.web>
    <pages>
    <controls>
        <add tagPrefix="asp" namespace="System.Web.UI" assembly="System.Web.Extensions, 
        Version=1.0.61025.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/>
    </controls>
    <tagMapping>
        <add tagType="System.Web.UI.WebControls.CompareValidator"
        mappedTagType="Microsoft.Web.UI.Compatibility.CompareValidator, Validators"/>
        <add tagType="System.Web.UI.WebControls.CustomValidator"
        mappedTagType="Microsoft.Web.UI.Compatibility.CustomValidator, Validators"/>
        <add tagType="System.Web.UI.WebControls.RangeValidator"
        mappedTagType="Microsoft.Web.UI.Compatibility.RangeValidator, Validators"/>
        <add tagType="System.Web.UI.WebControls.RegularExpressionValidator"
        mappedTagType="Microsoft.Web.UI.Compatibility.RegularExpressionValidator, Validators"/>
        <add tagType="System.Web.UI.WebControls.RequiredFieldValidator"
        mappedTagType="Microsoft.Web.UI.Compatibility.RequiredFieldValidator, Validators"/>
        <add tagType="System.Web.UI.WebControls.ValidationSummary"
        mappedTagType="Microsoft.Web.UI.Compatibility.ValidationSummary, Validators"/>
    </tagMapping>
    </pages>
    ...
</system.web>
 
Asp.Net 2.0 AjaxControlToolkit
(download attachment | download from original link)
 
If you are not interested to write your own web user controls, this is where your struggle ends. Add a new tab to your toolbox and AjaxControlToolkit.dll will be included to your bin folder and then a number of Ajax control will be yours.
 
FusionCharts for Asp.Net
(download attachment | download from original link)
 
FusionCharts Enterprise Edition are really world-class solutions for web based charting solutions. It has been compatible with all the web technology and has got wider usage with PHP, ASP, .NET, JSP, ColdFusion, JavaScript, Ruby on Rails etc.
 
iTextSharp for .Net
(download attachment | download from original link)
 
It is the most useful free binary that provides most of the features you aspect for PDF files. Yes creation of PDF file from within a browser and Reading the text from the PDF file like of operations are nicely handled.
 
Winthusiasm HtmlEditor for Asp.Net 2.0
(download attachment | download from original link)
 
If you are looking for an Ajax enable HtmlEditor control then this is an answer to your search. Most of the required functionalities are covered here in this. It is much better than most of the paid version of such type of controls
 
MySql Connector for .Net 2.0
(download attachment | download from original link)
 
MySql is an answer to most of the database related challenges. From its existing MySql 5.1 onward it has been a headache for leading database solution providers. MySql.Data.dll 6.0.4 is the best solutions for your Asp.Net 2.0 applications. You can refer my article on its usage.
 
FlashControl for .Net 2.0
(download attachment | download from original link)
 
Embedding Flash / SWF object to any kind of web page is simple enough, but the challenge is to control these objects through server side scripts. FlashControl is the most useful dll to do such activity. Especially when you want to send some real-time data to flash object to set variables you will find these dll as most useful one. The property called FlashVars will be most attractive for you because you can then set multiple variables by setting values like "var1=value1&var2=value2&var3=value3" etc.

»»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com 

 
On July 4, 1952, Florence Chadwick was on her way to becoming the first woman to swim the Catalina Channel. She had already conquered the English Channel. The world was watching. Chadwick fought the dense fog, bone-chilling cold and many times, the sharks. She was striving to reach the shore but every time she looked through her goggles, all she could see was the dense fog. Unable to see the shore, she gave up.
 
Chadwick was disappointed when she found out that she was only half a mile from the coast. She quit, not because she was a quitter but because her goal was not in sight anywhere. The elements didn't stop her. She said, "I'm not making excuses. If only I had seen the land, I could have made it."
 
Two months later, she went back and swam the Catalina Channel. This time, in spite of the bad weather, she had her goal in mind and not only accomplished it but beat the men's record by two hours.
 
by Shiv Khera { You Can Win }
 

 
An ancient Indian sage was teaching his disciples the art of archery. He put a wooden bird as the target and asked them to aim at the eye of the bird. The first disciple was asked to describe what he saw. He said, "I see the trees, the branches, the leaves, the sky, the bird and its eye.."
 
The sage asked this disciple to wait. Then he asked the second disciple the same question and he replied, "I only see the eye of the bird." The sage said, "Very good, then shoot." The arrow went straight and hit the eye of the bird.
 
Unless we focus, we cannot achieve our goal. It is hard tofocus and concentrate, but it is a skill that can be learned.
 
by Shiv Khera { You Can Win }
 

 
WMI stands Windows Management Instrumentation in Microsoft Windows operating systems. It is a set of extensions to the Windows Driver Model that provides Operating System interface to provide information and notification. The following code will retrive the values from each of the properties of Win32_BIOS class
 
This example uses instance of Win32_BIOS class and a list of class deffers dependending upon what is installed in the system. This list commonly includes classes like Win32_1394Controller, Win32_ACE, Win32_Account, Win32_AccountSID, Win32_ApplicationService, Win32_BIOS, Win32_BaseBoard, Win32_BaseService, Win32_Battery, Win32_Binary, Win32_BindImageAction, Win32_BootConfiguration, Win32_Bus, Win32_CDROMDrive, Win32_COMApplication, Win32_COMClass, Win32_COMSetting, Win32_CacheMemory, Win32_ClassInfoAction, Win32_ClassicCOMClass, Win32_ClassicCOMClassSetting, Win32_CodecFile, Win32_CommandLineAccess, Win32_ComponentCategory, Win32_ComputerSystem, Win32_ComputerSystemProduct, Win32_Condition, Win32_CreateFolderAction, Win32_CurrentProbe, Win32_DCOMApplication, Win32_DCOMApplicationSetting, Win32_DMAChannel, Win32_Desktop, Win32_DesktopMonitor, Win32_DeviceMemoryAddress, Win32_Directory, Win32_DirectorySpecification, Win32_DiskDrive, Win32_DiskPartition, Win32_DisplayConfiguration, Win32_DisplayControllerConfiguration, Win32_DriverVXD, Win32_DuplicateFileAction, Win32_Environment, Win32_EnvironmentSpecification, Win32_ExtensionInfoAction, Win32_Fan, Win32_FileSpecification, Win32_FloppyController, Win32_FloppyDrive, Win32_FontInfoAction, Win32_Group, Win32_HeatPipe, Win32_IDEController, Win32_IRQResource, Win32_InfraredDevice, Win32_IniFileSpecification, Win32_Keyboard, Win32_LaunchCondition, Win32_LoadOrderGroup, Win32_LogicalDisk, Win32_LogicalFileSecuritySetting, Win32_LogicalMemoryConfiguration, Win32_LogicalProgramGroup, Win32_LogicalProgramGroupItem, Win32_LogicalShareSecuritySetting, Win32_MIMEInfoAction, Win32_MSIResource, Win32_MemoryArray, Win32_MemoryDevice, Win32_MethodParameterClass, Win32_MotherboardDevice, Win32_MoveFileAction, Win32_NTEventlogFile, Win32_NTLogEvent, Win32_NetworkAdapter, Win32_NetworkAdapterConfiguration, Win32_NetworkClient, Win32_NetworkConnection, Win32_NetworkLoginProfile, Win32_NetworkProtocol, Win32_ODBCAttribute, Win32_ODBCDataSourceSpecification, Win32_ODBCDriverSpecification, Win32_ODBCSourceAttribute, Win32_ODBCTranslatorSpecification, Win32_OSRecoveryConfiguration, Win32_OnBoardDevice, Win32_OperatingSystem, Win32_PCMCIAController, Win32_POTSModem, Win32_PageFile, Win32_PageFileSetting, Win32_PageFileUsage, Win32_ParallelPort, Win32_Patch, Win32_PatchPackage, Win32_PhysicalMemory, Win32_PhysicalMemoryArray, Win32_PnPEntity, Win32_PointingDevice, Win32_PortConnector, Win32_PortResource, Win32_PortableBattery, Win32_PowerManagementEvent, Win32_PrintJob, Win32_Printer, Win32_PrinterConfiguration, Win32_PrivilegesStatus, Win32_Process, Win32_ProcessStartup, Win32_Processor, Win32_Product, Win32_ProgIDSpecification, Win32_ProgramGroup, Win32_ProgramGroupOrItem, Win32_Property, Win32_PublishComponentAction, Win32_QuickFixEngineering, Win32_Refrigeration, Win32_Registry, Win32_RegistryAction, Win32_RemoveFileAction, Win32_RemoveIniAction, Win32_ReserveCost, Win32_SCSIController, Win32_SID, Win32_SMBIOSMemory, Win32_ScheduledJob, Win32_SecurityDescriptor, Win32_SecuritySetting, Win32_SelfRegModuleAction, Win32_SerialPort, Win32_SerialPortConfiguration, Win32_Service, Win32_ServiceControl, Win32_ServiceSpecification, Win32_Share, Win32_ShortcutAction, Win32_ShortcutFile, Win32_ShortcutSAP, Win32_SoftwareElement, Win32_SoftwareElementCondition, Win32_SoftwareFeature, Win32_SoftwareFeatureAction, Win32_SoundDevice, Win32_StartupCommand, Win32_SystemAccount, Win32_SystemDriver, Win32_SystemEnclosure, Win32_SystemMemoryResource, Win32_SystemSlot, Win32_TapeDrive, Win32_TemperatureProbe, Win32_Thread, Win32_TimeZone, Win32_Trustee, Win32_TypeLibraryAction, Win32_USBController, Win32_UninterruptiblePowerSupply, Win32_UserAccount, Win32_VideoConfiguration, Win32_VideoController, Win32_VoltageProbe, Win32_WMISetting. More on this...
 
The Visual Basic Code
 
Sub Get_Win32_Information()
   Dim vList, vObj
   On Local Error Resume Next
   Set vList = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_BIOS")
   For Each vObj In vList
        Debug.Print "BiosCharacteristics = " & vObj.BiosCharacteristics
        Debug.Print "BuildNumber = " & vObj.BuildNumber
        Debug.Print "Caption = " & vObj.Caption
        Debug.Print "CodeSet = " & vObj.CodeSet
        Debug.Print "CurrentLanguage = " & vObj.CurrentLanguage
        Debug.Print "Description = " & vObj.Description
        Debug.Print "IdentificationCode = " & vObj.IdentificationCode
        Debug.Print "InstallableLanguages = " & vObj.InstallableLanguages
        Debug.Print "InstallDate = " & vObj.InstallDate
        Debug.Print "LanguageEdition = " & vObj.LanguageEdition
        Debug.Print "ListOfLanguages = " & vObj.ListOfLanguages
        Debug.Print "Manufacturer = " & vObj.Manufacturer
        Debug.Print "Name = " & vObj.Name
        Debug.Print "OtherTargetOS = " & vObj.OtherTargetOS
        Debug.Print "PrimaryBIOS = " & vObj.PrimaryBIOS
        Debug.Print "ReleaseDate = " & vObj.ReleaseDate
        Debug.Print "SerialNumber = " & vObj.SerialNumber
        Debug.Print "SMBIOSBIOSVersion = " & vObj.SMBIOSBIOSVersion
        Debug.Print "SMBIOSMajorVersion = " & vObj.SMBIOSMajorVersion
        Debug.Print "SMBIOSMinorVersion = " & vObj.SMBIOSMinorVersion
        Debug.Print "SMBIOSPresent = " & vObj.SMBIOSPresent
        Debug.Print "SoftwareElementID = " & vObj.SoftwareElementID
        Debug.Print "SoftwareElementState = " & vObj.SoftwareElementState
        Debug.Print "Status = " & vObj.Status
        Debug.Print "TargetOperatingSystem = " & vObj.TargetOperatingSystem
        Debug.Print "Version = " & vObj.Version
    Next
End Sub
 
The Debug.Print Output
 
BuildNumber =
Caption = BIOS Date: 06/05/02 16:58:00  Ver: 08.00.00
CodeSet =
CurrentLanguage = enUS
Description = BIOS Date: 06/05/02 16:58:00  Ver: 08.00.00
IdentificationCode =
InstallableLanguages = 1
InstallDate =
LanguageEdition =
Manufacturer = Intel Corp.
Name = BIOS Date: 06/05/02 16:58:00  Ver: 08.00.00
OtherTargetOS =
PrimaryBIOS = True
ReleaseDate = 20020605******.******+***
SerialNumber =                               
SMBIOSBIOSVersion = LY84510A.86A.0011.P05.0206051658
SMBIOSMajorVersion = 2
SMBIOSMinorVersion = 3
SMBIOSPresent = True
SoftwareElementID = BIOS Date: 06/05/02 16:58:00  Ver: 08.00.00
SoftwareElementState = 3
Status = OK
TargetOperatingSystem = 0
Version = BIOS Date: 06/05/02 16:58:00  Ver: 08.00.00

 

Win32_Keyboard     Properties         Availability         Caption         ConfigManagerErrorCode         ConfigManagerUserConfig         CreationClassName         Description         DeviceID         ErrorCleared         ErrorDescription         InstallDate         IsLocked         LastErrorCode         Layout         Name         NumberOfFunctionKeys         Password         PNPDeviceID         PowerManagementCapabilities         PowerManagementSupported         Status         StatusInfo         SystemCreationClassName         SystemName     Methods         SetPowerState         Reset	Win32_Bus     Properties         Availability         BusNum         BusType         Caption         ConfigManagerErrorCode         ConfigManagerUserConfig         CreationClassName         Description         DeviceID         ErrorCleared         ErrorDescription         InstallDate         LastErrorCode         Name         PNPDeviceID         PowerManagementCapabilities         PowerManagementSupported         Status         StatusInfo         SystemCreationClassName         SystemName     Methods         SetPowerState         Reset	Win32_MotherboardDevice     Properties         Availability         Caption         ConfigManagerErrorCode         ConfigManagerUserConfig         CreationClassName         Description         DeviceID         ErrorCleared         ErrorDescription         InstallDate         LastErrorCode         Name         PNPDeviceID         PowerManagementCapabilities         PowerManagementSupported         PrimaryBusType         RevisionNumber         SecondaryBusType         Status         StatusInfo         SystemCreationClassName         SystemName     Methods         SetPowerState         Reset
Win32_BaseBoard     Properties         Caption         ConfigOptions         CreationClassName         Depth         Description         Height         HostingBoard         HotSwappable         InstallDate         Manufacturer         Model         Name         OtherIdentifyingInfo         PartNumber         PoweredOn         Product         Removable         Replaceable         RequirementsDescription         RequiresDaughterBoard         SerialNumber         SKU         SlotLayout         SpecialRequirements         Status         Tag         Version         Weight         Width     Methods	IsCompatibleWin32_BIOS     Properties         BiosCharacteristics         BuildNumber         Caption         CodeSet         CurrentLanguage         Description         IdentificationCode         InstallableLanguages         InstallDate         LanguageEdition         ListOfLanguages         Manufacturer         Name         OtherTargetOS         PrimaryBIOS         ReleaseDate         SerialNumber         SMBIOSBIOSVersion         SMBIOSMajorVersion         SMBIOSMinorVersion         SMBIOSPresent         SoftwareElementID         SoftwareElementState         Status         TargetOperatingSystem         Version     Methods	Win32_Registry     Properties         Caption         CurrentSize         Description         InstallDate         MaximumSize         Name         ProposedSize         Status     Methods

 

 »»»»»»»   by Santosh Kumar ? Original @ http://santu4you.spaces.live.com