Jump to content
Compatible Support Forums

DS3Circuit

Members
  • Content count

    738
  • Joined

  • Last visited

Community Reputation

0 Neutral

About DS3Circuit

  • Rank
    old hand
  1. Busy is an ...... understatement Beautiful set of code. I am gonna go take it into the lab and pull it apart to see what works for us. If you are ever in my area, I owe you a cold one or two I'll keep ya posted on the outcome.
  2. 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 [Edited by ds3circuit on 2004-10-21 19:03:25]
  3. moggs if you are in search of resetting your admin password ... use this http://home.eunet.no/~pnordahl/ntpasswd/bootdisk.html If you feel that the safe boot option has been corrupted, you can always add switches to your boot.ini to force a safe mode boot using msconfig.exe (under the boot.ini tab) HTH
  4. 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
  5. DS3Circuit

    WIndows Or Mac?

    Oh just save the hassel in the end and buy the mac 8) You wont be able to play LAN games like Halo with PCs, but who cares, chicks dig dem lol
  6. DS3Circuit

    Nero Burning ROM 6.3.1.20

    Just a couple of things off the top of my head. 1) Have you tried different types of media? 2) CDRs or CDRWs? 3) Burning at a slower speed? 4) Different software to rule out an aspi.dll compatibility issue? I would also search these forums. http://clone.cd/phpBB/ HTH
  7. DS3Circuit

    IE6 SP1 xml download issue

    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
  8. DS3Circuit

    Can you UNDO a Ghost Image???

    http://www.ntcompatible.com/thread28751-1.html
  9. DS3Circuit

    XP Logon screen grey

    I am guessing that logonui.exe is crashing. SP2 installed? Are the same accounts logging out causing this grey screen? Event logs? Whats the reason for 27 accounts on one machine. It just seems to me to be overkill unless ya got a BIG family
  10. DS3Circuit

    IE homepage keeps being replaced

    www.lavasoftusa.com http://www.safer-networking.org/en/index.html www.javacoolsoftware.com http://www.hijack-this.net/ Run the tools in safe mode.
  11. Correct. Adding those keys to your workstation should suppress that message. This is generally used in optimizing metaframe servers. But hey if it works for you, give it a whirl.
  12. DS3Circuit

    No Boot

    I would suggest using the Repair installation feature of XP so that you wont lose all your settings. You might want to try this if you feel the need to move your data and/or attempt another recovery (if at least to read the event logs) http://www.nu2.nu/pebuilder/ G'luck
  13. DS3Circuit

    Calculating the 'real' size of the registry

    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. DS3Circuit

    Thanks for being such a cool dude Philipp

    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.
  15. DS3Circuit

    Windows 2K and Speedtouch USB problems

    I would also uninstall and reinstall the latest version of your WinPoet client software.
×