Visual Basic Discussion Boards

Dave Kreskowiak9-Dec-04 4:39

9-Dec-04 4:39

I probably won't need it, but someone else here will. How about posting the solution to the problem anyway. After all, this is what this board is all about.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Re: Mailbox size - here the solution

Member 11070069-Dec-04 5:02

Member 1107006

9-Dec-04 5:02

'=======================================================================
' Purpose: Display each Exchange_Mailbox found for Exchange server,
' and show the Size property on the Exchange_Mailbox
' objects
' Change: cComputerName [string] the computer to access
' Output: Displays the name of each Exchange_Mailbox's Size property
'=======================================================================
On Error Resume Next
Dim cComputerName
Const cWMINameSpace = "root/MicrosoftExchangeV2"
Const cWMIInstance = "Exchange_Mailbox"
cComputerName = "type here the name of your computer that holds Exchange"

Dim strWinMgmts 'Connection string for WMI
Dim objWMIExchange 'Exchange Namespace WMI object
Dim listExchange_Mailboxs 'ExchangeLogons collection
Dim objExchange_Mailbox 'A single ExchangeLogon WMI object

' Create the object string, indicating WMI (winmgmts), using the
' current user credentials (impersonationLevel=impersonate),
' on the computer specified in the constant cComputerName, and
' using the CIM namespace for the Exchange provider.

strWinMgmts = "winmgmts:{impersonationLevel=impersonate}!//"&cComputerName&"/"&cWMINameSpace
Set objWMIExchange = GetObject(strWinMgmts)

' Verify we were able to correctly set the object.

If Err.Number <> 0 Then
WScript.Echo "ERROR: Unable to connect to the WMI namespace."
WScript.quit
End If
'
' The Resources that currently exist appear as a list of
' Exchange_Mailbox instances in the Exchange namespace.
'
Set listExchange_Mailboxs = objWMIExchange.InstancesOf(cWMIInstance)
'
' Were any Exchange_Mailbox Instances returned?
'
If (listExchange_Mailboxs.count = 0) Then
'
' If no Exchange_Mailbox instances were returned,
' display that.
'
WScript.Echo "WARNING: No Exchange_Mailbox instances were returned."
WScript.quit
End If
'
' If yes, do the following:
' Iterate through the list of Exchange_Mailbox objects.
'
For Each objExchange_Mailbox in listExchange_Mailboxs
line = "Display name: " & objExchange_Mailbox.MailboxDisplayName & " Mailboxe size: " & cInt((objExchange_Mailbox.Size / 1024))
wscript.echo (line)
Next
WScript.quit

Remoting:SoapClientFormatterSink

gscloete8-Dec-04 4:30

gscloete

8-Dec-04 4:30

Hi,
I am using .NEt remoting and want to override the normal ProcessRequest call on the ClientFormatterSink & ServerFormatterSink , thus I have made my own class and inherits it from base class SoapClientFormatterSink or SoapServerFormatterSink. How do I tell remoting that it must use my class rather than the normal system remoting class. Any suggetions welkom

Regards
Gert
gscloete@yahoo.com

Interesting project

jphuphilly8-Dec-04 4:12

jphuphilly

8-Dec-04 4:12

I want to create a toolbar for internet explorer that can display stock information similar to google's toolbar. I want to know can I do this in .net? Also, how would i get started? Any tips or suggestions would be greatly appreciated.

Thank You,

Da Intern

Client Server

nitin_ion8-Dec-04 0:56

nitin_ion

8-Dec-04 0:56

Can any one guide how to make Client Server application and about Remoting, sample will be a lot help

Xml help please

Makniteasy7-Dec-04 19:39

Makniteasy

7-Dec-04 19:39

I am new to VB and am trying to learn xml. I have two forms i am working with.the second form has a datagrid(DataGridView from toolbox) on it. I have used System.IO.FileStream to create a file in c:\. But how do I get form 2's grid or table to automatically save changes made by the user to the file in C:\ and then load them when the application is opened again?
what type of xml do I use document, textreader, etc...

THANKS

Re: Xml help please

Dave Kreskowiak8-Dec-04 3:43

Dave Kreskowiak

8-Dec-04 3:43

If your using a DataGrid, your grid should be sourced (DataSource property) to a DataSet object that contains the actual data your changing. When the changes are complete, you can have the DataSet object write the data out to an XML file.

Checkout the docs on the DataSet class here[^] on MSDN.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

pop up window..................

Coolshahul7-Dec-04 17:01

Coolshahul

7-Dec-04 17:01

I am using a dynamic table with a hyperlink. When clicked, the clicked client name is displayed on the main page..
Confused | :confused:

How do u do the following? I have completed till the data is displayed on the
dynamic table***. But whn I click the hyperlink, the value is not posted to the main page. Its within the pop-up window. I dun know how to get the value from the pop up window to the main page..which is, the client Name..I am using the window.open method in javascript.

Qn given to me:
To search for client Name, click on Search. Search client pop up window will appeared. Able to search by client Name
Select ClientId ,Name from FEBClientTbl where Name LIKE '%" & searchText.text & "%' and Status= ‘ACTIVE’***
??? D'Oh! | :doh:

Select on the particular client Name, post the client Name and client Id back to the main page and close the pop up window
Display client Name on the page. Sigh | :sigh:

???

www.thehungersite.com

Re: pop up window..................

Dave Kreskowiak8-Dec-04 3:39

Dave Kreskowiak

8-Dec-04 3:39

Your question has nothing to do with Visual Basic.NET. You would be better served to post your question in the ASP.NET Forum.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Monitoring Print Jobs

branflake22677-Dec-04 15:43

branflake2267

7-Dec-04 15:43

What would be the best way to pause all incoming print jobs to a printer, and then start some code once the job is paused? For instance ask for user credentials before resuming print job.

Thanks Brandon
http://print-track.sourceforge.net

Re: Monitoring Print Jobs

Dave Kreskowiak8-Dec-04 3:37

Dave Kreskowiak

8-Dec-04 3:37

You can EASILY get around such security by just printing directly to the printer using IP Print. No print queues involved... In any case, the better way to do that is to rely on the security features of the O/S. BTW: A small job can still get printed before you have the opportunity to pause it.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

open notpad in program

WartHog0007-Dec-04 13:43

WartHog000

7-Dec-04 13:43

any one know how to open up notepad with a button click?

Re: open notpad in program

Colin Angus Mackay8-Dec-04 1:19

Colin Angus Mackay

8-Dec-04 1:19

Take a look at the Process[^] class. With that you can launch the Notepad application.

Do you want to know more?
WDevs.com - Member's Software Directories, Blogs, FTP, Mail and Forums

Re: open notpad in program

WartHog0008-Dec-04 4:08

WartHog000

8-Dec-04 4:08

okay looks like that will help a bunch.

thanks

Formless application's icon

Pablo.ar7-Dec-04 13:30

Pablo.ar

7-Dec-04 13:30

How can I set the icon of the .exe of my form-less app?
Pablo.ar

Re: Formless application's icon

The Man from U.N.C.L.E.8-Dec-04 3:02

The Man from U.N.C.L.E.

8-Dec-04 3:02

You can set the Icon in the Project Properties window under Common Properties/Build.

Incedentally you can use this to add an application icon to any project by changing the output type to windows application, set the icon, save the properties, then change the output type back to whatever it was before. I use this trick to set application icons for DLLs which can then use the icon in add/remove programs by referencing it in the installer package.

If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)

Re: Formless application's icon

Pablo.ar8-Dec-04 8:55

Pablo.ar

8-Dec-04 8:55

The Man from U.N.C.L.E. wrote:
You can set the Icon in the Project Properties window under Common Properties/Build.

I assume you mean that at that tab, there is a 'drop-down' list with all the available icons you can use... Well, in my FORM-LESS project, that list is empty! I suppose it is empty because none of the objects in the project have an 'Icon' property (actually, there is only ONE object, a .bas module).

Still needing help...
Best regards,
Pablo.ar

Re: Formless application's icon

The Man from U.N.C.L.E.10-Dec-04 0:48

The Man from U.N.C.L.E.

10-Dec-04 0:48

there are two ways to get icons into that list.

1) Add any icons to the project and set them to be Embeded Resources.
2) Use the Elipsis button next to the dropdown to browse for the required icon and add it to the project.

If you have knowledge, let others light their candles at it.
Margaret Fuller (1810 - 1850)

Format a Row in DataGrid

m_dhakshna7-Dec-04 10:25

m_dhakshna

7-Dec-04 10:25

Hi,

I am working on Datagrid and i am struggling to format a row in the datagrid to a currency formatting. Do any one know about it, please help me out.

Thanks & Regards

Dhakshna

Smile | :)

Smile
Never Makes an enemy
But Often
Makes A Friend

Re: Format a Row in DataGrid

Pablo.ar7-Dec-04 13:16

Pablo.ar

7-Dec-04 13:16

m_dhakshna wrote:
Hi,

I am working on Datagrid and i am struggling to format a row in the datagrid to a currency formatting. Do any one know about it, please help me out.

Are you sure you didn't mean 'column' instead of 'row'? Because I investigated the property page of the datagrid, and there is a tab named 'Format' where you can choose the format of a specified column.

Cheers,
Pablo.ar

Re: Format a Row in DataGrid

Anonymous7-Dec-04 16:30

Anonymous

7-Dec-04 16:30

Hi,

I am sure that i have to format a row and not a column.

Thanks & Regards

Dhakshna

Singleton Strongly-Typed Dataset?

Mark Farmiloe7-Dec-04 7:14

Mark Farmiloe

7-Dec-04 7:14

I appreciate the convenience of adding a dataset 'control' to my forms, but I would like to only have one set of this data in my app, not one set per form.
But if I reset the form dataset to point at the 'global' dataset, then I have to redo all the binding, which seems not only a bit of a drag, but also an indication that there must be a better way.
I have sort of achieved a singleton dataset using the following code, but I have hardly tested it and I'm not at all sure whether this is the correct way to go. So I thought I'd ask the gurus out there...

Imports System
Imports System.Data
Imports System.Runtime.Serialization
Imports System.Xml

<serializable(), system.componentmodel.designercategoryattribute("code"),=""
system.diagnostics.debuggerstepthrough(),="" system.componentmodel.toolboxitem(true)=""> _
Public Class SingletondsPop
Inherits dsPop 'My strongly-typed dataset (dsPop.xsd)

Private Shared mdsPop As dsPop

Public Shared ReadOnly Property dsPop() As dsPop
Get
Return mdsPop
End Get
End Property

Shared Sub New()
If mdsPop Is Nothing Then
mdsPop = New dsPop
End If
End Sub
End Class

Keypress mimic Mouse click

TAlvord7-Dec-04 5:59

TAlvord

7-Dec-04 5:59

Anyone know how to have a keypress mimic the mouse clicking on a button. i.e. I have a button with the number "1" on it. When I press the number 1 key, I would like the button "1" to go up and down like it was pressed with the mouse.

Thanks,
Tim

Reading/Writing large files

Zenly7-Dec-04 1:45

Zenly

7-Dec-04 1:45

Hi,

I would like to scan my filsystem and create a list of all files and directories which I will output to a file. I would then Like to read this file and manipulate it by replacing various strings that match a certain criteria.

The output from the directory list is over 200MB. Could you tell me what is the most ifficient way of reading/manipulating this file. I tried the following routine but it braught my system to a hault.

Function GoReadFileToString(ByVal lvFilePath As String)
Dim lvReadFileOut As String
If File.Exists(lvFilePath) = True Then
Dim fsStream As New FileStream(lvFilePath, FileMode.Open, FileAccess.Read)
Dim srReader As New StreamReader(fsStream)
lvReadFileOut = srReader.ReadToEnd
Replace(lvReadFileOut, "d:\directory1", "")
srReader.Close()
Return (lvReadFileOut)
End If

End Function

Thanks,

Re: Reading/Writing large files

Dave Kreskowiak7-Dec-04 3:52

Dave Kreskowiak

7-Dec-04 3:52

Since your using .ReadToEnd, yes, it will bring your system to a halt while the reader is busy filling RAM with 200MB of data. Any other solution will be slower, but will not hold Windows hostage until it completes:

Function GoReadFileToString(ByVal lvFilePath As String) As String()
    If File.Exists(lvFilePath) = True Then
        Dim Index As Integer = 0
        Dim lvReadFileOut() As String
        Dim fsStream As New FileStream(lvFilePath, FileMode.Open, FileAccess.Read)
        Dim srReader As New StreamReader(fsStream)
        Do While srReader.Peek > 0
            lvReadFileOut(Index) = srReader.ReadLine()
            Replace(lvReadFileOut(Index), "d:\directory1", "")
            Application.DoEvents()
        Loop
        srReader.Close()
        Return (lvReadFileOut)
    End If
End Function

But, why would you want to read 200MB of data anyway? Why not just create a class that wraps the file and opens it, reads it one line at a time PER CALL by the client using the class, does it's replace processing and then returns the line to the called. When the caller is done, it can call a Close method in your class to release the file. MUCH less RAM will be consumed using a process like this and you won't have to worry about the system dropping 200MB into the swap file.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.