Click here to Skip to main content
15,910,471 members
Home / Discussions / Visual Basic
   

Visual Basic

 
GeneralRe: I am in Very bad position please Help (Runtime Error 430) Pin
Mekong River8-Dec-04 23:24
Mekong River8-Dec-04 23:24 
GeneralMailbox size Pin
Member 11070068-Dec-04 5:47
Member 11070068-Dec-04 5:47 
GeneralRe: Mailbox size Pin
Dave Kreskowiak8-Dec-04 7:07
mveDave Kreskowiak8-Dec-04 7:07 
GeneralRe: Mailbox size Pin
Member 11070068-Dec-04 7:10
Member 11070068-Dec-04 7:10 
GeneralRe: Mailbox size Pin
Dave Kreskowiak9-Dec-04 0:52
mveDave Kreskowiak9-Dec-04 0:52 
GeneralRe: Mailbox size Pin
Member 11070069-Dec-04 1:39
Member 11070069-Dec-04 1:39 
GeneralRe: Mailbox size Pin
Dave Kreskowiak9-Dec-04 4:39
mveDave Kreskowiak9-Dec-04 4:39 
GeneralRe: Mailbox size - here the solution Pin
Member 11070069-Dec-04 5:02
Member 11070069-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
GeneralRemoting:SoapClientFormatterSink Pin
gscloete8-Dec-04 4:30
gscloete8-Dec-04 4:30 
GeneralInteresting project Pin
jphuphilly8-Dec-04 4:12
jphuphilly8-Dec-04 4:12 
GeneralClient Server Pin
nitin_ion8-Dec-04 0:56
nitin_ion8-Dec-04 0:56 
GeneralXml help please Pin
Makniteasy7-Dec-04 19:39
Makniteasy7-Dec-04 19:39 
GeneralRe: Xml help please Pin
Dave Kreskowiak8-Dec-04 3:43
mveDave Kreskowiak8-Dec-04 3:43 
Generalpop up window.................. Pin
Coolshahul7-Dec-04 17:01
Coolshahul7-Dec-04 17:01 
GeneralRe: pop up window.................. Pin
Dave Kreskowiak8-Dec-04 3:39
mveDave Kreskowiak8-Dec-04 3:39 
GeneralMonitoring Print Jobs Pin
branflake22677-Dec-04 15:43
branflake22677-Dec-04 15:43 
GeneralRe: Monitoring Print Jobs Pin
Dave Kreskowiak8-Dec-04 3:37
mveDave Kreskowiak8-Dec-04 3:37 
Generalopen notpad in program Pin
WartHog0007-Dec-04 13:43
WartHog0007-Dec-04 13:43 
GeneralRe: open notpad in program Pin
Colin Angus Mackay8-Dec-04 1:19
Colin Angus Mackay8-Dec-04 1:19 
GeneralRe: open notpad in program Pin
WartHog0008-Dec-04 4:08
WartHog0008-Dec-04 4:08 
GeneralFormless application's icon Pin
Pablo.ar7-Dec-04 13:30
Pablo.ar7-Dec-04 13:30 
GeneralRe: Formless application's icon Pin
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 
GeneralRe: Formless application's icon Pin
Pablo.ar8-Dec-04 8:55
Pablo.ar8-Dec-04 8:55 
GeneralRe: Formless application's icon Pin
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 
GeneralFormat a Row in DataGrid Pin
m_dhakshna7-Dec-04 10:25
m_dhakshna7-Dec-04 10:25 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

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