Jump to content
Compatible Support Forums

DS3Circuit

Members
 View Profile  See their activity

  • Content count

    738

  • Joined

  • Last visited

Posts posted by DS3Circuit

  2. Posted

    I'll show my "ruff" vbs code here to get the info I am looking for. Thanks for the delphi examples. Looking at their logic always helps. Now I just need to figure out the code to populate a sql 2000 db. I have created a microsoft data link file (udl) file but this is where I get stuck.

     

    Thank you so much for the help so far

     

    ********************

    ********************

     

    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Dim RunSQL

     

    WScript.Echo "Version of Office installed (0 equals none): " & GetOfficeVer()

     

    If GetOfficeVer = "2003" Then

    Wscript.Echo "Version of Outlook: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE11\outlook.exe")

    Wscript.Echo "Version of Excel: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE11\excel.exe")

    Wscript.Echo "Version of Word: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE11\winword.exe")

    Wscript.Echo "Version of PowerPoint: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE11\powerpnt.exe")

    End If

     

    If GetOfficeVer = "2000" Then

    Wscript.Echo "Version of Outlook: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE\outlook.exe")

    Wscript.Echo "Version of Excel: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE\excel.exe")

    Wscript.Echo "Version of Word: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE\winword.exe")

    Wscript.Echo "Version of PowerPoint: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE\powerpnt.exe")

    End If

     

    If objFSO.FileExists("C:\Program Files\Microsoft Office\OFFICE\frontpg.exe") Then

    Wscript.Echo "Version of Frontpage: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE\frontpg.exe")

    Else

    Wscript.Echo "Frontpage 2000 Not Installed."

    End If

     

    If objFSO.FileExists("C:\Program Files\Microsoft Office\OFFICE11\frontpg.exe") Then

    Wscript.Echo "Version of Frontpage: " & objFSO.GetFileVersion("C:\Program Files\Microsoft Office\OFFICE11\frontpg.exe")

    Else

    Wscript.Echo "Frontpage 2000 Not Installed."

    End If

     

    If RunSQL = 1 then

    RunSQLInstance

    End if

     

     

    ' SQL 2000 Database Var Setup

     

     

    Function RunSQLInstance

    'Set con=createobject("adodb.connection")

    'con.open "file name=dbconnect.udl"

    'set cmd=createobject("adodb.command")

    'cmd.ActiveConnection=con

    'cmd.Commandtype=1

    'End Function

     

    Dim SQLConnection

    Dim SQLCommand

     

    Set SQLConnection = CreateObject("ADODB.Connection")

    'SQL Connection String

    SQLConnection.Open "Driver={SQL Server};server=(SQLSERVER.MYSITE.edu);database=Office;uid=sa;pwd=anything;"

     

     

     

     

    Function GetOfficeVer()

     

    RunSQL = 0

     

    sRegPre = "HKLM\SOFTWARE\Microsoft\Office\"

    sRegPost = "\Common\InstallRoot\"

    Select Case True

    Case RegKeyExists(sRegPre & "11.0" & sRegPost)

    sOfficeVer = "2003"

    Case RegKeyExists(sRegPre & "10.0" & sRegPost)

    sOfficeVer = "2002"

    Case RegKeyExists(sRegPre & "9.0" & sRegPost)

    sOfficeVer = "2000"

    Case RegKeyExists(sRegPre & "8.0" & sRegPost)

    sOfficeVer = "97"

    Case Else

    sOfficeVer = "0"

    End Select

    GetOfficeVer = sOfficeVer

    End Function

     

    Function RegKeyExists(sRegKey)

    Set oShell = CreateObject("WScript.Shell")

    RegKeyExists = True

    sRegKey = Trim (sRegKey)

    If Not Right(sRegKey, 1) = "\" Then

    sRegKey = sRegKey & "\"

    End if

    On Error Resume Next

    RegReadReturn = oShell.RegRead(sRegKey)

    If Err Then

    If LCase(Left(err.description,7)) = "invalid" Then

    'key not found...

    RegKeyExists = False

    End if

    Err.clear

    End if

    On Error Goto 0

    End Function

    EDIT: Damm Smiley Faces :P

    [Edited by ds3circuit on 2004-10-21 19:03:25]

     

  4. Posted

    I am buried under a multi site / multi version MS office migration to 2003 that has taken up much of my time.

     

    Without the need of 3rd party products, my superiors wish to track the migration dynamically.

     

    History:

     

    1000+ users

    Windows 2000 SP4

    Active Directory DFS / GPO Software Deployment.

     

    What I would like is to run a vbs login script that pulls exe version numbers, populates a SQL 2000 database, and then an ASP page pulls the data accordingly. I am stuck at how a VBS script would populate a SQL 2000 database.

     

    If anyone has some URLs and/or examples. You would certainly be making my life easier.

     

    If you need more information then what I have provided, fire away.

     

    Thanks as always.

     

    Edit: Alex, I hope you have run into this smile

  7. Posted

    Beyond an administrative restriction placed on that file extension, and or a corrupt association within the HK_classes_root. My understanding of MSXML is the following:

     

    It is based on security zones and settings. The Access data sources across domains setting allows the user three options: Disable, Enable, or Prompt. The following are the four security zones and their defaults for the Access data sources across domains setting: Internet = Disable, Local intranet = Prompt, Trusted = Enable, Restricted = Disable

     

    Also, access is denied if either of the following cross-protocol access is attempted. (https to http access or http to https acces)

     

    HTH

  13. Posted

    HOW TO: Use the Registry Size Estimator Tool (Dureg.exe)

     

    http://support.microsoft.com/?kbid=317382

     

    With regards to the Registry Size Limit value that can be set under the Performance Tab in Windows 2000, this article should explain that.

     

    http://support.microsoft.com/?kbid=124594

     

    I would run the typical registry cleaner apps to optimize and shrink your current registry (Registry Healer / CCleaner/ etc)

     

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

     

    On a side not Curley_Boy, if you wish to do some static and dynamic monitoring of your current registry environment, you can

     

    1)WinDiff is a Resource Kit utility that compares files and directories before and after changes. You can use WinDiff with Regedt32 or Regedit to compare before and after results from Registry settings. Both Regedt32 and Regedit have ways of dumping the contents of keys or values to text files. In Regedt32, it is done using the Save Subtree As feature. In Regedit, you can use the Export Registry File feature to create a text .reg file. (From the command line, you can also use Regdmp from the Resource Kit, and the Regedit /e option to do basically the same thing as Regedt32 and Regedit.)

     

    The process is pretty straightforward. Create a text file dump of the keys you want to monitor before you make a system change, using one of the methods above. Then make your system change. You may be installing a new application or adding a new service. Any change that affects the Registry (which will be most things!) can be tracked in this way. After you make the change, rerun the dump method on the keys of interest and use WinDiff to compare the difference.

     

    2) WinDiff is great if you want to compare dumps of two Registry trees. However, if you need to compare keys or values in real time against a running system’s Registry, you should familiarize yourself with the reg utility’s compare option. Reg is the Swiss Army knife of Registry tools. The reg compare option replaces the CompReg utility that was available in NT 4.0’s Resource Kit and lets you compare the contents of keys or values on local and remote machines.

     

    3) Regmon lets you spy on Registry activity that a given process creates. RegMon comprises an executable (regmon.exe) and a kernel-mode filter driver (regsys.sys) that installs by default when you first launch RegMon.

     

  14. Posted

    Well I can most definitely say that my experience with computers does not go back as far as the two of you.

     

    It began with a tandy rs80 that then jumped to a NEC 166 Ready 9702 Series PC. I remember messing with PCs in school that were 486 DX running WFW 3.11

     

    What actually pulled me into computers was programming for zilog processors on the TI-85. I needed a machine to dump the roms and the NEC is what did it.

     

    Guess you could say I have been doing PCs for about 9 years.

  16. Posted

    http://www.wown.com/

     

    I would check to see what mode the access point is running on (Bridge or router mode). What model is it?

     

    Secondly, why are you using a cross over cable to connect the switch to the access point? Cross-over cables are meant for PC to PC or switch to switch.

     

    Any chance the access point does DHCP? If so make it hand out leases, with itself as the gateway. The 2nd nic on the machine should not a gateway assigned to it.

     

    Since static IPs dont rectify the problem, its a routing issue. I would check the cable and check the settings on the access point .... provided your ICS is setup correctly on the PC.

  17. Posted

    Quote:
    Originally posted by ds3circuit:
    I had an insane day with the HelpDesk being "slower" then usual.


    Well, here's one for you - Thank goodness for it being busy, gets you paid! And, a 100 years from now? Who's going to care!

    (LOL, hope I am right on the latter statement! You never know!)


    haha, unfortunately i didnt mean slow as in lack of calls. I meant slow as in the field techs forgetting how to build mailboxes, to run ad-aware, to looking at event logs. As if they all rode the lil yellow bus to work that day ;-). I am of not poking fun at those who do this as a living. I myself still do it when a "forklift" operation occurs within our IT department.

    In the end, I suppose I only have myself to blame since I didnt build a bulletproof environment and then fully train those techs to support that environment ........ nah lol 8)

    Well I am impressed the clutch got his MVP in directory services. I see those guys floating about on the net and their knowledge of said MS products is profound.

  24. Posted

    2 gig was another limit set upon hard drives ..... 512 MB, 8.4, and 127 being the other that I remember.

     

    You sure your jumper settings are correct? (Isnt there an 8.4 cap limit on WD models? I need the model #)

     

    Bios settings correct? How about setting your bios to default settings? Flashing it to the latest level?

     

    How did you format your drive?

     

    Unless there is some sort of hardware failure present, I double the above.

  25. Posted

    Quite a story APK.....

     

    I remember doing "tech support" as just a user, though quite sometime ago .... before the whole dal.net DOS attacks and the channel being no longer official. I was quite the newbie back then (memorizing IRQs, playing with NT 4 SP3, and using PICO for my mail instead of OL ) (Less of a newbie now smile ) I do recollect that the OPs and the voices were "high and mighty" with themselves *no offense*

     

    I remember seeing ya there with others like Dr P, NTLDR, Chavo, GLMMR, etc etc. My apologies for dredging up nostalgia lane.

     

    Funny you mention the drastic decrease in IRC. I dont believe I have fired up Klient or mIRC in over a year .....

     

    We dont even allow IRC on our company networks ..... something about trojans using IRC bots to receive instructions 8) wink

     

    And about being online for a while .... lets say these were my connection jumps .... 2400 baud to 9600 to 10 Meg ethernet

×