Networker

[Networker] Script to check Networker Veriosn on Windows

2004-11-09 12:08:21
Subject: [Networker] Script to check Networker Veriosn on Windows
From: "Narkinsky, Brian" <Brian.Narkinsky AT DEP.STATE.FL DOT US>
To: NETWORKER AT LISTMAIL.TEMPLE DOT EDU
Date: Tue, 9 Nov 2004 12:07:18 -0500
I just whipped up this VB script to check the version of Networker on my
clients.  I can't think of an easy way to check it in Networker so I thought
I'd share
 
 
Usge
 
cscript scriptname.vbs machine [machinename for remote or blank for local]
 
 
 
'----------------------------------------------------------------------------
--
Set argsUnnamed = WScript.Arguments.Unnamed
 
If Wscript.Arguments.Unnamed.Count >0 then
 strcomputer =WScript.Arguments.Unnamed.Item(0)
 Elseif  Wscript.Arguments.Unnamed.Count=0 then 
 strcomputer="."
End If
 

     
Const HKEY_CURRENT_USER =  &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
 

Wscript.echo "Networker Version  is "&NetworkerVersion
 
Function NetworkerVersion()
 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\"
&strComputer & "\root\default:StdRegProv")
 
 
 
strKeyPath = "SOFTWARE\Legato\NetWorker"
strValueName = "Version"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue
NSREXECDVersion=strValue
 
Set OReg=Nothing 
 
NetworkerVersion=NSREXECDVersion 
 
End Function

--
Note: To sign off this list, send a "signoff networker" command via email
to listserv AT listmail.temple DOT edu or visit the list's Web site at
http://listmail.temple.edu/archives/networker.html where you can
also view and post messages to the list. Questions regarding this list
should be sent to stan AT temple DOT edu
=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=

<Prev in Thread] Current Thread [Next in Thread>