vbscript insert into access 2003 database with two different table

I am trying to insert data collected by WMI. Here is the script

On Error Resume Next
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const ForReading = 1
'Create FSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
'Create an environment for the script to work
Set wshshell = WScript.CreateObject("WScript.Shell")
'Connection to the database
Set cnn = CreateObject("ADODB.Connection")
'Connection to a Recordset
Set objRecordSet = CreateObject("ADODB.Recordset")
'Opens the Database
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
             "Data Source= U:\My Documents\ComputerInventory.mdb"
 
'Read Text File
Set objFile = objFSO.OpenTextFile("U:\Scripts\AllSTM\STM11_09.txt", 
ForReading)

Do Until objFile.AtEndOfStream
strcomputer = objFile.ReadLine
'**************************************** Start Ping 
*******************************************
Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
Set colItems = objWMIService.ExecQuery _
	("Select * from Win32_PingStatus " & _
		"Where Address ='" & strcomputer & "'")
For Each objItem In colItems
	If objItem.StatusCode = 0 Then
	'WScript.Echo strcomputer & " Reply Received"
'*************************************** Start Script 
*******************************************
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")

WScript.Echo "Login Information 
*******************************************************************"

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
    strcomputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
strValueName = "DefaultUserName"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
Wscript.Echo "UserName: " & strValue
Set oNetwork = CreateObject("WScript.Network") 
sDomain = oNetwork.UserDomain
sUser = strValue
sADSPath= sDomain & "/" & sUser
Set oUser = GetObject("WinNT://" & sADSPath & ",user")
'Split Full Name
strsplitname = oUser.FullName
strfirstname = LTrim(MID(strsplitname, InStr(1, strsplitname, ",") + 1))
strlastname = Left(strsplitname, InStr(1, strsplitname, ",") - 1)
WScript.Echo strfirstname & " " & strlastname
cnn.Execute "INSERT INTO user_tbl (username, fullname) VALUES ('" & strvalue 
& "', '" &  strfirstname & " " & strlastname & "')"

'************************************************ OS Info 
*********************************************
For Each objOS In colOSes
  Wscript.Echo "Computer Name: " & objOS.CSName
  Wscript.Echo "Caption: " & objOS.Caption
 
  WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
   objOS.ServicePackMinorVersion
   
Next

Set colManu = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem")
For Each objManu In colManu
  'WScript.Echo "Name: " & objItem.Name
  'WScript.Echo "Manufacturer: " & objManu.Manufacturer
  WScript.Echo "Model: " & objManu.Model
  cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack, 
model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress) VALUES 
('" & objOS.CSName & "', '" & objOS.Caption & "', '', '', '', '', '', '', '', 
'')" 
 Next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSMBIOS = objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
For Each objSMBIOS in colSMBIOS
Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber   
Next
'***************************************** Video Card info 
*****************************************
Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
Set colVideo = objWMIService.ExecQuery _
    ("Select * from Win32_VideoController")
For Each objVideo in colVideo
    Wscript.Echo "Description: " & objItem.Description
Next

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 
Set colComputer = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem") 
For Each objComputer in colComputer 
' Wscript.Echo "System Name: " & objComputer.Name _
' & vbCr & " " & "Total RAM " & objComputer.TotalPhysicalMemory
objExcel.Cells(x, 11).Value = objComputer.TotalPhysicalMemory
Next 
'************************************ Get CPU Speed 
****************************************************
Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor")
For Each objProcessor in colProcessors
    WScript.Echo "Name: " & objProcessor.Name
Next
'******************************************* Get IP Address 
*********************************************
 Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
 ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
 Set objNetwork = CreateObject("Wscript.Network")
 For Each IPConfig In IPConfigSet
     strIPAddress = IPConfig.IPAddress(0)
     arrIPAddress = Split(strIPAddress, ".")
     If arrIPAddress(0) = "10" Then
  wscript.echo IPConfig.IPAddress(0)
  wscript.echo IPConfig.macaddress
 Else
 End If
 Next
 'cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack, 
model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress) VALUES 
('" & objOS.CSName & "', '', '', '', '', '', '', '', '', '')"
 'VALUES ('" & objOS.CSName & "', '" &  objOS.Caption & "', '" & 
objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion & "', '" 
&  objManu.Model & "', '" &  objSMBIOS.SerialNumber & "', '" &  
objItem.Description & "', '" &  objComputer.TotalPhysicalMemory & "', '" &  
objProcessor.Name & "', '" &  IPConfig.IPAddress(0) & "', '" &  
IPConfig.macaddress & "')"
'********************************************* Add Code 
*******************************************************
Else
 'cnn.Execute "INSERT INTO user_tbl (username, fullname) VALUES ('" & 
strvalue & "', '" &  strfirstname & " " & strlastname & "')"
 'cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack, 
model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress ) 
VALUES ('No Reply', '', '', '','', '', '', '', '','')"
End If
Next

'========================================================
'Add more code here
'========================================================

Loop

objFile.Close

'Closes everything
 
cnn.Close
WScript.Quit 
'************************************* End of Script 
**********************************************************

The script will only work if I use one table and not both. Can someone 
please help me.

Thanks
0
Utf
12/7/2009 6:30:01 PM
scripting.vbscript 564 articles. 0 followers. Follow

1 Replies
1287 Views

Similar Articles

[PageSpeed] 6

Try running the script with the first statement commented out.
An "On Error Resume Next" with no supporting statements, just causes no 
errors to be reported while also possibly causing unwanted statements to be 
executed.  And, of course, it prevents you from reporting the clues that an 
error message might contain, thus making things more difficult for the 
volunteers here.

-Paul Randall

"freddy" <freddy@discussions.microsoft.com> wrote in message 
news:F3D32497-A252-4832-8595-F2770F3B4AD5@microsoft.com...
>I am trying to insert data collected by WMI. Here is the script
>
> On Error Resume Next
> Const HKEY_CURRENT_USER = &H80000001
> Const HKEY_LOCAL_MACHINE = &H80000002
> Const ForReading = 1
> 'Create FSO
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> 'Create an environment for the script to work
> Set wshshell = WScript.CreateObject("WScript.Shell")
> 'Connection to the database
> Set cnn = CreateObject("ADODB.Connection")
> 'Connection to a Recordset
> Set objRecordSet = CreateObject("ADODB.Recordset")
> 'Opens the Database
> cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
>             "Data Source= U:\My Documents\ComputerInventory.mdb"
>
> 'Read Text File
> Set objFile = objFSO.OpenTextFile("U:\Scripts\AllSTM\STM11_09.txt",
> ForReading)
>
> Do Until objFile.AtEndOfStream
> strcomputer = objFile.ReadLine
> '**************************************** Start Ping
> *******************************************
> Set objWMIService = GetObject("winmgmts:\\.\root\CIMV2")
> Set colItems = objWMIService.ExecQuery _
> ("Select * from Win32_PingStatus " & _
> "Where Address ='" & strcomputer & "'")
> For Each objItem In colItems
> If objItem.StatusCode = 0 Then
> 'WScript.Echo strcomputer & " Reply Received"
> '*************************************** Start Script
> *******************************************
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strcomputer & "\root\cimv2")
> Set colOSes = objWMIService.ExecQuery("Select * from 
> Win32_OperatingSystem")
> Set colItems = objWMIService.ExecQuery("SELECT * FROM 
> Win32_ComputerSystem")
>
> WScript.Echo "Login Information
> *******************************************************************"
>
> Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
>    strcomputer & "\root\default:StdRegProv")
> strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon"
> strValueName = "DefaultUserName"
> oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
> Wscript.Echo "UserName: " & strValue
> Set oNetwork = CreateObject("WScript.Network")
> sDomain = oNetwork.UserDomain
> sUser = strValue
> sADSPath= sDomain & "/" & sUser
> Set oUser = GetObject("WinNT://" & sADSPath & ",user")
> 'Split Full Name
> strsplitname = oUser.FullName
> strfirstname = LTrim(MID(strsplitname, InStr(1, strsplitname, ",") + 1))
> strlastname = Left(strsplitname, InStr(1, strsplitname, ",") - 1)
> WScript.Echo strfirstname & " " & strlastname
> cnn.Execute "INSERT INTO user_tbl (username, fullname) VALUES ('" & 
> strvalue
> & "', '" &  strfirstname & " " & strlastname & "')"
>
> '************************************************ OS Info
> *********************************************
> For Each objOS In colOSes
>  Wscript.Echo "Computer Name: " & objOS.CSName
>  Wscript.Echo "Caption: " & objOS.Caption
>
>  WScript.Echo "Service Pack: " & objOS.ServicePackMajorVersion & "." & _
>   objOS.ServicePackMinorVersion
>
> Next
>
> Set colManu = objWMIService.ExecQuery("SELECT * FROM 
> Win32_ComputerSystem")
> For Each objManu In colManu
>  'WScript.Echo "Name: " & objItem.Name
>  'WScript.Echo "Manufacturer: " & objManu.Manufacturer
>  WScript.Echo "Model: " & objManu.Model
>  cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack,
> model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress) 
> VALUES
> ('" & objOS.CSName & "', '" & objOS.Caption & "', '', '', '', '', '', '', 
> '',
> '')"
> Next
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set colSMBIOS = objWMIService.ExecQuery("Select * from 
> Win32_SystemEnclosure")
> For Each objSMBIOS in colSMBIOS
> Wscript.Echo "Serial Number: " & objSMBIOS.SerialNumber
> Next
> '***************************************** Video Card info
> *****************************************
> Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
> Set colVideo = objWMIService.ExecQuery _
>    ("Select * from Win32_VideoController")
> For Each objVideo in colVideo
>    Wscript.Echo "Description: " & objItem.Description
> Next
>
> Set objWMIService = GetObject("winmgmts:" _
> & "{impersonationLevel=impersonate}!\\" _
> & strComputer & "\root\cimv2")
> Set colComputer = objWMIService.ExecQuery _
> ("Select * from Win32_ComputerSystem")
> For Each objComputer in colComputer
> ' Wscript.Echo "System Name: " & objComputer.Name _
> ' & vbCr & " " & "Total RAM " & objComputer.TotalPhysicalMemory
> objExcel.Cells(x, 11).Value = objComputer.TotalPhysicalMemory
> Next
> '************************************ Get CPU Speed
> ****************************************************
> Set objWMIService = GetObject("winmgmts:\\" & strcomputer & "\root\CIMV2")
> Set colProcessors = objWMIService.ExecQuery("Select * from 
> Win32_Processor")
> For Each objProcessor in colProcessors
>    WScript.Echo "Name: " & objProcessor.Name
> Next
> '******************************************* Get IP Address
> *********************************************
> Set objWMIService = GetObject("winmgmts:" _
>    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
> Set IPConfigSet = objWMIService.ExecQuery _
> ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
> Set objNetwork = CreateObject("Wscript.Network")
> For Each IPConfig In IPConfigSet
>     strIPAddress = IPConfig.IPAddress(0)
>     arrIPAddress = Split(strIPAddress, ".")
>     If arrIPAddress(0) = "10" Then
>  wscript.echo IPConfig.IPAddress(0)
>  wscript.echo IPConfig.macaddress
> Else
> End If
> Next
> 'cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack,
> model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress) 
> VALUES
> ('" & objOS.CSName & "', '', '', '', '', '', '', '', '', '')"
> 'VALUES ('" & objOS.CSName & "', '" &  objOS.Caption & "', '" &
> objOS.ServicePackMajorVersion & "." & objOS.ServicePackMinorVersion & "', 
> '"
> &  objManu.Model & "', '" &  objSMBIOS.SerialNumber & "', '" &
> objItem.Description & "', '" &  objComputer.TotalPhysicalMemory & "', '" &
> objProcessor.Name & "', '" &  IPConfig.IPAddress(0) & "', '" &
> IPConfig.macaddress & "')"
> '********************************************* Add Code
> *******************************************************
> Else
> 'cnn.Execute "INSERT INTO user_tbl (username, fullname) VALUES ('" &
> strvalue & "', '" &  strfirstname & " " & strlastname & "')"
> 'cnn.Execute "INSERT INTO computer_tbl (computername, os, servicepack,
> model, servicetag, videocard, memory, cpuspeed, ipaddress, macaddress )
> VALUES ('No Reply', '', '', '','', '', '', '', '','')"
> End If
> Next
>
> '========================================================
> 'Add more code here
> '========================================================
>
> Loop
>
> objFile.Close
>
> 'Closes everything
>
> cnn.Close
> WScript.Quit
> '************************************* End of Script
> **********************************************************
>
> The script will only work if I use one table and not both. Can someone
> please help me.
>
> Thanks 


0
Paul
12/8/2009 7:36:20 PM
Reply:

Similar Artilces:

How do I insert a ~ over a letter?
I have used ALT164 previously in WORD to get a ~ over the letter n, but am unable to find a shortcut for EXCEL. Please advise. 209 is � 241 is � -- Regards Juan Pablo Gonz�lez "Melanie B" <Melanie B@discussions.microsoft.com> wrote in message news:A3D064F7-68B1-4912-92B8-6ADBA06CC112@microsoft.com... > I have used ALT164 previously in WORD to get a ~ over the letter n, but am > unable to find a shortcut for EXCEL. Please advise. Juan, I can't replicate what you suggest on my version of Excel (win 11). Do you mean hold, say, the alt key down while punching...

CRM 4 Web Access Problem
Hi, we have downloaded CRM 4 and installed it on our SBS 2003 Premium R2 Server. The installation completed successfully with no apparant errors but we cannot connect using the URL http://server:5555 - there is an error on the webpage: Line:194 Char:1 Error: Object Expected Code:0 URL: http://server:5555 Has anyone come across this problem and a fix? thanks. Did you try to access it from the server? Can you check your ASP.Net version under IIS? what version is it? Darren Liu, Microsoft CRM MVP Crowe http://www.crowecrm.com On Jan 8, 11:47=A0am, "Michael Brown" <st......

VBScript for SMTP admin
Hi all, I'm trying to find whether there's some way to admin SMTP virtual server by VBScript, not from GUI. I want to deploy multiple SMTP virtual servers on multiple boxes, so it's quite boring to click lots of time to do the same thing. Do you have any info, hint or simple samples to share? Many thanks. -Gavin Best start here http://www.microsoft.com/technet/scriptcenter/hubs/exchange.mspx . Also try posting the question to microsoft.public.scripting.vbscript group as well. "Gavin Lu" <gavin.lu@gmail.com> wrote in message news:1137398521.817458.1035...

How can I backup my Contacts in Outlook 2003?
I am running Outlook 2003 and would like to backup my current "Contact List" and the data. The problem is, I can't find the option for that. Either copy the .pst file, install the personal folders backup available from Office Downloads, or use File->Export->To a File->Personal Folders File and select your contact folder. --� Milly Staples [MVP - Outlook] Post all replies to the group to keep the discussion intact. Due to the Swen virus, all e-mails sent to my actual account will be deleted w/out reading. After searching google.groups.com and finding no answer M. B....

How do I make a Switchboard in Access 2003?
My real question is: How can I get back my switchboard manager I had with Access 97 in my present Access 2003. Don't know where it was in '97 but in 2003 goto Tools - Database Utilities - Switchboard Manager Tony wrote: >My real question is: How can I get back my switchboard manager I had with >Access 97 in my present Access 2003. -- There's ALWAYS more than one way to skin a cat! Answers/posts based on Access 2000/2003 Message posted via AccessMonster.com http://www.accessmonster.com/Uwe/Forums.aspx/access-forms/200802/1 "Tony" <tonstannysman@hotmail....

Insert Column and Row Tools Greyed out on custom toolbar
Hello - In OS 10.2.8 when I put the Insert Column and Insert Row tools onto my existing or onto a new toolbar using the Customize - Commands Dialog Box, the tools don't work. They are greyed out. However, it works on one computer, but not several others, and all versions appear to be the same. All other tools appear to be working normally, including Insert Cells, Delete row and delete column. Any thoughts as to what is going on? Thanks Mardee There are two sets of Insert Row/Insert Column Controls in MacXLv.X. The controls in the Customize/Commands/Edit category are for the List ...

Remove a column but not data table entry
Hi there, I have a column chart in Excel with 5 columns plotted and a data table below to show the values. I would like to remove 2 of the columns from the graph but NOT from the data table itself. Is this possible? When clicking delete on the columns in the graph, it removes the entry in the data table too. Thanks Claire Instead of deleting the column, you could try formatting the column to have no fill and no border. It will still take up phsyical space (but since you're using a data table, this might be preferred to avoid mis-alignement), but it won't be visible. -- Best ...

Select query from transaction table
For some reason I can't run a select query on the transaction table. Other tables work fine eg. select * from transaction returns Incorrect syntax near the keyword 'transaction' Any ideas? Cheers The rms database was originally designed in MS Access. It uses some SQL Server reserved words as table names. Transaction and Order spring to mind, but there may be a couple of others. To query these tables you must delimit the tablenames: select * from [transaction] Same thing anywhere that you use the transaction table such as the select list of joins. See the .qrp file for th...

Inserting Flash Objects Into Emails
Our company is using Exchange Server 5.5 + Microsoft Outlook XP for emailing. Lately we have decided in creating an HTML email with a flash document in it to be sent as a promotion email for our activities. But we are unable to find a way to insert the flash document we have created into the email and allow the user to view it as a normal object in a web page. Can anyone help on this? Many thanks in advance. ...

how do I insert text in a word document converted by pdftoword.com
I scanned a document into word2007, but in order to edit it, had to convert to pdf and then reconvert from pdf to word via the pdftoword.com site. This was supposed to allow me to insert text, but I can't. What am I not doing? Did your scanning process did some kind of OCR or did it turn out a tiff or jpeg? To me it sounds as if you just scanned in the thing as an image (tiff, jpeg, ....), which you then put in a pdf. Converting the pdf back to Word wouldn't give you the text but once again the image. Yves "Bo" <Bo@discussions.microsoft.com> wrote...

Worksheet Scrolls Two Columns to the Right When Toggling Between T
I have a spreadsheet with 5 tabs. Every time I move from one tab to another, Excel automatically scrolls the worksheet two columns to the right. This hides the first two columns of my data. I only have 16 columns of data so I can see all of it without scrolling over. How do I stop Excel from automatically scrolling each time I toggle from one sheet to another? Any help is appreciated. Thanks! ...

Outlook 2003 #217
When my hard disk (W2K) crashed I had saved my .pst file on another partition. When I re-installed Outlook 2003, applied the SP1a patch, and setup me email, etc. I know have 3 choices of contracts to choose from, from the dropdown box. The first 2 give an error, when I type in a name to send an email to, where as the 3rd choice (and they are all named contacts), allows me to see my list of contact email addresses. How can I correct this? I would like to clean this up by just having one Contact choice, whereas the list of my contacts would appear when I choose send mail to option. ...

view different anniversaries by date
Hi! I've been working on this for a long time, but I can't figure it out and I learnt access by trial and error so if anyone can help me out I would appreciate it. I have a table with the followin: Name Birthdate Membership date Wedding Anniversary The date fields are all set up as dates, not text. I am trying to figure out how I can create a report that will show me all the anniversaries by month then day, therfore repeating everyone in the list. eg. MONTH 1st Day of the Month (I'm guessing this should function as a group header) Person 1 (Birthdate) P...

insert hyperlink
After I insert a hyperlink and click on it, Internet Explorer always comes up as a fully maximized window. How can I control the size and position of the IE window? Thanks in advance -- Gary's Student ...

Inserting jpeg into Publisher
When I try to insert a picture from file in Publisher, I receive message that "Publisher cannot convert this picture". I have re installed Publisher 2000 and downloaded the updates from Microsoft. Still can't insert picture. I think I have a corrupted file but removing Publisher and re installing does not correct it. Any suggestions? Maybe the filter is corrupt. Have you tried other jpg's? If you think it is the graphic filter, you can replace it. Reinstalling doesn't mean the filters are overwritten. The graphic filters are in a folder similar to this: C:\Progra...

Outlook 2003 Crashes while cut-and pasting
Whether or not I have Word as the text editor, Outlook hangs up and stops working if I try to copy text from one email message to another. Any ideas? ...

Access 2002 Runtime and Windows 7
Has anyone deployed an Access 2002 runtime (installed using Wise and Sagekeys) in a Windows 7 environment? I've had no problems (or not many) with Vista, but a new client is about to purchase Windows 7 (Home Edition) which I understand doesn't have the XP compatability mode. Is that likely to be a problem? -- Bob Darlington Brisbane ...

Deleting duplicated rows based on data in two columns
I have a range of data in cells A1:K1000 and some of the row data in that range has been partially duplicated. What I would like to do is to delete the duplicated row if the cell values in column A are the same as well as the data in Column E. For example: If cell A1 (Smith) and A2 (Smith) are the same and cells E1 (Microsoft) and E2 (Microsoft) are the same, delete row 2. However If cell A1 (Smith) and A2 (Smith) are the same and cells E1 (Microsoft) and E2 (Apple) are different, then this is not a duplicate so it should not be deleted. Any assistance would be appreciated...

Exchange 2003 DR: parallel universe really necessary for full sys
We are in the process of adding to our DR plan for exchange 2003 Enterprise. -our exchange 2003 enterprise resides on its own server. -our DCs (2) reside on their own servers (that is the exchage server is NOT a DC). -exchange runs on windows 2003 enterprise SP1. -os and apps reside on their own hard disk -logs reside on its own disk -databases reside on it's own disk From my readings I understood that previous version of Exchange required a "parallel universe" to exist in order to rebuild exchange after some disaster--not so with Exchange 2003 (or did i misunderstand?). By...

Access denied when creating ActiveX component
Hi all, a great 2010 for all. There was a change in our company in the way that the users are allowed to use the computers. Basically, some of us had admin rights and now they have been downgraded to Power Users. There is one app that uses an ActiveX EXE component which had been running smoothly in the IDE until the change. Now when I run the main app in the IDE I get a message box which informatively tells me: "Unexpected error; quitting" (Gee, I which I could do that!). Doing some research I found that this error happens when I try to instantiate the activeX EX...

Forms: not working right with tables.
I am not totaly good with access. The problem is: I have many tables setup and working like I need them to. This is a church project. Table 1 is linked to table two. Table one stores only address, home phone and stuff related to family's that live at the same address and table two stores names, cell phone, birthdays and stuff related to a singel person. When I create a form to enter this information it works good like a charm. The problems start with table two and three. Table three will be used to keep a recoded of the attendaince. All tables are setup and working and linked with ...

New install 3.0 error: access denied FTDATA
3 servers (Exchange2003ent, CRM3.0, SQL2000) all 3 local domain 2003 enterprise during installation (towards the end) I get the following error: Action Microsoft.CRM.Setup.Serever.InstallDatabaseAction Failed. Access is denied to 'F:\Program Files\Microsoft SQL Server\Mssql\FTData', or the path is invalid. Full-text search was not installed properly. Full Text is installed and running on SQL Server, as well as, all prerequisites mentioned in CRM 3.0 implementation guide rev 3.0.3 have been met. this is a Fresh Install not an upgrade Log: 16:00:42| Info| Executing Install actio...

automatically insert autoshapes when cells are updated?
Excel 2003 Hello, I am wondering if anyone can help me with a macro (or other technique) that will automatically insert an autoshape only once a cell is populated. Also, whether the attributes of that autoshape can be determined by what is entered in other cells. I am trying to develop a visual representation of all our project teams, based on the DV0039 - Seating Plan idea found at contextures: http://www.contextures.com/excelfiles.html I like this visual of representing project teams as small circles (oval autoshape) seated around a table (large oval). However, beyon...

Using data from one table in another form?
Hi, I have 2 tables.. one called procedures and one called appointments. The appointments has the following fields AppDate AppStartTime (Declared as date/time with a short time format) AppEndTime (Declared as date/time with a short time format) AppDuration (Declared as date/time with a short time format) AppNotes and the Procedures table has.. PrcName PrcDuration (same as above) I also have a Form for Appointments with a dropdown combo box that lets me choose a pre-defined procedure from the list. What i would like is for the AppDuration to be automatically populated when I choose a p...

record an excel macro, save on network so that everyone can access
How do I record a macro in Excel, and have it available for everyone to use from a network location? Saving it in "Personal.xls" does not make it available to any other computer user. Saving it under any other choice makes it always refer back to another file after save as.... Conajo Save the workbook with the macro as an Add-in(*.xla) and stick that somewhere all users can access and load in Tools>Add-ins. Gord Dibben Excel MVP On Tue, 8 Feb 2005 11:55:07 -0800, Conajo <Conajo@discussions.microsoft.com> wrote: >How do I record a macro in Excel, and have it ava...