Office 2000 Service packs, etc... - KiXtart.org

You are not logged in. [Log In] KiXtart.org website » Forums » KiXtart » Advanced Scripting » Office 2000 Service packs, etc...

Page 2 of 2

Topic Options

#76719 - 2003-09-26 02:04 AM Re: Office 2000 Service packs, etc...
Lonkero Lonkero KiX Master Guru Registered: 2001-06-05 Posts: 22346 Loc: OK	it's not that wide... but indeed, masken should have known that he will get ticket from this kinda actions. [ 26. September 2003, 02:18: Message edited by: Lonkero ] _________________________ ! download KiXnet
Top

#76720 - 2003-09-26 06:38 AM

Re: Office 2000 Service packs, etc...

NTDOC

Administrator

Registered: 2000-07-28
Posts: 11625
Loc: CA

Man... if you guys have this many different versions of Office installed I guess there is nothing to say for STANDARDS

What do you see the real intent of such a UDF?

Isn't something small like this good enough?
Change the $file maybe to a parameter.

Why do you need to know everything made/sold in Office by Microsoft for the past 5 years?

Don't patch, UPGRADE everyone to the latest version you're licensed for.


Dim $iRC
$iRC=SETOPTION('Explicit','ON')
$iRC=SETOPTION('NoVarsInStrings','ON')

GetOfficeVersion

Function GetOfficeVersion()
DIM $file,$nul,$path,$version,$app,$index,$HKLMAppPaths
$HKLMAppPaths = 'HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths'
IF EXIST('%temp%\@WKSTA.LOG')
        DEL ('%temp%\@WKSTA.LOG')
ENDIF
$file = '%temp%\@WKSTA.LOG'
$nul = writeprofilestring($file,'@WKSTA','User','@userid')
while @error = 0
  $app = enumkey($HKLMAppPaths+'\',$index) $index = $index + 1
  select
    case $app = 'excel.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'winword.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'powerpnt.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'msaccess.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'mspub.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'winproj.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'visio32.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
    case $app = 'outlook.exe'
      $path = readvalue($HKLMAppPaths+'\'+$app,'path')
      $version = getfileversion($path+'\'+$app,'Productversion')
      $nul = writeprofilestring($file,@WKSTA,$app,$version)
  endselect
loop
EndFunction

[ 26. September 2003, 06:41: Message edited by: NTDOC ]

Top

#76721 - 2003-09-26 03:49 PM Re: Office 2000 Service packs, etc...
ShaneEP ShaneEP MM club member Registered: 2002-11-29 Posts: 2127 Loc: Tulsa, OK	I wish it was that simple doc...Every division is responsible for their own budget..Including upgrade of computers. Most of them are at office 2000 now...But not all are the same flavor. And they never will be because IS doesnt have that kind of power. You need all the info from this UDF in order to install the newest security patches from M$. You need the GUID's to change the install location from CD to a network share so that it will not prompt to insert CD. You need the flavor so you can point them to the correct install folder and of course the version so that you know if they even need the update.
Top

#76722 - 2003-09-26 04:04 PM Re: Office 2000 Service packs, etc...
Sealeopard Sealeopard KiX Master Registered: 2001-04-25 Posts: 11165 Loc: Boston, MA, USA	It would be much cheaper to centralize the software purchases as you would be able to get differnet licensing from e.g. Microsoft. The cost-savings alone should be a good reason to buy the licenses for commodity software like MS Office and the MS OSes through a central office. _________________________ There are two types of vessels, submarines and targets.
Top

#76723 - 2003-09-26 05:14 PM Re: Office 2000 Service packs, etc...
ShaneEP ShaneEP MM club member Registered: 2002-11-29 Posts: 2127 Loc: Tulsa, OK	We do all of the purchasing...But we get reimbursed from remote offices. They will all be upgraded sooner or later. But that doesn't really matter right now...All that matters is there are critical security patches that need to be installed for all versions of office.
Top

#76724 - 2003-09-26 05:50 PM Re: Office 2000 Service packs, etc...
masken masken MM club member Registered: 2000-11-27 Posts: 1222 Loc: Gothenburg, Sweden	Use your wheelie-mouse j/k, well for me it doesn't matter how long the script/udf gets, just as long as it covers as much as possible. When mentioning costs etc, many company executives are stupid enough to believe that buying more expensive licenses in less amounts divided into a larger time frame is better, just as long as they don't have to put in - and motivate - a large figure once into the budget. _________________________ The tart is out there
Top

#76725 - 2003-09-26 10:10 PM Re: Office 2000 Service packs, etc...
NTDOC NTDOC Administrator Registered: 2000-07-28 Posts: 11625 Loc: CA	Okay.. Thanks for the info Shane. Sorry to hear your delima. Not doubting you, but what CRITICAL updates for MS Office? I'm not saying there not there, but of the CRITICAL ones, you usually only see for IE and the OS (IE is so embeded with the OS) There may be a LOT of fixes and nice to have fixes, but are there any that allow a remote user to gain full access to the users system if not patched? That is more what I would deem CRITICAL. If so, can you please provide a link so that I can read up on it. Thanks. [ 26. September 2003, 22:13: Message edited by: NTDOC ]
Top

#76726 - 2003-09-26 11:03 PM Re: Office 2000 Service packs, etc...
ShaneEP ShaneEP MM club member Registered: 2002-11-29 Posts: 2127 Loc: Tulsa, OK	It is actually only listed as important since a user would actually have to visit a .doc file for the vulnerability to be exploited. But if they did it would allow someone to run programs on the machine. This is the main one we are currently trying to script. MS03-035
Top

#76727 - 2003-09-26 11:09 PM Re: Office 2000 Service packs, etc...
ShaneEP ShaneEP MM club member Registered: 2002-11-29 Posts: 2127 Loc: Tulsa, OK	There is also... MS03-037 and MS03-032 (not office...But could still use any advice in how we might script this)
Top

#76728 - 2003-09-27 12:20 AM Re: Office 2000 Service packs, etc...
Radimus Radimus Moderator Registered: 2000-01-06 Posts: 5187 Loc: Tampa, FL	I have code at work for 2 of them. BTW... IE is easy... _________________________ How to ask questions the smart way <-----------> Before you ask
Top

#76729 - 2003-09-29 04:27 PM Re: Office 2000 Service packs, etc...
ShaneEP ShaneEP MM club member Registered: 2002-11-29 Posts: 2127 Loc: Tulsa, OK	Seems easy except for this statement...Will the update still work without the admin logon? quote: For the Internet Explorer 5.01 and 5.5 versions of this update, you must restart your computer and then log on as an administrator to complete the installation of this update on Windows NT-based and Windows 2000-based computers.
Top

#76730 - 2003-09-29 04:37 PM Re: Office 2000 Service packs, etc...
Sealeopard Sealeopard KiX Master Registered: 2001-04-25 Posts: 11165 Loc: Boston, MA, USA	Unlikely, as there must be a reason they make this statement. _________________________ There are two types of vessels, submarines and targets.
Top

Page 2 of 2

Previous Topic View All Topics

Index Next Topic

Moderator: Glenn Barnas, NTDOC, Arend_, Jochen, Radimus, Allen, ShaneEP, Ruud van Velsen, Mart

Hop to:

Shout Box

Search the board with:
superb Board Search
or try with google:

	Web kixtart.org