|
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
|
|
|
|
|
'=======================================================================
' 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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
Can any one guide how to make Client Server application and about Remoting, sample will be a lot help
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
I am using a dynamic table with a hyperlink. When clicked, the clicked client name is displayed on the main page..
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’***
??? 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. ???
www.thehungersite.com
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
any one know how to open up notepad with a button click?
|
|
|
|
|
|
okay looks like that will help a bunch.
thanks
|
|
|
|
|
How can I set the icon of the .exe of my form-less app?
Pablo.ar
|
|
|
|
|
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)
|
|
|
|
|
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
|
|
|
|
|
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)
|
|
|
|
|
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
Never Makes an enemy
But Often
Makes A Friend
|
|
|
|
|
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
|
|
|
|
|
Hi,
I am sure that i have to format a row and not a column.
Thanks & Regards
Dhakshna
|
|
|
|
|
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
|
|
|
|
|
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
|
|
|
|
|
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,
|
|
|
|
|
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
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
