I have the following script below. I didn't write it. It finds Storage
groups, mail and public stores and paths on exchange 2003.
But it starts with a dialog box asking the user for tha name of the
server.
I want to have it run automatically unattended.
I want to get rid of the first two lines and define 'strServer' as a
variable that the script can find no matter what the name of the
server I put it on.
For example:
strServer=getTheNameOfThisServer.
So that I can use strServer later on in the script. How do I do that?
Thanks
===========================
strTitle="Mailbox Storage DB Report"
strServer=InputBox("What is the name of the Exchange
Server?",strTitle,"TANK")
SGReport strServer
WScript.Quit
Sub SGReport(strServer)
Dim iServer
Dim iSGs
Dim iMBS
Set iServer=CreateObject("CDOEXM.ExchangeServer")
Set iSGs=CreateObject("CDOEXM.StorageGroup")
Set iMBs=CreateObject("CDOEXM.MailboxStoreDB")
Set iMPs=CreateObject("CDOEXM.PublicStoreDB")
iServer.DataSource.Open strServer
On Error Resume Next
arrSGs=iServer.StorageGroups
For i=0 To UBound(arrSGs)
strSGUrl=arrSGs(i)
'WScript.Echo strSGUrl
iSGs.DataSource.Open "LDAP://" & iServer.DirectoryServer &
"/" & strSGUrl
strData=strData & iSGs.Name & vbcrlf
strData=strData & " LogPath: " &iSGs.LogFilePath & VBCRLF
strData=strData & " SysPath: " & iSGs.SystemFilePath &
VBCRLF & VBCRLF
arrPFStores=iSGs.PublicStoreDBs
For j=0 To UBound(arrPFStores)
iMPS.DataSource.open "LDAP://" & arrPFStores
(j)
strData=strData & " " & iMPS.Name& vbTab & " Path:" &
iMPS.DBPath&vbcrlf
next
Next
For k=0 To UBound(arrSGs)
strSGUrl=arrSGs(k)
'WScript.Echo strSGUrl
iSGs.DataSource.Open "LDAP://" & iServer.DirectoryServer &
"/" & strSGUrl
strData=strData & iSGs.Name & vbcrlf
strData=strData & " LogPath: " &iSGs.LogFilePath & VBCRLF
strData=strData & " SysPath: " & iSGs.SystemFilePath &
VBCRLF & VBCRLF
arrMBStores=iSGs.MailboxStoreDBs
For m=0 To UBound(arrMBStores)
iMBS.DataSource.open "LDAP://" & arrMBStores
(m)
strData=strData & " " & iMBS.Name& vbTab & "
Path:" & iMBS.DBPath&vbcrlf
Next
Next
WScript.Echo strData
End sub
===========================
Bookmarks