I came up with a solution. Whether or not it's the best one, I don't know,
but it works.
Steps:
1) Export list of computer names from a container or query in Active
Directory Users and Computers.
2) Run script
'copy and paste this into the command window and hit enter
'be sure to change the paths if necessary
cscript "<ScriptPath>\< ScriptName>.vbs " "<FilePath> " "<HostFileName> "
"<LogFileNa me>" 1
3) View Log
The script:
############### ############### #########
Dim strLogMessage
Dim strIpFile
Dim strLogFile
Dim strPath
Dim intExtendedLog
strLogMessage=" "
strIpFile=""
strLogFile=""
strPath=""
intExtendedLog= 0
On Error Resume Next
' Check Script Engine
If right(ucase(wsc ript.FullName), 11)="WSCRIPT.EX E" Then
strLogMessage = strLogMessage & LogMessage( "ERROR: You must run this
script using cscript, for example 'cscript " & wscript.scriptn ame & "'.", 1,
1 )
wscript.quit 0
End If
' Check USAGE
If wscript.argumen ts.count <> 4 Then
strLogMessage = strLogMessage & LogMessage( "Usage: cscript " &
wscript.scriptn ame & " <Path> <IpFile.txt> <LogFile> <ExtendedLog> " & vbCrLf
& vbCrLf & _
" <Path> must be a full path of a folder that contains all of these
files:" & vbCrLf & _
" " & strIpFile & vbCrLf & _
" " & strLogFile & vbCrLf , 1, 1 )
wscript.quit
End If
' Set Command Switch Variables
strPath = wscript.argumen ts(0)
strIpFile = wscript.argumen ts(1)
strLogFile = wscript.argumen ts(2)
intExtendedLog = wscript.argumen ts(3)
If intExtendedLog< >"0" Then
intExtendedLog= 1
Else
intExtendedLog= 0
End If
' Verify that ipfile is accessible.
Set onet = createobject("w script.network" )
Set ofs = createobject("s cripting.filesy stemobject")
Set oipFile = ofs.opentextfil e(strIpFile, 1, false)
If (Err.Number <> 0) Then
strLogMessage = strLogMessage & LogMessage( "Cannot open " & strIpFile,
1, 1 )
wscript.quit
End If
' Make sure to end with a \ character.
If Right(strPath, 1) <> "\" Then
strPath = strPath & "\"
End If
Set osvcLocal = getobject("winm gmts:root\cimv2 ")
'The error-handling code is below the function that may throw one - execute
it.
On Error Resume Next
While Not oipFile.atEndOf Stream
ip = oipFile.ReadLin e()
ip = Trim( ip )
strLogMessage = strLogMessage & LogMessage( "Connecting to " & ip &
"...", 0, intExtendedLog )
Err.Clear
Set osvcRemote =
GetObject("winm gmts:{impersona tionLevel=imper sonate}\\" & ip &
"\root\cimv 2")
If (Err.Number <> 0) Then
strLogMessage = strLogMessage & LogMessage( "Failed to connect to
" & ip & ".", 1, intExtendedLog )
Else
'exeCorrectPatc h = detectOSVersion ( osvcRemote )
'if (exeCorrectPatc h <> "") then
' Lay the bits on the remote computer.
strLogMessage = strLogMessage & LogMessage( "Checking for
..NET Runtime " & exeCorrectPatch & "...", 0, intExtendedLog )
strLogMessage = strLogMessage &
LogMessage( ip & vbtab & FindTheRuntime( osvcRemote, ip ), 1,
intExtendedLog )
strLogMessage = strLogMessage &
LogMessage( "Check Complete.", 0, intExtendedLog )
'End If
End If ' Do the next IP address, then the next IP address...
'short delay
wscript.Sleep 500 ' Sleep one half second.
Wend
oipFile.close()
Set oipFile = Nothing
strLogMessage = strLogMessage & LogMessage( "Script complete. Exiting.", 0,
intExtendedLog )
'commit the log info to a file
Set logFile = CreateObject("s cripting.filesy stemobject")
Set oFileStream = logFile.CreateT extFile( strPath & strLogFile, True )
oFileStream.Wri te( strLogMessage )
oFileStream.Clo se()
Set oFileStream = Nothing
Set logFile = Nothing
Function FindTheRuntime( osvcRemote, ip )
strRuntime="Mic rosoft .NET Framework"
bFound=False
For Each Process In osvcRemote.Inst ancesOf("Win32_ product")
If InStr( 1, Process.Name, strRuntime, 1 )>0 Then
bFound=True
Exit For
End If
Next
FindTheRuntime = bFound
End Function
Function detectOSVersion ( osvcRemote )
Dim systemType
systemType="do it"
set oOSInfo = osvcRemote.Inst ancesOf("Win32_ OperatingSystem ")
'Only one instance is ever returned (the currently active OS), even
though the following is a foreach.
For Each objOperatingSys tem In oOSInfo
If (objOperatingSy stem.OSType <> 18) Then
' Make sure that this computer is Windows NT-based.
strLogMessage = strLogMessage & LogMessage( ip & " is not a
Windows XP, Windows 2000, or Windows 2003 Server computer.", 0,
intExtendedLog )
Else
systemType = objOperatingSys tem.Version
End If
Next
detectOSPatch = systemType
End Function
Function LogMessage( theMessage, isMandatoryMess age, useExtendedLog )
If isMandatoryMess age=1 OR useExtendedLog= 1 Then
wscript.echo theMessage
LogMessage = vbcrlf & theMessage
Else
wscript.echo theMessage
LogMessage = ""
End If
End Function
############### ############### #########
"Mike S" <ms***@pac.oded odea.edu> wrote in message
news:%2******** ********@TK2MSF TNGP11.phx.gbl. ..
I am trying to find out what percentage of machines on my network have the
.NET runtime installed. What would be the best reccomendation for this
(other than SMS)?
Is using WSH & WMI an answer? Can anyone point me in te right direction?
