[RESOLVED] VBScript string truncation?

[Digilog]

Hello,

I am having some trouble with a VBScript I am trying to write. So far what I have does what it is suppose to do. A fair bit of it is from the Microsoft Scripting guys.

It checks my Domain for all Windows 2003 servers and queries each server as to what windows updates have been applied. It writes all these to a CSV file. What I would like to do is specify a date and have it either only output the updates from that date or all updates since that date. The current script writes the date field from an object called objEntry.Date

the date format it outputs is

6/17/2008 1:25PM

I though maybe I could set the script to ignore anything but the correct date but I am not sure how seperate the text becuase I wont know the very minute an update was installed.

' Notify user the script has been started
Wscript.Echo "Click OK to begin Installed Update Check "

'create the filename unique for today's date
thisDay = day(date())
thisMonth = Month(date())
thisYear = year(date())
thisFileName = "updatelst " & thisYear & "-" & thisMonth & "-" & thisDay
PathName = outputUNCPath & thisFileName & ".txt"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objNewFile = objFS.CreateTextFile(thisFilename & ".csv")
objNewFile.WriteLine "Installed Updates"
objNewFile.WriteLine " "
objNewFile.WriteLine " "

On Error Resume Next


' Define search scope constant
Const ADS_SCOPE_SUBTREE = 2

' Define count variables
intSrvCount = 0

' ADSI Connection properties
Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = ("ADsDSOObject")
objConnection.Open "Active Directory Provider"
objCommand.ActiveConnection = objConnection

' Set buffer size for performance
objCommand.Properties("Page Size") = 1000 
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE  

' SQL Query searching for computers meeting specified OS requirements (Windows 2003)
' Specify the domain name for connection
objCommand.CommandText = _ 
    "SELECT Name, operatingSystemVersion FROM " _   
        & "'LDAP://DC=domain,DC=com'" _ 
            & " WHERE objectClass='computer' AND " _
                &"operatingSystemVersion = '5.2 (3790)'" 
Set objRecordSet = objCommand.Execute 
objRecordSet.MoveFirst 

' Loop process until all database records that meet criteria have been read (End of File)
Do Until objRecordSet.EOF 
' Assign the variable strComputer the name of the windows 2003 server each pass of the loop
    strComputer = objRecordSet.Fields("Name").Value 
    intSrvCount = intSrvCount + 1


Set objSession = CreateObject("Microsoft.Update.Session", strComputer)
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount

Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

objNewFile.WriteLine "Server Number: " & "," & intSrvCount
objNewFile.WriteLine "Server Name: " & "," & strComputer

For Each objEntry in colHistory
    objNewFile.WriteLine "Operation: " & objEntry.Operation
    objNewFile.WriteLine "Result code: " & objEntry.ResultCode
    objNewFile.WriteLine "Exception: " & objEntry.Exception
    objNewFile.WriteLine "Date: " & objEntry.Date
    objNewFile.WriteLine "Title: " & objEntry.Title
    objNewFile.WriteLine "Description: " & objEntry.Description
    objNewFile.WriteLine "Unmapped exception: " & objEntry.UnmappedException
    objNewFile.WriteLine "Client application ID: " & objEntry.ClientApplicationID
    objNewFile.WriteLine "Server selection: " & objEntry.ServerSelection
    objNewFile.WriteLine "Service ID: " & objEntry.ServiceID
    i = 1
    For Each strStep in objEntry.UninstallationSteps
        objNewFile.WriteLine i & " -- " & strStep
        i = i + 1
    Next
    objNewFile.WriteLine "Uninstallation notes: " & objEntry.UninstallationNotes
    objNewFile.WriteLine "Support URL: " & objEntry.SupportURL
    objNewFile.WriteLine
Next
	objRecordSet.MoveNext
Loop


objNewFile.Close

' Notify user the script has completed
Wscript.Echo "Installed Update Check Completed press OK to continue"

Thanks for any assistance.

Carl

[MarkT]

You could use the format function to strip out the time and then compare the dates.

For Each objEntry in colHistory
    If Format(objEntry.Date, "M/D/YYYY") = "6/17/2008" Then
        objNewFile.WriteLine "Operation: " & objEntry.Operation
        objNewFile.WriteLine "Result code: " & objEntry.ResultCode
        objNewFile.WriteLine "Exception: " & objEntry.Exception
        objNewFile.WriteLine "Date: " & objEntry.Date
        objNewFile.WriteLine "Title: " & objEntry.Title
        objNewFile.WriteLine "Description: " & objEntry.Description
        objNewFile.WriteLine "Unmapped exception: " & objEntry.UnmappedException
        objNewFile.WriteLine "Client application ID: " & objEntry.ClientApplicationID
        objNewFile.WriteLine "Server selection: " & objEntry.ServerSelection
        objNewFile.WriteLine "Service ID: " & objEntry.ServiceID
        i = 1
        For Each strStep in objEntry.UninstallationSteps
            objNewFile.WriteLine i & " -- " & strStep
            i = i + 1
        Next
        objNewFile.WriteLine "Uninstallation notes: " & objEntry.UninstallationNotes
        objNewFile.WriteLine "Support URL: " & objEntry.SupportURL
        objNewFile.WriteLine
    End If
Next

[Digilog]

Thanks Mark that sent me in the right direction this is what I used (I collect the value for the variable d1 from the user and save the formated date as d2)

' Loop process until all database records that meet criteria have been read (End of File)
Do Until objRecordSet.EOF 
' Assign the variable strComputer the name of the windows 2003 server each pass of the loop
    strComputer = objRecordSet.Fields("Name").Value 
    intSrvCount = intSrvCount + 1


Set objSession = CreateObject("Microsoft.Update.Session", strComputer)
Set objSearcher = objSession.CreateUpdateSearcher
intHistoryCount = objSearcher.GetTotalHistoryCount

Set colHistory = objSearcher.QueryHistory(1, intHistoryCount)

objNewFile.WriteLine "Server Number: " & "," & intSrvCount
objNewFile.WriteLine "Server Name: " & "," & strComputer

For Each objEntry in colHistory

  d3 = FormatDateTime(objEntry.Date,2)

  If  d3 = d2 Then    objNewFile.WriteLine "Operation: " & objEntry.Operation
    objNewFile.WriteLine "Result code: " & objEntry.ResultCode
    objNewFile.WriteLine "Exception: " & objEntry.Exception
    objNewFile.WriteLine "Date: " & objEntry.Date
    objNewFile.WriteLine "Title: " & objEntry.Title
    objNewFile.WriteLine "Description: " & objEntry.Description
    objNewFile.WriteLine "Unmapped exception: " & objEntry.UnmappedException
    objNewFile.WriteLine "Client application ID: " & objEntry.ClientApplicationID
    objNewFile.WriteLine "Server selection: " & objEntry.ServerSelection
    objNewFile.WriteLine "Service ID: " & objEntry.ServiceID
    i = 1
    For Each strStep in objEntry.UninstallationSteps
        objNewFile.WriteLine i & " -- " & strStep
        i = i + 1
    Next
    objNewFile.WriteLine "Uninstallation notes: " & objEntry.UninstallationNotes
    objNewFile.WriteLine "Support URL: " & objEntry.SupportURL
    objNewFile.WriteLine
  End If
Next
	objRecordSet.MoveNext
Loop

Thanks again.