I Found an easy way to communicate in VB6 form and applications Ex. Project1.exe communicate with Project2.exe

Goodmorning all ...

I was trying to find a fast and easy way to make communication thrue VB6 forms or applications

This is how i try and make the applications ... 2 examples first with mswinsock and second with Linkmode

Now for the Server application (project1.exe)

the code for winsock:

on form load

Winsock1.LocalPort = 15000
Winsock1.Listen

in a timer with 1000ms interval:

Dim www
If Check5.Value = 1 Then
www = "1"
Else: If Check5.Value = 0 Then www = "11"
End If
Winsock1.SendData www'''sends the data to the host (11)

on winsock connection :

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID

Text1(2).Text = "Board 1 Connected On Address 00FF"

Label19.Visible = False
Timer18.Enabled = True
Check5.Enabled = True
Check6.Enabled = True
Check7.Enabled = True
Check8.Enabled = True
Check9.Enabled = True
Check10.Enabled = True
Check11.Enabled = True
Check12.Enabled = True
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strmsg
If strmsg = "1" Then
'Check5(0).Value = 1
Else
'Check5(0).Value = 0
End If
End Sub

Private Sub Winsock1_Close()
Timer18.Enabled = False
Check5.Enabled = False
Check6.Enabled = False
Check7.Enabled = False
Check8.Enabled = False
Check9.Enabled = False
Check10.Enabled = False
Check11.Enabled = False
Check12.Enabled = False
Text1(2).Text = "Board 1 Is Disconnected"

Label19.Visible = Not Label19.Visible
Winsock1.Close
Winsock1.Listen

End Sub

Now for the Host application (project2.exe)

Private Sub Timer3_Timer()
On Error Resume Next
Winsock1.Connect "127.0.0.1", 15000
Timer3.Enabled = False
End Sub

Private Sub Check1_Click()
Dim www
On Error Resume Next
If Check1.Value = 1 Then
www = "1"
Else
www = "0"
End If
Winsock1.SendData www 'Text2.Text
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Me.Caption = "Connected to " & Winsock1.RemoteHostIP
Beep
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strmsg
Text2.Text = strmsg
Me.Caption = strmsg
End Sub

Now . For the link mode i write the code below

first create 2 folders putting in each a form

name folder 1 as serv and the second as clien

name in clien folder the form1 to aa and in serv folder the form1 to bb

create in each form aa and bb a new text Exp... Text1 in form aa and text1 in form bb

in the aa form go to text1 properties go to linkitem and put the name of the link text , in this case text1(in the other form bb)

and in linktopic name the other form(again bb so it wil be project1/bb)

on form load in the 2 forms(aa and bb) put Text1.LinkMode = 1

make the same in all forms (link text with linkmode )

and compile the application.

every time you type in aa form's text1 your input will transfer to bb form's text1 in real time

. today i working also in another way to communicate 2 or more applications using the registry and homemade service i build

last night .

hope to help . i have the code so if u like send me email and i will forward it to u..

Reply:

eftychios2011@gmail.com

------------------------------------

I Found an easy way to communicate in VB6 form and applications Ex. Project1.exe communicate with Project2.exe

Goodmorning all ...

I was trying to find a fast and easy way to make communication thrue VB6 forms or applications

This is how i try and make the applications ... 2 examples first with mswinsock and second with Linkmode

Now for the Server application (project1.exe)

the code for winsock:

on form load

Winsock1.LocalPort = 15000
Winsock1.Listen

in a timer with 1000ms interval:

Dim www
If Check5.Value = 1 Then
www = "1"
Else: If Check5.Value = 0 Then www = "11"
End If
Winsock1.SendData www'''sends the data to the host (11)

on winsock connection :

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID

Text1(2).Text = "Board 1 Connected On Address 00FF"

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strmsg
If strmsg = "1" Then
'Check5(0).Value = 1
Else
'Check5(0).Value = 0
End If
End Sub

Label19.Visible = Not Label19.Visible
Winsock1.Close
Winsock1.Listen

End Sub

Now for the Host application (project2.exe)

Private Sub Timer3_Timer()
On Error Resume Next
Winsock1.Connect "127.0.0.1", 15000
Timer3.Enabled = False
End Sub

Private Sub Check1_Click()
Dim www
On Error Resume Next
If Check1.Value = 1 Then
www = "1"
Else
www = "0"
End If
Winsock1.SendData www 'Text2.Text
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Winsock1.GetData strmsg
Text2.Text = strmsg
Me.Caption = strmsg
End Sub

Now . For the link mode i write the code below

first create 2 folders putting in each a form

name folder 1 as serv and the second as clien

name in clien folder the form1 to aa and in serv folder the form1 to bb

create in each form aa and bb a new text Exp... Text1 in form aa and text1 in form bb

in the aa form go to text1 properties go to linkitem and put the name of the link text , in this case text1(in the other form bb)

and in linktopic name the other form(again bb so it wil be project1/bb)

on form load in the 2 forms(aa and bb) put Text1.LinkMode = 1

make the same in all forms (link text with linkmode )

and compile the application.

every time you type in aa form's text1 your input will transfer to bb form's text1 in real time

. today i working also in another way to communicate 2 or more applications using the registry and homemade service i build

last night .

hope to help . i have the code so if u like send me email and i will forward it to u

Error in XSLTListView WebPart

Hi,

I am trying to edit a XSLTListView web part in sharepoint designer 2010, but it shows me an error on the web part that "This web part does not have a valid XSLT style sheet: The referenced file .../_layout/xsl/main.xsl does not exist or you do not have permission to access it. "

It does not show any error in browser while viewing it.

I verified main.xsl file exist on ther server under the same path. I am a site collection administrator and tried using farm admin account as well; nothing seems to work. I am modifying it from a remote machine not from server (local).

Thanks in advance for any help :)

Regards

Brajesh

Reply:

Hi Brajesh,

What xslt you are trying to edit.? try to open that xslt in IE, if there is any error it will tell you the error.

Regards

Ramesh

------------------------------------
Reply:

Hi Ramesh,

Thanks for your reply.

I can view ../_layouts/xsl/main.xsl in the IE without any error.

I am not trying to edit any xslt; I am editing a XSLTListView web part in sharepoint designer 2010.

What I did:

1. Dropped a document library on a site page.

2. Trying to edit a column of the XSLTListView web part in Sharepoint designer 2010.

I am not able to even view the web part when I open the page in designer. It just shows the error. It is not showing any error in the browser.

Regards

Brajesh

------------------------------------
Reply:

This is exactly the problem I am having. Did you ever find an answer? Thanks.

------------------------------------

Bug in Wake Timers when RTC is set to UTC

The registry key HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\TimeZoneInformation\RealTimeIsUniversal when set to the DWORD value = 1 indicates that the RTC is set to UTC.

This works properly, in that Windows 7 correctly sets the time according to the Time Zone information provided, except that apparently the WAKE TIMERS (powercfg -waketimers) are not configured properly and will wake up the computer at the wrong time or not at all (if, for example, the wake time has already passed in UTC terms).

I would appreciate it if Microsoft would address this issue in a patch very soon.

Changed type Miya Yao Monday, December 19, 2011 8:35 AM

Reply:

Please submit the feedback to the product team: http://mymfe.microsoft.com/Windows%20%207/Feedback.aspx?formID=195

Regards,

Miya

Miya Yao

TechNet Community Support

------------------------------------
Reply:

Okay. I have submitted this feedback to the product team.

Is there a mechanism for submitting bug reports rather than general feedback? I imagine that the product team receives a large number of feedback comments, not all of which will be bug reports.

Also, is there any estimate about how long it takes the product team to review and fix a bug and then issue a patch that addresses the problem?

Thanks for your help.

Regards,

Najeeb Anwer

------------------------------------

☛☞‽ⒽⓄⓌ ⓉⓄ‽ ⒻⓁⒶⓌⓁⒺⓈⓈ IE☜☚ ❖Solution Thread ❖ ✉Please Read✉

Microsoft™

" Lets make the backspace key the one you use to edit and delete text and also macro it to reset the entire page and piss off the person who just spent hours writing up that blog... yah that sounds genius I am sure Apple can't think of anything better :D"

- Windows Team™

Reply with your thoughts and let me know if you agree that the macro needs to be changed so the world doesn't have a bunch of pissed off forum admin and bloggers.

Edited by The Smartest Person Ever Friday, December 16, 2011 8:12 AM

Configuring Updates Step 3 of 3 - 0% Complete

FYI for anyone who is installing Vista SP1 - I just installed it on one of my machines, and after the initial reboot, the machine hung at "Configuring Updates Step 3 of 3 - 0% Complete" indefinitely. No disk access...no sign of life. After reading the posts in another thread, I rebooted with the intention of doing a system restore. To accomplish this, I booted into Safe mode. Immediately upon booting into safe mode, the upgrade continued as if nothing had happened, and has since installed itself perfectly.

Thought I'd pass it on in case it helps out anyone else.

Reply:

How did you get to safe mode? It's not a choice on my machine.

------------------------------------
Reply:

I pressed the power button while it was on the "Configuring Updates Step 3 of 3 - 0% Complete" screen - did a hard reset. When it came back up, windows recognized that it didn't shut down properly, and gave me the option to boot in safe mode.

------------------------------------
Reply:

i tried doing that too, and even in safe mode, it still goes to the "configuring updates step 3 of 3..."

help please!

------------------------------------
Reply:

You only get one chance of doing that and it also has to be done at the right time. Try Disconnecting all USB devices Fire Wire cards, Boost stick etc, then turn off antivirus spyware, etc sometimes even the video card has to be removed and also in the Bios turn off boot USB

------------------------------------
Reply:

I tried the SAME thing--my machine wouldn't even come up in safe mode!!! I have a Toshiba restore disk...does anyone know if I'd be able to boot from that?

------------------------------------
Reply:

Hello

I still need more log files for the investigation that we are doing:

If people are running into this can you send me the log files.

Can you send me some of the log files from the system?
    %windir%\logs\cbs\*.*
    %windir%\WindowsUpdate*.log
    %windir%\inf\setupapi.dev.log
    %windir%\winsxs\poqexec.log (if exists)
    %windir%\winsxs\pending.* (if exists)
    %windir%\Performance\WinSAT\Datastore\*.*
    %windir%\System32\winevt\Logs\application.evtx
Try booting to the Windows Vista DVD, choose the repair option in the lower
left-hand corner.
Choose to boot to a CMD prompt, copy the log files to a temp folder (or
onto removable media if available)

while in the repair more after copying the files to a temp location, you
should be able to choose the system restore option.
This should get you back operational.
Then send me the log file.
Remove the online section from the email name listed here before sending darrellg@online.microsoft.com.

This is the blog on the issue:

http://windowsvistablog.com/blogs/windowsvista/archive/2008/02/19/update-on-windows-vista-sp1-prerequisite-kb937287.aspx

Thanks,
Darrell Gorter[MSFT]

This posting is provided "AS IS" with no warranties, and confers no rights

------------------------------------
Reply:

Same issue on my Dell laptop. It was sitting at 0% for a couple hours. I just left it on an went to bed. In the morning laptop was greeting me with the logon screen.

I checked the version in computer properties, it said SP1. Then during shut down it got stuck for another hour or so with no apparent disk activity, saying "Configuring Updates" or something like that. After that everything seems OK.

------------------------------------
Reply:

Just got off the phone with a microsoft advanced tech. He had me
rename c:\windows\winsxs\pending.xml to c:\windows\winsxs\pending.old.
I used a Windows Vista reinstallation DVD from another system to boot
my problem PC. Then I tried unsucessfully to get Vista to either
correct the problem or go back to a previous working state. When these
options did not work the tech had me go to a COMMAND prompt and rename
the pending.xml file. Once this file was renamed I was able to get to
my desktop, however since we know from the message displayed
"configuring updates: stage 3 or 3" my machine has already been
through 2 stages and therefore I have aborted a partially completed
process. It is anyone guess what consequences will result from having
part of this service pack installed/configured. So I will proceed with
my use of this now "working" machine cautiously and I advise you do
the same. Clearly, more must be done to complete this "FIX."

------------------------------------
Reply:

I tried all the available options via the thread. None seem to be working very well for me. I have a brand new Dell D630 with Vista Enterprise Installed. I am persistently stuck with "Configuring Updates Step 3 of 3 - 0% Complete"

Do I need to speak with someone at Dell, or is there someone at Microsoft that can help me out?

Matthew J. Moalem

Dir. Global Alliances-Microsoft

972.523.2244 Mobile

matthewm@newsgator.com

------------------------------------
Reply:

I encountered this problem on Friday and wound up losing all the data on my computer. I do not know what the actual solution is, but I do recommend to everyone that they DO NOT call technical support. They offered NO support for this issue and as a result all my data was lost. No one cared.....

------------------------------------
Reply:

MGMiller wrote:

All of the updates specifically state that you should back up your data before applying the update. I think it's a bit harsh to say that your data loss was tech support's responsibility - SOP is to back up all of your data before applying an update. And generally speaking, though I'm not an OS expert, most data can be recovered via boot utilities such as Symantec Ghost.

I would STRONGLY suggest backing up all important data before applying any OS service packs - there are a million possible system configurations out there, and the OS manufacturer (in this case, Microsoft), can't possibly test it against every configuration.

------------------------------------
Reply:

My computer has been stuck on Step 3 of 3 for almst two weeks now. I have called acer, microsoft, and geeksquad. no one seems so be able to help me.

My laptop will startup, get stuck on the 3 of 3 page for about 30 to 45 seconds then shut its self down. then after about 10-20 seconds start up again and go through this all again....over and over and over....for two weeks. after the first two days I just took the battery out and would put it back in once a day to see if it would work. it hasnt.

I am a sr in high school and my sr paper is on there and I have to turn that in in one week. I was stupid and didnt make another copy of it. I need access to my computer.

Someone please help me!!!!!

------------------------------------
Reply:

Turn your computer on. Press F11 and choose system restore if that is available. The PC will restore the system to the last functional save point and you´ll be able to use the PC normally. If you a have a recent PC i think that option (system restore) is there.

I had the same problem installing vista service pack. Tried 2 times from windows update and one time using the standalone pack and no luck.

Don´t try to install SP1 again untill Microsoft solves the problem.

------------------------------------
Reply:

It's true that Microsoft can't test every possible configuration. But they better test a configuration that over half a million users are using dear Microsoft fanboy. Their new pathetic user usability, and continuous failures have convinced me to switch to linux.

------------------------------------
Reply:

Just to say - thanks very much for the F11 tip - worked a treat.

------------------------------------
Reply:

Hello Matthew,

Please use the following solutions I have developed.
Your computer should be working again.

Restart computer press F8 the choose option restore computer
Choose option; open command
type: prompt winsxs (press enter)
type: move C:\windows\winsxs\pending.xml text.xml (press enter)
type: exit and restart computer,
Computer should be working again.

Hope it works for you. best regards from Pieter from the netheralnds.

------------------------------------
Reply:

I have the same problem with Server 2008. I have two different installations and both have exibited this behavior. Both are in constant heavy use and cannot be down for more than 15 minutes at a time. I sure hope they fix this one soon, I am ready to move back to Server 2003. The Linux boys are having a field day with this. One installation is 64 bit and the only apps running are 64 bit SQL Server and managed Symantic AV client. The other is a Sharepoint Server. It has gotten to the point where 50% of the time when I patch it gets hung.

Len

------------------------------------
Reply:

good luck talking with some one at dell...maybe after three hours on hold.

------------------------------------
Reply:

Pieter from Netherlands - I wanted to thank you very much for your simple solution to this vexing problem. I was faced with it today and it was very troubling until I came to your post.

Best regards - Chris from MN

------------------------------------
Reply:

I have been trying to fix the configuring 3 of 3-0% I have tried all modes on my computer. Pressing f8. I tried safe mode or safe with networking, I start up using last normal start up. Itried normal, I tried boot, I tried windows diagnostics I cannot get to an open command. There is a safe mode with command, just goes back to same thing. Round and Round. I my laptop finished? I don't have a vista cd/dvd, did not come with my computer

Thanks for your help

Linda

------------------------------------
Reply:

Did not work for me. Help! I have very important emails and data, and I don't want to lose them.

------------------------------------
Reply:

All Aaron was trying to say is if you don't have enough common sense to back up your information before such installs, then maybe instead of switching to Linux you should switch to a calculator!!!

------------------------------------
Reply:

Thank you very much. Worked for me. Saved a lot of time and aggravation. David Thurlow (Maine,USA)

------------------------------------
Reply:

Thank you very much

pieterkoster

. Worked for me. Saved a lot of time and aggravation. David Thurlow (Maine,USA)

------------------------------------
Reply:

F11 Tip worked great! Thanks so much for your help!!!

------------------------------------
Reply:

THANK YOU THANK YOU THANK YOU i dont know if this will work for everyone but it worked for me THANK YOU....

------------------------------------
Reply:

your welcome miss lisa 87.

pieter

------------------------------------
Reply:

Hello Matthew,

Please use the following solutions I have developed.
Your computer should be working again.

Restart computer press F8 the choose option restore computer
Choose option; open command
type: prompt winsxs (press enter)
type: move C:\windows\winsxs\pending.xml text.xml (press enter)
type: exit and restart computer,
Computer should be working again.

Hope it works for you. best regards from Pieter from the netheralnds.

Thanks so much ... I just escaped the painful scenario, http://twitter.com/dantejarabelo/status/23034015148

------------------------------------
Reply:

Hi, I purchase a Dell last month. It worked normally. It started quickly, no mssg at all. Then after 3 weeks, it comes with:

"Configuring Windows updates, 0% complete, do not turn off your computer" It runs about 8 minutes, then disapears. Any one can help? Tanks a lot!

When I check the Version of my Dell, it displays the following info:

Title      : System Utilities:Dell Platform Factory Install Component Utility
Version    : A00
OEM Name   : Dell
OEM Ver    : 1.0.1
Computers : Inspiron Desktop - 570
Oses       : Windows 7 64-bit Home Basic, Windows 7 64-bit Home Premium, Windows 7 64-bit Professional, Windows Vista 64-bit Business, Windows Vista 64-bit Home BasicWindows Vista 64-bit Home PremiumWindows Vista 64-bit Ultimate
Languages : Brazilian Portuguese, Chinese-S, Chinese-T, English, French, German, Italian, Japanese, Korean, Spanish
Created    : Tue Jan 5 00:23:00 CST 2010

Mine is Windows 7 64-bit Home Premium.

------------------------------------
Reply:

So just the other day my internet wasn't working and my whole computer just froze. I couldn't turn it off properly so I just pushed the power button. I gave it a few minutes then turned it back on and when to the whole configuring updates nonsense. I waited about thirty minutes and it was still at 0%. So I turned it off again, and waited another four hours, during that time it would turn on and off about every 30 secs. The same process over and over again. I searched on forums and they told me to do safe mode and what not, didn't work for me. I tried the f11 and f8 didn't work, but then again I don't know at what moment I should be pressing those buttons. I do online high school and I'm a Junior and all my class work is on there which I have yet to turn in. I need to access my computer so I can continue my work and turn what I have done in. So please please someone reply and help me out:/

thank you!

------------------------------------
Reply:

Pieter - Thank you, thank you, thank you. I encountered this problem on Friday and thought I was going to lose a number of photos/documents I had not backed up on my laptop. Laptop came pre-loaded so I didn't have an installation disk just a Recovery disk that I was reluctant to put in. I tried System Restore, Start up repair and Safe Mode suggestions but nothing worked. Tried your suggestion this afternoon and it worked perfectly. Thanks again. Janet

------------------------------------
Reply:

OH my god !!! this work for me. I'll like to thanks you very much man you don't know how i'm happy now thanks again and sorry for my english :p

------------------------------------
Reply:

I have the exact same problem. I turn on the laptop, it acts like its gonna work normally, it gets to the part right before the sign in and BAM!,

"Configuring Updates: Stage 3 of 3 - 0% completed

Do not turn off your computer."

And then after about 8 minutes it goes straight to 100%. Then it shuts down and does the whole thing over again 5 minutes later. I have a Dell Inspiron 1501 with Windows Vista Home premium. I never downloaded a SP1. All these things don't work only for this simple reason... My laptop only give you a choice of F2 or F12. F2 is Setup and F12 is Multiboot Setup Menu.

PLEASE HELP ME!!!!!!!!!!!!!!!!!

And I have none of the backup CDs

------------------------------------
Reply:

Hello Matthew,

Please use the following solutions I have developed.
Your computer should be working again.

Restart computer press F8 the choose option restore computer
Choose option; open command
type: prompt winsxs (press enter)
type: move C:\windows\winsxs\pending.xml text.xml (press enter)
type: exit and restart computer,
Computer should be working again.

Hope it works for you. best regards from Pieter from the netheralnds.

Thank you Pieter :). It worked fine for me too.

I've used this Vista recovery disc to get into command prompt (and do what Pieter suggests): http://www.vistax64.com/tutorials/141820-create-recovery-disc.html

------------------------------------
Reply:

Hi Linda,

I'm in the same boat you were in....Tried everything and don't have the VISA DVD. Were you able to resolve this issue? If so how.

Thanks

------------------------------------
Reply:

This worked for me and saved my computer from being thrown out into the snow. Thank you sooooo much.

from Prince George, BC

------------------------------------

Error 9045 - MSExchange Assistants

Hello, I am getting every 30 minutes this error in Application log:

Zdroj: MSExchange Assistants

Datum: 12.12.2011 10:56:26

ID události: 9045

Kategorie úlohy:(1)

Úroveň: Upozornění

Klíčová slova: Klasické nastavení

Uživatel: Není k dispozici

Počítač: EXMAIL.ha-veldom.local

Popis:

Service MSExchangeMailboxAssistants. The assistant Junk E-mail Options Assistant stopped processing database Mailbox Database Exmail (0dbae771-869a-4984-a5c5-7473bb8fb7cd) because the database is in an unhealthy state.

I tried following.

get-mailboxdatabasecopystatus
test-servicehealth
Test-ExchangeSearch

Each test was alright. Any ideas ?

Reply:

You can delete and recreate your mailbox.

Please refer to

http://social.technet.microsoft.com/Forums/en-US/exchangesvrclients/thread/a7154ff5-c151-4a1a-9434-3c7b0f000376/

Cheers

Zi Feng

------------------------------------
Reply:

Hi,

I read this topic, but i do not know which mailbox is in incorrect state.

Pavel

------------------------------------
Reply:

Due to I can not read the language you post, I suggest you first find the user on the Application log in your language, and then use a EMS command

Get-Mailboxstatistics -id <User> to define which mailbox is incorrect.

Cheers

Zi Feng

------------------------------------
Reply:

I can translate the log.

Source: MSExchange Assistants

Date: 12.12.2011 10:56:26

Event ID: 9045

Task Category: Assistants

Level: Warning

Keywords: Classic

User: N/A

Computer: EXMAIL.ha-veldom.local

Description:

I tried find another log, which give me some information about incorrect mailbox and user, but i did not find anything.

Any other idea (what can I test or try)

------------------------------------
Reply:

Please Change it to Expert and have a look again .

Cheers

Zi Feng

------------------------------------
Reply:

I tuned on Expert log and now i have four log (from one) for this issue, but I still do not see user.

In one LOG a see this: Active Directory User not found.

Here is log:

Název protokolu:Application  Source: MSExchange Assistants  Date: 15.12.2011 15:34:48  Event ID: 9041  Kathegory:(1)  Level: Upozornění  Keywords: Klasické nastavení  User: Není k dispozici  Computer: EXMAIL.ha-veldom.local  Description:  Service MSExchangeMailboxAssistants. An exception has been thrown: Microsoft.Exchange.Assistants.DisconnectedMailboxException: An exception which indicates the mailbox is disconnected. ---> Microsoft.Exchange.Data.Storage.ObjectNotFoundException:   Active Directory User not found.   v Microsoft.Exchange.Data.Storage.ExchangePrincipal.<>c__DisplayClass10.<FromLocalServerMailboxGuid>b__f()   v Microsoft.Exchange.Data.Storage.ExchangePrincipal.DoAdCallAndTranslateExceptions(AdSearchCall call, String methodName)   v Microsoft.Exchange.Data.Storage.ExchangePrincipal.FromLocalServerMailboxGuid(ADSessionSettings adSettings, Guid mdbGuid, Guid mailboxGuid)   v Microsoft.Exchange.Data.Storage.ExchangePrincipal.FromLocalServerMailboxGuid(Guid mdbGuid, Guid mailboxGuid)   v Microsoft.Exchange.Assistants.MailboxDispatcher.<LoadMailboxOwner>b__1()   v Microsoft.Exchange.Assistants.MailboxDispatcher.<>c__DisplayClass5.<InvokeAndMapException>b__3()   ---End of stack trace for the inner exception ---   v Microsoft.Exchange.Assistants.Util.TraceAndThrow(CatchMe function, AIException aiException)   v Microsoft.Exchange.Assistants.Util.CatchMeIfYouCan(CatchMe function)   v Microsoft.Exchange.Assistants.Base.CatchMeIfYouCan(CatchMe function)

------------------------------------
Reply:

I studied carefuly LOGs and find another which give me GUID of mailbox

Service MSExchangeMailboxAssistants. Unable to open a session to mailbox 21fac8b2-2995-4e05-b98b-c519e7182358 on database Mailbox Database Exmail (0dbae771-869a-4984-a5c5-7473bb8fb7cd). The following exception caused the failure: Microsoft.Exchange.Assistants.DisconnectedMailboxException: An exception which indicates the mailbox is disconnected. ---> Microsoft.Exchange.Data.Storage.ObjectNotFoundException: Active Directory User not found.

I tried Get-Mailbox -Identity 21fac8b2-2995-4e05-b98b-c519e7182358 but Exchange could not found mailbox.

------------------------------------
Reply:

May be you can try the command Get-MailboxDatabase to have a look.

Cheers

Zi Feng

------------------------------------

CAPI2 and System Writer

I have been unable to get out Windows Server 2008 R2 x64 server to backup successfully. I have followed several other posts using the Takeown command to change permissions in certain folders to no avail. Attached are the events from the Event Viewer:

Cryptographic Services failed while processing the OnIdentity() call in the System Writer Object.

AddCoreCsiFiles : GetNextFileMapContent() failed.

System Error:

The parameter is incorrect.

and

The backup operation that started at '‎2011‎-‎12‎-‎15T16:15:12.051138300Z' has failed with following error code '2155347997' (The operation ended before completion.). Please review the event details for a solution, and then rerun the backup operation once the issue is resolved.

and

In the Backup logs it states that the system writer was not found in the backup.

If you have any further ideas I would be most appreciative.

Reply:

hi，

this is an issue had been discussed in this thread.

http://social.technet.microsoft.com/Forums/en-US/windowsbackup/thread/ce9a3963-7e5a-41ad-8319-3a688979f316

Please remember to click "Mark as Answer" on the post that helps you, and to click "Unmark as Answer" if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.

------------------------------------

How to make folders and reports appear in detail as default rather than tile

Want to be able to set detail as default for folders and reports in folders for rs website

sqlserver 2008 R2

reporting services 2008

Edited by ghw123 Friday, September 30, 2011 2:24 AM

Reply:

I asked precisely the same question myself a while ago - the answer is it cannot be done.

http://social.msdn.microsoft.com/Forums/ar/sqlreportingservices/thread/6a68a02f-3776-40eb-84fa-2cc266237c92

Josh Ash

------------------------------------

Parsing XML into SQL Server

I am new to XML, please help me with following question.

Here is my sample XML,(The XML is stored in SQL table with XML data type)

- <Product>

- <Productset>

- <list>

<Name>Reynolds</Name>

</list>

- <list>

<Name>Parker</Name>

</list>

</Productset>

</Product>

I need to parse this to get Product|TypeID|Name|TypeP|Date

Eg :

Pen|T1|Reynolds|Ball|2011.11.11

Pen|T1|Parker|Ball|2011.11.11

Here the same prodcut type will have different product set. And an XML field will have more than 500 records like this.

Edited by rens_bi Wednesday, December 14, 2011 5:06 AM

Reply:

Try something like the following, you can test this out on your larger Xml fragment to make sure it doesn't miss anything, also note that I have formated the date field as datetime but you may want to change this back to varchar, also double check the varchar field lengths are sufficient for your data...

  declare @xml xml =   '	<Product>  		<typeID>T1</typeID>  	 <name>Pen</name>  		<Productset>  			<list>  				<Name>Reynolds</Name>  				<TypeP>Ball</TypeP>  				<date>2011.11.11</date>  			</list>  			<list>  				<Name>Parker</Name>  				<TypeP>Ball</TypeP>  				<date>2011.12.11</date>  			</list>  		</Productset>  	</Product>'    Select   	tblShredd.ProductsCollection.value('./name[1]', 'varchar(50)') As Product,  	tblShredd.ProductsCollection.value('./typeID[1]', 'varchar(50)') As TypeID,  	tblShreddList.ProductsetCollection.value('./Name[1]', 'varchar(50)') As Name,  	tblShreddList.ProductsetCollection.value('./TypeP[1]', 'varchar(50)') As TypeP,  	tblShreddList.ProductsetCollection.value('./date[1]', 'datetime') As [Date]  From  	@xml.nodes('//Product') as tblShredd(ProductsCollection)  	outer apply  			@xml.nodes('//Product/Productset/list') as tblShreddList(ProductsetCollection)

Thanks

/Neil Moorthy - Senior SQL Server DBA/Developer (MCITP (2005/2008), MCAD, ITILv3, OCA 11g) Please click the Mark as Answer button if a post solves your problem

------------------------------------
Reply:

It worked good for me , thanks..

actually the XML is in an SQL table as a text field along with other fields , like ID|SentDate|UserID|XML ..

so the parsed output should be associated with other columns also.. could you please extend your help here too.

------------------------------------
Reply:

Try this example:

  DECLARE @t TABLE ( rowId INT IDENTITY PRIMARY KEY, sendDate DATETIME DEFAULT GETDATE(), userId INT DEFAULT SUSER_ID(), yourXML XML )    INSERT INTO @t ( yourXML )  VALUES (  '<Product>   <typeID>T1</typeID>   <name>Pen</name>   <Productset>   <list>   <Name>Reynolds</Name>   <TypeP>Ball</TypeP>   <date>2011.11.11</date>   </list>   <list>   <Name>Parker</Name>   <TypeP>Ball</TypeP>   <date>2011.12.11</date>   </list>   </Productset>  </Product>'  )    INSERT INTO @t ( yourXML )  VALUES (  '<Product>   <typeID>T99</typeID>   <name>X</name>   <Productset>   <list>   <Name>Smith</Name>   <TypeP>y</TypeP>   <date>2011.12.31</date>   </list>   <list>   <Name>a</Name>   <TypeP>b</TypeP>   <date>2011.04.01</date>   </list>   </Productset>  </Product>'  )    SELECT   	t.rowId,   	t.sendDate, t.userId,  	p.c.value('(name/text())[1]', 'VARCHAR(100)' ) AS productName,  	p.c.value('(typeID/text())[1]', 'VARCHAR(100)' ) AS productId,  	l.c.value('(Name/text())[1]', 'VARCHAR(100)' ) AS productSetName,  	l.c.value('(TypeP/text())[1]', 'VARCHAR(100)' ) AS productSetTypeP  FROM @t t  	CROSS APPLY t.yourXML.nodes('Product' ) p(c)  		CROSS APPLY p.c.nodes('Productset/list') l(c)

------------------------------------

guitar +windows 7 line in settings

how can i use my guitar to hear sound out of my speaker?i have tried all line-in settings but am not able to do it

what shud i do?

Reply:

Hi,

You need refer to your guitar manual to configure settings.

Alex Zhao

TechNet Community Support

------------------------------------
Reply:

This is a function of your soundcard and it's mixer, not your guitar.

------------------------------------

Please help me understand some parts of this array function?

This is out of Jon Walkenbach's book "Excel 2000 forumulas" (page 354 - Returning Non-Blank Cells From a Range). I'm using Excel 2007, but it's working as designed.

=IF(ISERR(SMALL(IF(L10:L17<>"",ROW(INDIRECT("1:"&ROWS(L10:L17)))),ROW(INDIRECT("1:"&ROWS(L10:L17))))),"",INDEX(L10:L17,SMALL(IF(L10:L17<>"",ROW(INDIRECT("1:"&ROWS(L10:L17)))),ROW(INDIRECT("1:"&ROWS(L10:L17))))))

Part 1:
IF(L10:L17<>"",ROW(INDIRECT("1:"&ROWS(L10:L17))))
-- L10:L17<>"" is the logical test
-- ROW(INDIRECT("1:"&ROWS(L10:L17))) is the value if true
and then there's just another ) without a value if false.

Can you get away with this only in an array formula? Or is this a secret for leaving a cell NULL if the return is false?

Part 2:
INDIRECT("1:"&ROWS(L10:L17)
I don't understand how this is returning a cell reference. "1" would appear to be the column?? Because the rest of the expression is returning a row number?? Or is this a returning an array reference - "column 1 and _this_ row"?

Part 3: The whole INDEX function is like the IF function of Part 1
According to HELP, it's supposed to require a reference and a row, but we apparently have a reference and an empty parenthesis??

If anyone can help me learn what's going on, I'd greatly appreaciate it.
Ed

Edited by Ed_from_AZ Wednesday, September 14, 2011 6:08 PM
Changed type Daisy Cao Thursday, September 22, 2011 7:57 AM discussion

Reply:

This formula is designed to return a list of the non-blank cells in a range.

Part 1:
IF(L10:L17<>"",ROW(INDIRECT("1:"&ROWS(L10:L17))))
-- L10:L17<>"" is the logical test
-- ROW(INDIRECT("1:"&ROWS(L10:L17))) is the value if true
and then there's just another ) without a value if false.

Can you get away with this only in an array formula? Or is this a secret for leaving a cell NULL if the return is false?

You can use this in any formula. The "IF" returns a #VALUE error if the condition is false and the false part is empty. The "IF(ISERR" then comes into play, selecting the true condition for that IF statement, since the other one returned an error.

Part 2:
INDIRECT("1:"&ROWS(L10:L17)
I don't understand how this is returning a cell reference. "1" would appear to be the column?? Because the rest of the expression is returning a row number?? Or is this a returning an array reference - "column 1 and _this_ row"?

"ROWS(L10:L17)" always equals the count of rows, which is 8, making the formula 'INDIRECT("1:8")', which returns rows 1 to 8. When evaluated in an array formula, it is an array input to the array formula, so each element of the formula will see the appropriate 1, 2, 3, 4, etc. This is a tricky way to get the series of numbers from 1 to n for an array formula.

The "INDIRECT" function lets you specify a cell address indirectly. By using quotation marks around the numbers, they will never change when the formula is moved or copied or rows are inserted, which can happen even if your cell reference uses "$" to fix the reference. Taking the "ROW" of the "INDIRECT" returns a single row number and the column isn't needed because it references the entire row.

Part 3: The whole INDEX function is like the IF function of Part 1
According to HELP, it's supposed to require a reference and a row, but we apparently have a reference and an empty parenthesis??

The second parameter to the "INDEX" function is the "SMALL" function. The array formula steps through the non-blank elements of the array one-by-one. Blank elements will not have an index number so the "SMALL" function will skip over them, returning only those that are non-blank.

____________ Rick

Edited by CPU Architect Thursday, December 15, 2011 9:35 PM

------------------------------------

How to embed SQL Server 2008 Express in my application's msi installer

Hi, I am writing a C# application using Visual Studio, which sits on a SQL Server Express 2008 database. My customers are IT layman who don't know what "database" means. So I need to give them just one MSI installer, and they double click it, then press "OK", "OK", "OK", and done!

I found a few links talking about how to install SQL Server Express from command line or using config files, but they don't help. All I know is how to start a Visual Studio setup project. I need to know from there how to bundle the installation of SQL Server Express.

Thanks!

Reply:

Up.

Want to know also.

------------------------------------
Reply:

The simple answer is that you can't do that. To install SQL Server Express embedded into an application you need a setup chainer (a program that orchestrates the installation of the app and its dependencies). Have you looked at ClickOnce Bootstrapper in Visual Studio 2010? It will build such a chainer for you with a single click:

http://msdn.microsoft.com/en-us/library/t71a733d(v=VS.100).aspx

Thanks,

Krzysztof Kozielczyk, Program Manager for SQL Server Express

If this post answers your question, please mark it as an Answer - it will help others searching the forum. This posting is provided "AS IS" with no warranties, and confers no rights.

------------------------------------

Off Topic As a Subcategory of Abusive?

In recent days, I've noticed several forum posts marked as abusive simply because the question (perfectly legitimate) was posted in the wrong forum. This concerns me, as it flies in the face of the traditional meaning of abusive, and IMHO, contradicts the persona of these forums.

The forums are here to allow us to help each other, correct? Given the hundreds of forums available in multiple categories (MSDN, Technet, ASP.NET, IIS, MIcrosoft Answers, etc.) it's hardly surprising when posters choose the wrong forum. For an inexperienced forums user to have a question marked as abusive simply because they chose (for example) a Visual Basic developer forum when the .NET Framework setup forum would have been correct or vice versa, is hardly a friendly welcome.

Please consider removing off topic as a valid reason for marking a post as abusive, and allow moderators and other responders to help posters find the correct forums for their posts in a positive, friendly, way.

Edited by pvdg42 Sunday, November 20, 2011 2:54 PM

Reply:

Yes, "Reported as abusive" does seem a bit much for off topic posts.

However just changing the wording in the menu to "Report As..." or "Report Post..." and the message to "Reported As Spam", "Reported As Profanity", "Reported As Off Topic", etc. would somewhat fix this. It should be simple enough to implement and wouldn't be as harsh to off topic posters.

------------------------------------
Reply:

There is now the possibility of saying - when you click on the abusive button - that you are clicking it because the post is off-topic.

That's surely enough because otherwise we need even more clickable options for each post than there are already.

We could of course rename the current button to "something wrong with this post" if all you are objecting too is the word "Abusive".

P.S. Marking off-topic posts as abusive means that by clicking "Abusive posts" in a forum a Moderator can immediately and directly work on either moving or deleting these off-topic posts. Abusive for off-topic posts is therefore useful but I agree the name could be made less aggressive.

SP 2010 "FAQ" (mainly useful links): http://wssv4faq.mindsharp.com/default.aspx
WSS3/MOSS FAQ (FAQ and Links) http://wssv3faq.mindsharp.com/default.aspx
Both also have links to extensive book lists and to (free) on-line chapters

Edited by Mike Walsh FIN Thursday, December 15, 2011 7:11 PM "you" changed to "a Moderator" as only Moderators see the Abusive Posts link

------------------------------------
Reply:

I see your point. I had not thought of the categorization as a tool for moderators.

Thank you very much for your insight on this :-)

------------------------------------

SQL 2008 Slipstream made easy.

Slipstreaming was one of the new features that was introduced in SQL 2008 setup. Its surely very popular as it helps you save time for new setups and more importantly to avoid the knwon issues which can cause setup failures. I felt that the the steps to create the merged media were confusing for the newcomers.

I also saw few folks on the blogs wondering if there is a tool to automate the slipstreaming. Here is a tool which should assist you in creating the Merged slipstream media for SQL 2008.

http://sqlslipstreamer.codeplex.com/

http://sqlslipstreamer.codeplex.com/releases/view/78143

Greatly appreciate any feedback!

Thanks - Vijay Sirohi

Edited by Vijay SirohiEditor Friday, December 30, 2011 9:14 PM

Reply:

Great tool but bit late :-( however I am sure there should be admins out there who will find it useful.

2 Questions

A: Will it work for SQL 2008 R2?

B: Why does it require the x86/IA64 even though we are doing a xeon 64 install?

------------------------------------
Reply:

Thank you for your contribution Vijay!

------------------------------------
Reply:

Thanks Alberto and Rishi!

Rishi -

1. You dont need to create a merged media for R2 (onwards).

2. For x64 installs - You need x86 as well as x64 (else the setup fails while referencing the x86 folder). The reason I decided to have all three architectures is to create a common media which is good for all the environments.

Thanks - Vijay Sirohi

------------------------------------
Reply:

Thanks Vijay, here is another solution for Slipstream SQL Server 2008 R2 SP1 in a few steps, i posted it in my blog last month:

Quick way to create a SQL Server 2008 R2 installer with integrated SP1 (Slipstream)

Fran Lens http://es.linkedin.com/in/franlens

------------------------------------
Reply:

WOW!

All it took was 5 seconds to get going thanks a lot great timesaver.

------------------------------------

Help visual studio 2010 programmers

im currently doing my special project in software development

here's my question

im doing a record system for school
is there any way to save data from database
into excel file in a certain folder

i want to secure a copy of masterlist from database
saving it to a folder where the user can access it

also the records from the students past transaction which i cant
store in the database without overloading it, and besides it is
better if the user can access it easy if ever they need to
print those data

i'll appreciate any help, im not use with the visual studio 2010
thanks

Moved by Max Meng Monday, January 2, 2012 8:48 AM Off-topic (From:Visio General Questions and Answers for IT Professionals)

Reply:

We'll start with your first school lesson in that this is not the Visual Studio forum, it's over here

http://social.msdn.microsoft.com/Forums/en/category/visualstudio

If this answer solves your problem, please check Mark as Answered. If this answer helps, please click the Vote as Helpful button. Al Edlund Visio MVP

------------------------------------
Reply:

oh, im sorry, its my first time here, thank you for the information,

------------------------------------
Reply:

not a problem, it's a common mistake. ;-) Have a great set of holidays.

If this answer solves your problem, please check Mark as Answered. If this answer helps, please click the Vote as Helpful button. Al Edlund Visio MVP

------------------------------------

Problem with Transparent Caching

Hi,

Rolling out Windows 7 Pro + Office 2010 to 20 + small sites, each connecting back to a centralised site for file services through site to site VPNs over the internet. The central File Server is Windows 2003 Server and the majority of files are Office 2003 format. We are trying to get Transparent Caching to work to take the pressure off the internet connections, especially the central site. We have it working with Office 2010 documents, images and RTF documents but it doesn't seem to work for Office 2003 documents, even with a latency timeout of 1ms. Does Transparent Caching work with Office 2003 documents? Tried it using a Windows 2008 File Server but still didn't seem to work. Any advise appreciated.

Transparent Caching - Work with Office 2003 documents

Hi,

Reply:

Transparent Caching function should not be affected by version of Office. It's a Windows 7 new feature.

http://technet.microsoft.com/en-us/library/dd637828(v=ws.10).aspx

You can try to post the question to Windows 7 forum to see if there is any more information.

http://social.technet.microsoft.com/Forums/en-US/category/w7itpro/

TechNet Subscriber Support in forum |If you have any feedback on our support, please contact tnmff@microsoft.com.

------------------------------------
Reply:

Thanks Shaon

Hopefully something straightforward. Will try to post on Win 7 forum.

------------------------------------

OWA and contacts greyed out

All,

I thought I would take a couple of minutes and share my experience with the whole Lync and OWA “contacts greyed out” experience and what resolved my issues.

In a word..certificate.

My situation was like many other posts I found where the "chicklets" were there but in about 1 minute the contact list would show an error.

In my case, I felt all of the necessary communicator parts were installed correctly or the “chicklets” wouldn’t be there at all. All of my users could IM using the client without an issue, so I knew I had to be close. There are several posts if you goog…err bing owa-lync and one of them was a follow up post on doing the initial install of owa-lync. The initial post from Ilse(?) was the install, but what helped most was the follow up post that shows how to use OC 2007’s analyzer with Lync that helped. Once I figured out that you had to install the vc+++2008 for x64, I finally was able to analyze the Lync logs and found the same issue that person showed in their example. My certs for now are all internal so I knew they were all trusted from server to server, but when I requested the cert I didn’t use the fqdn of the exchange box. So I went back, requested a new cert specifying the fqdn name as the subject and then used that cert for the IIS portion of exchange. After restarting IIS, I figured things would work, but they didn’t, still the same OWA “greyed out contacts error” message. Ran the Lync logging tools and this time there weren’t any errors at all. Went and checked the event logs and found event ID 14366 explaining several invalid incoming certs from my exchange box’s IP. Turns out that when I made-requested the new san cert, while I did put the internal fqdn of the exchange server as the subject, I didn’t include it in the SAN list…oops. Requested a new san cert, and added the fqdn of the exchange box in the san list and now everything works.

Don’t know if this is the “correct” way of doing things, but this is the process I used to replace the cert. All of this is on the exchange box.

1. Change cert for exchange IIS to new san cert with correct subject name and san list

a. All in exchange management console

b. Stop and restart IIS

2. Get thumbprint for exchange IIS service

a. Exchange management console Get-exchangecertificate

b. Copy thumbprint for the cert on IIS service

3. Update existing OWA Virtual Directory with new Thumbprint

a. Get-OwaVirtualDirectory –Server exchange | Set-OwaVirtualDirectory -InstantMessagingCertificateThumbprint <certificate thumbprint that we copied earlier>

b. Re-run Get-OwaVirtualDirectory –Server exchange to ensure the new thumbprint exists

c. Reset IIS

4. Enroll same cert on the Lync front end server.

Another thing I found out, if you miss-copy the cert thumbprint, it will let you put it in the owavirtualdirectory field anyway. In that case you will notice an event ID on the exchange box saying something about The certificate specified by the InstantMessagingCertificateThumbprint parameter of the Outlook Web App virtual directory wasn't found in the local certificate store. Oops.

Anyhow, hope this will help someone who is almost there and needs a couple of places to look.

Changed type Sharon.Shen Thursday, December 15, 2011 11:24 AM Cx share experience,not a question

Reply:

Hi,R,

Great post!Thank you very much for kindly share the experience with us,I am sure lots of people will save their time with seeing your post.

And If you post it with the type "General discussion" it would be better since it's not a question. :P

Regards,

Sharon

Please remember to click “Mark as Answer” on the post that helps you, and to click “Unmark as Answer” if a marked post does not actually answer your question. This can be beneficial to other community members reading the thread.

Edited by Sharon.Shen Thursday, December 15, 2011 11:24 AM

------------------------------------

Volunteers to test a mailstat script?

Works in my environment, but I'd like some more feedback.

Gets user sent /received stats from message tracking logs for the last 24 hours. Non-intrusive, other than reading the logs, and should be minimal resource impact. Seems to work best in a generic PS session. Does work in EMS, but seems considerably slower to retrieve the logs.

(If this iisn't appropriate for the forum, let me know, and I'll delete it)

Update: Commented out the add-pssnapin. Uncomment that if you want to run it in from a non-EMS session, despite warnings of vague dire consequences.

#start mailstats.ps1

#add-pssnapin Microsoft.Exchange.Management.PowerShell.E2010

$today = get-date
$rundate = $($today.adddays(-1)).toshortdatestring()

$outfile = "email_stats_" + $rundate.replace("/","_") + ".csv"

$accepted_domains = Get-AcceptedDomain |% {$_.domainname.domain}
$mbx_servers = Get-ExchangeServer |? {$_.serverrole -eq "Mailbox"}|% {$_.fqdn}
$hts = get-exchangeserver |
where {$_.serverrole -ilike "*hubtransport*"} | foreach {$_.name}

$exch_addrs = @{}

$msgrec = @{}
$bytesrec = @{}

$msgrec_exch = @{}
$bytesrec_exch = @{}

$msgrec_smtpext = @{}
$bytesrec_smtpext = @{}

$total_msgsent = @{}
$total_bytessent = @{}
$unique_msgsent = @{}
$unique_bytessent = @{}

$total_msgsent_exch = @{}
$total_bytessent_exch = @{}
$unique_msgsent_exch = @{}
$unique_bytessent_exch = @{}

$total_msgsent_smtpext = @{}
$total_bytessent_smtpext = @{}
$unique_msgsent_smtpext=@{}
$unique_bytessent_smtpext = @{}

$obj_table = {
@"
Date = $rundate
User = $($address.split("@")[0])
Domain = $($address.split("@")[1])
Sent Total = $(0 + $total_msgsent[$address])
Sent MB Total = $("{0:F2}" -f $($total_bytessent[$address]/1mb))
Received Total = $(0 + $msgrec[$address])
Received MB Total = $("{0:F2}" -f $($bytesrec[$address]/1mb))
Sent Internal = $(0 + $total_msgsent_exch[$address])
Sent Internal MB = $("{0:F2}" -f $($total_bytessent_exch[$address]/1mb))
Sent External = $(0 + $total_msgsent_smtpext[$address])
Sent External MB = $("{0:F2}" -f $($total_bytessent_smtpext[$address]/1mb))
Received Internal = $(0 + $msgrec_exch[$address])
Received Internal MB = $("{0:F2}" -f $($bytesrec_exch[$address]/1mb))
Received External = $(0 + $msgrec_smtpext[$address])
Received External MB = $("{0:F2}" -f $($bytesrec_smtpext[$address]/1mb))
Sent Unique Total = $(0 + $unique_msgsent[$address])
Sent Unique MB Total = $("{0:F2}" -f $($unique_bytessent[$address]/1mb))
Sent Internal Unique = $(0 + $unique_msgsent_exch[$address])
Sent Internal Unique MB = $("{0:F2}" -f $($unique_bytessent_exch[$address]/1mb))
Sent External Unique = $(0 + $unique_msgsent_smtpext[$address])
Sent External Unique MB = $("{0:F2}" -f $($unique_bytessent_smtpext[$address]/1mb))
"@
}

$props = $obj_table.ToString().Split("`n")|% {if ($_ -match "(.+)="){$matches[1].trim()}}

$stat_recs = @()

foreach ($ht in $hts){
get-messagetrackinglog -Server $ht -Start "$rundate" -End "$rundate 11:59:59 PM" -resultsize unlimited |%{

if ($_.eventid -eq "DELIVER" -and $_.source -eq "STOREDRIVER"){

  if ($_.messageid -match ".+@.+" -and $mbx_servers -match $_.messageid.split("@")[1].trim(">")){
   $exch_addrs[$_.sender] ++
   $total_msgsent[$_.sender] += $_.recipientcount
   $total_bytessent[$_.sender] += ($_.recipientcount * $_.totalbytes)
   $total_msgsent_exch[$_.sender] += $_.recipientcount
   $total_bytessent_exch[$_.sender] += ($_.totalbytes * $_.recipientcount)

   foreach ($rcpt in $_.recipients){
   $exch_addrs[$rcpt] ++
   $msgrec[$rcpt] ++
   $bytesrec[$rcpt] += $_.totalbytes
   $msgrec_exch[$rcpt] ++
   $bytesrec_exch[$rcpt] += $_.totalbytes
   }
  }

  else {
   foreach ($rcpt in $_.recipients){
   $msgrec[$rcpt] ++
   $bytesrec[$rcpt] += $_.totalbytes
   $msgrec_smtpext[$rcpt] ++
   $bytesrec_smtpext[$rcpt] += $_.totalbytes
   }
  }
}

if ($_.eventid -eq "RECEIVE" -and $_.source -eq "STOREDRIVER"){
  $exch_addrs[$_.sender] ++
  $unique_msgsent[$_.sender] ++
  $unique_bytessent[$_.sender] += $_.totalbytes

   $int_count = 0
   foreach ($rcpt in $_.recipients){
    if ($accepted_domains -match $rcpt.split("@")[1]){$int_count ++}
   }

   if ($int_count){
    $unique_msgsent_exch[$_.sender] ++
    $unique_bytessent_exch[$_.sender] += $_.totalbytes
    }
   if ($int_count -lt $_.recipientcount){
    $unique_msgsent_smtpext[$_.sender] ++
    $unique_bytessent_smtpext[$_.sender] += $_.totalbytes
    $total_msgsent[$_.sender] += ($_.recipientcount -$int_count)
    $total_bytessent[$_.sender] += (($_.recipientcount - $int_count) * $_.totalbytes)
    $total_msgsent_smtpext[$_.sender] += ($_.recipientcount - $int_count)
    $total_bytessent_smtpext[$_.sender] += (($_.recipientcount - $int_count) * $_.totalbytes)
    }
  }
}

}

foreach ($address in $exch_addrs.keys){

$stat_rec = (new-object psobject -property (ConvertFrom-StringData (&$obj_table)))
$stat_recs += $stat_rec | select $props
}

$stat_recs | export-csv $outfile -notype

Ms Support forum

Thursday, March 3, 2022