Array Error - For Loop Exits Early

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Array Error - For Loop Exits Early

Logged in as: Guest

arrSession:exec spGetSession 2,2,55900

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Array Error - For Loop Exits Early
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Array Error - For Loop Exits Early - 1/23/2008 10:00:57 AM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

Hi

This is my first post and i am a complete novice when it comes to VB scripting. I just require a little help.
I've written the following script. I read a simple text file to create an Array and then use the array to carry out a whole list of functions against each machine in the list. My loop is taken care of using For\Next but i'm finding that the script gets all the way through to 'Successful', then the next machine in the array isnt picked up
there are no quit's in any of the functions.
I've not listed the entire script below or any functions, i'm having a problem with the For loop

As i've said, i'm a completely self taught novice using bits of code that i can understand, can anyone easily spot any errors or any ways to do this better?
Thankyou very much in advance

' Main Part of the Script
arrComputer = Split(GetPCNameFromTxt(sInputFile),",")
If sEnvironment = "HeadOffice" Then 'HeadOffice Machine Start
For intI = 0 To UBound(arrComputer)
  sTarget = UCase(arrComputer(intI))
  If PingWorkstation(sTarget) = True Then
  sLocalUSDServer = GetLocalUSDServer(sTarget)'check to see if machine exists in USD
   If sLocalUSDServer <> "" Then
   DeletefromUSD sTarget,sLocalUSDServer
   End If
  sLocalUSDServer = GetLocalUSDServer(sTarget)'re-check to see if duplicate exists in USD
   If sLocalUSDServer <> "" Then
   DeletefromUSD sTarget,sLocalUSDServer
   End If
  sLocalUAMServer = GetUAMServer(sTarget)
   If sLocalUAMServer <> "" Then
   DeletefromUAM sTarget,sLocalUAMServer
   End If
    sLocationline = LocationCheck(sTarget)
    If Len(sLocationLine) <> 0 Then
     If BuildCheck(sTarget) = True Then
      sFoundAssetTag = AssetCheck(sTarget)
      If Len (sFoundAssetTag) <> 0 Then
      Set conn = CreateObject("ADODB.Connection")
      Connection_string = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=Rollout;Data Source=" & SeedServer
      Conn.Open Connection_string, sRODUserName, sRODPassword
      Set rs=CreateObject("ADODB.Recordset")
      rs.open "SELECT * FROM dbo.NonBranchSiteList WHERE (UPPER(dbo.NonBranchSiteList.SiteSubFix)) LIKE '%" & sLocationLine & "%'",conn,3,3
       sUSDStaging = rs.Fields(3)
       sURCRoot = rs.Fields(4)
       sUAMSector = rs.Fields(5)
       If IsNull(sUAMSector) Or IsNull(sURCRoot) Or IsNull(sUSDStaging) Then
       LogWrite("One or more of the required CA Management Servers have not been found in the NonBranchSiteList table.")
       sCode = "Management Servers not found"
       AddtoCSVFile sTarget, sCode
       Set conn = Nothing
       Set rs = Nothing
       Else
        LogWrite("The UAM Sector Server for the Target " & sTarget & " has been identified as " & sUAMSector & ".")
        LogWrite("The URC Root Management Server for the Target " & sTarget & " has been identified as " & sURCRoot & ".")
        LogWrite("The USD Staging Server for the Target " & sTarget & " has been identified as " & sUSDStaging & ".")
        InstallDir = "\C$\SYSMGT\"
        If FileCheck("\\" & sTarget & InstallDir & "UAM\AGENTS\UMCLISVC.EXE") = True Then
         If FileCheck("\\" & sTarget & InstallDir & "USD\BIN\TRIGGAG.EXE") = True Then
          If FileCheck("\\" & sTarget & InstallDir & "URC\RCHOST.EXE") = True Then
           If StopStartService(sTarget,"AmoAgent","Stop") = True Then
            If SetServiceStartup(sTarget,"AmoAgent","Automatic") = True Then
             If StopStartService(sTarget,"SDService","Stop") = True Then
              If SetServiceStartup(sTarget,"SDService","Automatic") = True Then
               If StopStartService(sTarget,"rcHost","Stop") = True Then
                If SetServiceStartup(sTarget,"rcHost","Automatic") = True Then
                 If StopStartService(sTarget,"CA-MessageQueuing","Stop") = True Then
                  If SetServiceStartup(sTarget,"CA-MessageQueuing","Disabled") = True Then
                   If SetServiceStartup(sTarget,"CA-MessageQueuing","Automatic") = True Then
                    If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_UAMSECSVR",sUAMSector,"String") = True Then
                     If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_USDSTGSVR",sUSDStaging,"String") = True Then
                      If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_URCROOTSVR",sURCRoot,"String") = True Then
                       If ConfigureAgent(sTarget,sUAMSector,sURCRoot,sUSDStaging,sLocationLine,sFoundAssetTag) = True Then
                        If DisableTivoli(sTarget) = True Then
                         If StopStartService(sTarget,"CA-MessageQueuing","Start") = True Then
                          If StopStartService(sTarget,"AmoAgent","Start") = True Then
                           If StopStartService(sTarget,"SDService","Start") = True Then
                            If StopStartService(sTarget,"rcHost","Start") = True Then
                            LogWrite("The script has completed successfully for the target " & sTarget & ".")
                            sCode = "Successful"
                            AddtoCSVFile sTarget, sCode
                            End If
                           End If
                          End If
                         End If
                        End If
                       End If
                      End If
                     End If
                    End If
                   End If
                  End If
                 End If
                End If
               End If
              End If
             End If
            End If
           End If
          End If
         End If
        End If
       End If
      End If
     End If
    End If
  End If
Next
ElseIf sEnvironment = "Branch" Then
For intI = 0 To UBound(arrComputer)
  MsgBox (arrComputer(intI)) & " Branch" 'Branch Machine Start
Next
End If
MsgBox ("Script Has Finished")
WScript.Quit(0)

Post #: 1

RE: Array Error - For Loop Exits Early - 1/23/2008 3:56:48 PM

dm_4ever

Posts: 2641
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

Are you using On Error Resume Next anywhere in your script? If so, comment it out and see if it generates an error.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to sidler)

Post #: 2

RE: Array Error - For Loop Exits Early - 1/23/2008 8:28:18 PM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

Hi
I'm not using On Error Resume Next anywhere in the script.
If i use the variable sEnvironment = "Branch", the array outputs the all the machines correctly and pops up the message boxes correctly
but if the variable is set to sEnvironment = "HeadOffice" and the bulk of the script is actioned, it dosn't list all the machines in the array.
it just exits after "success"

thanks
Sid

(in reply to dm_4ever)

Post #: 3

RE: Array Error - For Loop Exits Early - 1/23/2008 9:52:35 PM

ginolard

Posts: 1051
Score: 21
Joined: 8/10/2005
Status: offline

you might want to consider replacing all those IF statements with a single Select Case

For example,

Select Case True
   Case sLocalUAMServer = GetUAMServer(sTarget)
      'do stuff
   Case sLocalUSDServer <> ""
      'do stuff
   .
   .
   .
   .
   .
End Select

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to sidler)

Post #: 4

RE: Array Error - For Loop Exits Early - 1/23/2008 10:22:43 PM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

Thats a good idea...
I'm very new to this so i'll give it a go and let you know
thanks for your help

(in reply to ginolard)

Post #: 5

RE: Array Error - For Loop Exits Early - 1/23/2008 11:40:45 PM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

I was thinking about this.
if i use select case, will it work sequentially ie, it'll only run the next True function if the previous True function was correct?
thanks

Sid

(in reply to sidler)

Post #: 6

RE: Array Error - For Loop Exits Early - 1/23/2008 11:43:41 PM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

......If the Function was false, it'd move onto the Next machine in the array....(i meant to add)

(in reply to sidler)

Post #: 7

RE: Array Error - For Loop Exits Early - 1/24/2008 12:52:00 AM

twilliamsen

Posts: 195
Score: 0
Joined: 1/18/2007
Status: offline

Replace all this with Select Case

If StopStartService(sTarget,"AmoAgent","Stop") = True Then 
           If SetServiceStartup(sTarget,"AmoAgent","Automatic") = True Then 
            If StopStartService(sTarget,"SDService","Stop") = True Then 
             If SetServiceStartup(sTarget,"SDService","Automatic") = True Then 
              If StopStartService(sTarget,"rcHost","Stop") = True Then 
               If SetServiceStartup(sTarget,"rcHost","Automatic") = True Then 
                If StopStartService(sTarget,"CA-MessageQueuing","Stop") = True Then 
                 If SetServiceStartup(sTarget,"CA-MessageQueuing","Disabled") = True Then 
                  If SetServiceStartup(sTarget,"CA-MessageQueuing","Automatic") = True Then 
                   If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_UAMSECSVR",sUAMSector,"String") = True Then 
                    If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_USDSTGSVR",sUSDStaging,"String") = True Then 
                     If WriteRegKey(sTarget,"HKLM",LTSBRegKey,"LTSB_FJS_CA_URCROOTSVR",sURCRoot,"String") = True Then 
                      If ConfigureAgent(sTarget,sUAMSector,sURCRoot,sUSDStaging,sLocationLine,sFoundAssetTag) = True Then 
                       If DisableTivoli(sTarget) = True Then 
                        If StopStartService(sTarget,"CA-MessageQueuing","Start") = True Then 
                         If StopStartService(sTarget,"AmoAgent","Start") = True Then 
                          If StopStartService(sTarget,"SDService","Start") = True Then 
                           If StopStartService(sTarget,"rcHost","Start") = True Then

Something like this

(in reply to sidler)

Post #: 8

RE: Array Error - For Loop Exits Early - 1/24/2008 1:55:50 AM

ebgreen

Posts: 4972
Score: 31
Joined: 7/12/2005
Status: offline

First, when you use Select - Case, there must be an expression on the Select line, so that example would not compile. Second, Select - Case will not replace nested If statements which is what the OP is using. Select - Case will replace sequential If statements.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to twilliamsen)

Post #: 9

RE: Array Error - For Loop Exits Early - 1/24/2008 1:58:44 AM

ebgreen

Posts: 4972
Score: 31
Joined: 7/12/2005
Status: offline

Could you just go ahead and post the whole thing. I started reading through what you posted but I didn't even get past the first line before I needed to see more. I need to see what GetPCNameFromTxt does. I'm sure I will have other needs to help you so just posting the whole thing will save the trouble of me repeatedly asking for more.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to ebgreen)

Post #: 10

RE: Array Error - For Loop Exits Early - 1/24/2008 2:41:10 AM

sidler

Posts: 7
Score: 0
Joined: 1/22/2008
Status: offline

' Error codes
' Error code 10 indicates the option to exit the script was selected.
' Error code 20 indicates the script is not being run using CSCRIPT.EXE.
' -------------------------------------------------------------------------
' Instantiate objects
Set oShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshNetwork = WScript.CreateObject("WScript.Network")
Const ForReading = 1, ForWriting = 2, ForAppending = 8
ThisDir = fso.GetAbsolutePathName(".") & "\"
LogFile = ThisDir & "RenameWorkstation.LOG"
TivDir = "\C$\tivoli\"
RegKey = "SOFTWARE\Customer\RoleHorizons"
aBuildVersion = Array("04.00.00.00","04.00.01.00","04.00.02.00","04.00.03.00","04.00.03.01","04.00.04.00","04.01.00.00","04.01.01.00","04.01.02.00","04.02.00.00","04.02.01.00","04.02.07.00")
sRODUsername = "Hidden"
sRODPassword = "Hidden"
USDEntServer = "SERVER1"
UAMEntserver="SERVER2"
SeedServer = "SERVER3"
' -------------------------------------------------------------------------
' Checks that the script is being run using CSCRIPT.EXE
ForceCScript
' -------------------------------------------------------------------------
' Requests the full path to the input file containing the list of Workstations.
bFlag = False
Do Until bFlag = True
sEnvironment = InputBox("Please enter the environment this script is going to be used. Options = Branch or HeadOffice")
If sEnvironment = "Branch" Then
Wscript.Echo("Branch Environment has been selected - continuing with script.")
bFlag = True
ElseIf sEnvironment = "HeadOffice" Then
Wscript.Echo("HeadOffice Environment has been selected - continuing with script.")
bFlag = True
Else
bContinue = MsgBox("No valid option was selected, select 'Retry' to re-enter the environment or 'Cancel' to exit.", vbRetryCancel, "")
If bContinue = 2 Then
Wscript.Echo("The option to cancel the script was selected - exiting.")
WScript.Quit(10)
Else
Wscript.Echo("The option to re-enter the environment was selected.")
End If
End If
Loop
bFlag = False
Do Until bFlag = True
sInputFile = InputBox("Please enter the full path to the input file containing the list of Workstations and site codes.")
If fso.FileExists(sInputFile) Then
Wscript.Echo("The input file " & sInputFile & " has been found - continuing with script.")
bFlag = True
Else
bContinue = MsgBox("The input file " & sInputFile & " has not been found - select 'Retry' to re-enter the full path to the input file or 'Cancel' to exit.", vbRetryCancel, "")
If bContinue = 2 Then
Wscript.Echo("The option to cancel the script was selected - exiting.")
WScript.Quit(10)
Else
Wscript.Echo("The option to re-enter the full path to the input file was selected.")
End If
End If
Loop
' Create output CSV File
sOutputFileCSV = Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "_Activations.csv"
sPathtoCSV = ThisDir & sOutputFileCSV
CreateCSVFile(sPathtoCSV)
' -------------------------------------------------------------------------
' Main Part of the Script
arrComputer = Split(GetPCNameFromTxt(sInputFile),",")
If sEnvironment = "HeadOffice" Then 'HeadOffice Machine Start
For intI = 0 To UBound(arrComputer) 
sTarget = UCase(arrComputer(intI))
If PingWorkstation(sTarget) = True Then
sLocalUSDServer = GetLocalUSDServer(sTarget)'check to see if machine exists in USD
If sLocalUSDServer <> "" Then
DeletefromUSD sTarget,sLocalUSDServer
End If
sLocalUSDServer = GetLocalUSDServer(sTarget)'re-check to see if duplicate exists in USD
If sLocalUSDServer <> "" Then
DeletefromUSD sTarget,sLocalUSDServer
End If
sLocalUAMServer = GetUAMServer(sTarget)
If sLocalUAMServer <> "" Then
DeletefromUAM sTarget,sLocalUAMServer
End If
 sLocationline = LocationCheck(sTarget)
 If Len(sLocationLine) <> 0 Then
  If BuildCheck(sTarget) = True Then
   sFoundAssetTag = AssetCheck(sTarget)
   If Len (sFoundAssetTag) <> 0 Then
   Set conn = CreateObject("ADODB.Connection")
   Connection_string = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=Rollout;Data Source=" & SeedServer
   Conn.Open Connection_string, sRODUserName, sRODPassword
   Set rs=CreateObject("ADODB.Recordset")
   rs.open "SELECT * FROM dbo.NonBranchSiteList WHERE (UPPER(dbo.NonBranchSiteList.SiteSubFix)) LIKE '%" & sLocationLine & "%'",conn,3,3
    sUSDStaging = rs.Fields(3)
    sURCRoot = rs.Fields(4)
    sUAMSector = rs.Fields(5)
    If IsNull(sUAMSector) Or IsNull(sURCRoot) Or IsNull(sUSDStaging) Then
    LogWrite("One or more of the required CA Management Servers have not been found in the NonBranchSiteList table.")
    sCode = "Management Servers not found"
    AddtoCSVFile sTarget, sCode
    Set conn = Nothing
    Set rs = Nothing
    Else
     LogWrite("The UAM Sector Server for the Target " & sTarget & " has been identified as " & sUAMSector & ".")
     LogWrite("The URC Root Management Server for the Target " & sTarget & " has been identified as " & sURCRoot & ".")
     LogWrite("The USD Staging Server for the Target " & sTarget & " has been identified as " & sUSDStaging & ".")
     InstallDir = "\C$\SYSMGT\"
     If FileCheck("\\" & sTarget & InstallDir & "UAM\AGENTS\UMCLISVC.EXE") = True Then
      If FileCheck("\\" & sTarget & InstallDir & "USD\BIN\TRIGGAG.EXE") = True Then
       If FileCheck("\\" & sTarget & InstallDir & "URC\RCHOST.EXE") = True Then
        If StopStartService(sTarget,"AmoAgent","Stop") = True Then
         If SetServiceStartup(sTarget,"AmoAgent","Automatic") = True Then
          If StopStartService(sTarget,"SDService","Stop") = True Then
           If SetServiceStartup(sTarget,"SDService","Automatic") = True Then
            If StopStartService(sTarget,"rcHost","Stop") = True Then
             If SetServiceStartup(sTarget,"rcHost","Automatic") = True Then
              If StopStartService(sTarget,"CA-MessageQueuing","Stop") = True Then
               If SetServiceStartup(sTarget,"CA-MessageQueuing","Disabled") = True Then
                If SetServiceStartup(sTarget,"CA-MessageQueuing","Automatic") = True Then
                 If WriteRegKey(sTarget,"HKLM",RegKey,"FJS_CA_UAMSECSVR",sUAMSector,"String") = True Then
                  If WriteRegKey(sTarget,"HKLM",RegKey,"FJS_CA_USDSTGSVR",sUSDStaging,"String") = True Then
                   If WriteRegKey(sTarget,"HKLM",RegKey,"FJS_CA_URCROOTSVR",sURCRoot,"String") = True Then
                    If ConfigureAgent(sTarget,sUAMSector,sURCRoot,sUSDStaging,sLocationLine,sFoundAssetTag) = True Then
                     If DisableTivoli(sTarget) = True Then
                      If StopStartService(sTarget,"CA-MessageQueuing","Start") = True Then
                       If StopStartService(sTarget,"AmoAgent","Start") = True Then
                        If StopStartService(sTarget,"SDService","Start") = True Then
                         If StopStartService(sTarget,"rcHost","Start") = True Then
                          LogWrite("The script has completed successfully for the target " & sTarget & ".")
                          sCode = "Successful"
                          AddtoCSVFile sTarget, sCode
                         End If
                        End If
                       End If
                      End If
                     End If
                    End If
                   End If
                  End If
                 End If
                End If
               End If
              End If
             End If
            End If
           End If
          End If
         End If
        End If
       End If
      End If
     End If    
    End If
   End If
  End If 
 End If
End If
Next
ElseIf sEnvironment = "Branch" Then
For intI = 0 To UBound(arrComputer)
MsgBox (arrComputer(intI)) & " Branch" 'Branch Machine Start
Next
End If
MsgBox ("Script Has Finished")
WScript.Quit(0)
' -------------------------------------------------------------------------
' Functions
' -------------------------------------------------------------------------
Function LogWrite(LogText)
Set oLog = fso.OpenTextFile(LogFile, 8, TRUE)
oLog.WriteLine Now & " : " & LogText
oLog.Close
End Function
' -------------------------------------------------------------------------
' Function to stop or start a service
' Action can either be "Stop" or "Start"
Function StopStartService(sTarget,ServiceName,Action)
Dim objWMIService, objItem, objService
Dim colServices, DesiredState
If Action = "Stop" Then
DesiredState = "Stopped"
Else
DesiredState = "Running"
End If
ServiceState = "Unknown"
bFlag = False
iCount = 0
Do Until bFlag = True Or iCount = 6
CommandLineQuery = ("sc \\" & sTarget & " query " & ServiceName)
Set oExecQuery = oShell.Exec(CommandLineQuery)
CommandOutputQuery = oExecQuery.StdOut.ReadAll
LogWrite("The output from the query of the service " & ServiceName & " on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputQuery & VbCrLf & VbCrLf)
If Instr(UCase(CommandOutputQuery),UCase("The specified service does not exist as an installed service.")) Then
LogWrite("The service " & ServiceName & " has not been found on the Target " & sTarget & " - exiting function.")
StopStartService = False
sCode = ServiceName & " has not been found on the Target"
AddtoCSVFile sTarget, sCode
bFlag = True
ElseIf Instr(UCase(CommandOutputQuery),UCase("Stopped")) Then
ServiceState = "Stopped"
If DesiredState = "Stopped" Then
LogWrite("The service " & ServiceName & " is currently " & ServiceState & " on the Target " & sTarget & " which is as required.")
StopStartService = True
bFlag = True
ElseIf DesiredState = "Running" Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is not running as required - attempting to start the service.")
StopStartService = False
bFlag = False
CommandLineStart = ("sc \\" & sTarget & " start " & ServiceName)
Set oExecStart = oShell.Exec(CommandLineStart)
CommandOutputStart = oExecStart.StdOut.ReadAll
LogWrite("The output from the attempt to start the service " & ServiceName & " on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputStart & VbCrLf & VbCrLf)
WScript.Sleep(10000)
iCount = iCount + 1
If iCount = 6 Then
LogWrite("The attempt to start the service " & ServiceName & " on the Target " & sTarget & " has been attempted " & iCount & " times - exiting function.")
sCode = ServiceName & " - Service Start has failed"
AddtoCSVFile sTarget, sCode
StopStartService = False
End If
Else
LogWrite("An unrecognised desired state for the service has been specified - exiting function.")
StopStartService = False
bFlag = True
End If
ElseIf Instr(UCase(CommandOutputQuery),UCase("Running")) Then
ServiceState = "Running"
If DesiredState = "Running" Then
LogWrite("The service " & ServiceName & " is currently " & ServiceState & " on the Target " & sTarget & " which is as required.")
StopStartService = True
bFlag = True
ElseIf DesiredState = "Stopped" Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is not stopped as required - attempting to stop the service.")
StopStartService = False
bFlag = False
CommandLineStop = ("sc \\" & sTarget & " stop " & ServiceName)
Set oExecStop = oShell.Exec(CommandLineStop)
CommandOutputStop = oExecStop.StdOut.ReadAll
LogWrite("The output from the attempt to stop the service " & ServiceName & " on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputStop & VbCrLf & VbCrLf)
WScript.Sleep(10000)
iCount = iCount + 1
If iCount = 6 Then
LogWrite("The attempt to stop the service " & ServiceName & " on the Target " & sTarget & " has been attempted " & iCount & " times - exiting function.")
sCode = ServiceName & " - Service Stop has failed"
AddtoCSVFile sTarget, sCode
StopStartService = False
End If
Else
LogWrite("An unrecognised desired state for the service has been specified - exiting function.")
StopStartService = False
bFlag = True
End If
Else
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is in an unknown state.")
iCount = iCount + 1
WScript.Sleep(10000)
If iCount = 6 Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " has been in an unknown state " & iCount & " times - exiting function.")
sCode = ServiceName & " - Unknown State"
AddtoCSVFile sTarget, sCode
StopStartService = False
End If
End If
Loop
End Function
' -------------------------------------------------------------------------
' Function to change the startup type of a service
' Startup can either be "Automatic", "Disabled" or "Manual"
Function SetServiceStartup(sTarget,ServiceName,Startup)
bFlag = False
Do Until bFlag = True Or iCount = 6
CommandLineQC = ("sc \\" & sTarget & " qc " & ServiceName)
Set oExecQC = oShell.Exec(CommandLineQC)
CommandOutputQC = oExecQC.StdOut.ReadAll
LogWrite("The output from the SC QC query of the service " & ServiceName & " on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputQC & VbCrLf & VbCrLf)
If Instr(UCase(CommandOutputQC),UCase("The specified service does not exist as an installed service.")) Then
LogWrite("The service " & ServiceName & " has not been found on the Target " & sTarget & " - exiting function.")
sCode = ServiceName & " has not been found on the Target"
AddtoCSVFile sTarget, sCode
SetServiceStartup = False
bFlag = True
ElseIf Startup = "Automatic" Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " should be set to " & Startup & " - checking the startup and modifying if appropriate.")
If Instr(UCase(CommandOutputQC),UCase("AUTO")) Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is set to " & Startup & " which is as required.")
SetServiceStartup = True
bFlag = True
Else
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is not set to automatic as required - attempting to change the startup type.")
SetServiceStartup = False
bFlag = False
CommandLineAutomatic = ("sc \\" & sTarget & " config " & ServiceName & " start= auto")
Set oExecConfigAutomatic = oShell.Exec(CommandLineAutomatic)
CommandOutputAutomatic = oExecConfigAutomatic.StdOut.ReadAll
LogWrite("The output from the attempt to configure the " & ServiceName & " service to automatic on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputAutomatic & VbCrLf & VbCrLf)
WScript.Sleep(10000)
iCount = iCount + 1
If iCount = 6 Then
LogWrite("The attempt to configure the " & ServiceName & " service on the Target " & sTarget & " has been attempted " & iCount & " times - exiting function.")
sCode = ServiceName & " has failed to set to Auto"
AddtoCSVFile sTarget, sCode
SetServiceStartup = False
End If
End If
ElseIf Startup = "Manual" Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " should be set to " & Startup & " - checking the startup and modifying if appropriate.")
If Instr(UCase(CommandOutputQC),UCase("DEMAND")) Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is set to " & Startup & " which is as required.")
SetServiceStartup = True
bFlag = True
Else
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is not set to manual as required - attempting to change the startup type.")
SetServiceStartup = False
bFlag = False
CommandLineManual = ("sc \\" & sTarget & " config " & ServiceName & " start= demand")
Set oExecConfigManual = oShell.Exec(CommandLineManual)
CommandOutputManual = oExecConfigManual.StdOut.ReadAll
LogWrite("The output from the attempt to configure the " & ServiceName & " service to manual on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputManual & VbCrLf & VbCrLf)
WScript.Sleep(10000)
iCount = iCount + 1
If iCount = 6 Then
LogWrite("The attempt to configure the " & ServiceName & " service on the Target " & sTarget & " has been attempted " & iCount & " times - exiting function.")
sCode = ServiceName & " has failed to set to Manual"
AddtoCSVFile sTarget, sCode
SetServiceStartup = False
End If
End If
ElseIf Startup = "Disabled" Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " should be set to " & Startup & " - checking the startup and modifying if appropriate.")
If Instr(UCase(CommandOutputQC),UCase("DISABLED")) Then
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is set to " & Startup & " which is as required.")
SetServiceStartup = True
bFlag = True
Else
LogWrite("The service " & ServiceName & " on the Target " & sTarget & " is not set to disabled as required - attempting to change the startup type.")
SetServiceStartup = False
bFlag = False
CommandLineDisabled = ("sc \\" & sTarget & " config " & ServiceName & " start= disabled")
Set oExecConfigDisabled = oShell.Exec(CommandLineDisabled)
CommandOutputDisabled = oExecConfigDisabled.StdOut.ReadAll
LogWrite("The output from the attempt to configure the " & ServiceName & " service to disabled on the Target " & sTarget & " is:" & VbCrLf & VbCrLf & CommandOutputDisabled & VbCrLf & VbCrLf)
WScript.Sleep(10000)
iCount = iCount + 1
If iCount = 6 Then
sCode = ServiceName & " has failed to set to Disabled"
AddtoCSVFile sTarget, sCode
LogWrite("The attempt to configure the " & ServiceName & " service on the Target " & sTarget & " has been attempted " & iCount & " times - exiting function.")
SetServiceStartup = False
End If
End If
Else
LogWrite("An unrecognised desired state for the service has been specified - exiting function.")
SetServiceStartup = False
bFlag = True
Failed(sTarget)
End If
Loop
End Function
' -------------------------------------------------------------------------
' Function to write an entry to a specified Registry key
' ValueType can either be Binary, DWord, Expanded, MultiString or String
Function WriteRegKey(sTarget,RootKey,RegKey,Name,Data,ValueType)
If ValueType = "Binary" Then
LogWrite("Attempting to update / create the Binary Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " with the value " & Data & " on the Target " & sTarget & ".")
BinaryCommand = ("reg add " & Chr(34) & "\\" & sTarget & "\" & RootKey & "\" & RegKey & Chr(34) & " /v " & Chr(34) & Name & Chr(34) & " /t REG_BINARY /d " & Chr(34) & Data & Chr(34) & " /f")
Set oExecBinary = oShell.Exec(BinaryCommand)
BinaryCommandOutput = oExecBinary.StdOut.ReadAll
If Instr(UCase(BinaryCommandOutput),UCase("The operation completed successfully")) Then
LogWrite("The Binary Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has been successfully added.")
WriteRegKey = True
Else
LogWrite("The Binary Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has not been successfully added.")
sCode = Name & " - Registry Failed to write"
AddtoCSVFile sTarget, sCode
WriteRegKey = False
End If
ElseIf ValueType = "DWord" Then
LogWrite("Attempting to update / create the DWORD Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " with the value " & Chr(34) & Data & Chr(34) & " on the Target " & sTarget & ".")
DWORDCommand = ("reg add " & Chr(34) & "\\" & sTarget & "\" & RootKey & "\" & RegKey & Chr(34) & " /v " & Chr(34) & Name & Chr(34) & " /t REG_DWORD /d " & Chr(34) & Data & Chr(34) & " /f")
Set oExecDWORD = oShell.Exec(DWORDCommand)
DWORDCommandOutput = oExecDWORD.StdOut.ReadAll
If Instr(UCase(DWORDCommandOutput),UCase("The operation completed successfully")) Then
LogWrite("The DWORD Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has been successfully added.")
WriteRegKey = True
Else
LogWrite("The DWORD Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has not been successfully added.")
sCode = Name & " - Registry Failed to write"
AddtoCSVFile sTarget, sCode
WriteRegKey = False
End If
ElseIf ValueType = "Expanded" Then
LogWrite("Attempting to update / create the Expanded Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " with the value " & Chr(34) & Data & Chr(34) & " on the Target " & sTarget & ".")
ExpandedCommand = ("reg add " & Chr(34) & "\\" & sTarget & "\" & RootKey & "\" & RegKey & Chr(34) & " /v " & Chr(34) & Name & Chr(34) & " /t REG_EXPAND_SZ /d " & Chr(34) & Data & Chr(34) & " /f")
Set oExecExpanded = oShell.Exec(ExpandedCommand)
ExpandedCommandOutput = oExecExpanded.StdOut.ReadAll
If Instr(UCase(ExpandedCommandOutput),UCase("The operation completed successfully")) Then
LogWrite("The Expanded Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has been successfully added.")
WriteRegKey = True
Else
LogWrite("The Expanded Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has not been successfully added.")
sCode = Name & " - Registry Failed to write"
AddtoCSVFile sTarget, sCode
WriteRegKey = False
End If
ElseIf ValueType = "MultiString" Then
LogWrite("Attempting to update / create the Multi String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " with the value " & Chr(34) & Data & Chr(34) & " on the Target " & sTarget & ".")
MultiCommand = ("reg add " & Chr(34) & "\\" & sTarget & "\" & RootKey & "\" & RegKey & Chr(34) & " /v " & Chr(34) & Name & Chr(34) & " /t REG_MULTI_SZ /d " & Chr(34) & Data & Chr(34) & " /f")
Set oExecMulti = oShell.Exec(MultiCommand)
MultiCommandOutput = oExecMulti.StdOut.ReadAll
If Instr(UCase(MultiCommandOutput),UCase("The operation completed successfully")) Then
LogWrite("The Multi String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has been successfully added.")
WriteRegKey = True
Else
LogWrite("The Multi String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has not been successfully added.")
sCode = Name & " - Registry Failed to write"
AddtoCSVFile sTarget, sCode
WriteRegKey = False
End If
ElseIf ValueType = "String" Then
LogWrite("Attempting to update / create the String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " with the value " & Chr(34) & Data & Chr(34) & " on the sTarget " & sTarget & ".")
StringCommand = ("reg add " & Chr(34) & "\\" & sTarget & "\" & RootKey & "\" & RegKey & Chr(34) & " /v " & Chr(34) & Name & Chr(34) & " /t REG_SZ /d " & Chr(34) & Data & Chr(34) & " /f")
Set oExecString = oShell.Exec(StringCommand)
StringCommandOutput = oExecString.StdOut.ReadAll
If Instr(UCase(StringCommandOutput),UCase("The operation completed successfully")) Then
LogWrite("The String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has been successfully added.")
WriteRegKey = True
Else
LogWrite("The String Registry key " & Chr(34) & RootKey & "\" & RegKey & "\" & Name & Chr(34) & " on the Target " & sTarget & " with the value " & Chr(34) & Data & Chr(34) & " has not been successfully added.")
sCode = Name & " - Registry Failed to write"
AddtoCSVFile sTarget, sCode
WriteRegKey = False
End If
Else
LogWrite("An unrecognised value type for the Registry entry has been specified - exiting function.")
WriteRegKey = False
End If
End Function
' -------------------------------------------------------------------------
' Function to modify the settings for UAM, URC and USD on the sTarget to be managed by the correct CA Infrastructure Servers.
Function ConfigureAgent(sTarget,UAMSector,URCRoot,USDStaging,Location,AssetTag)
' Modify UAM agent
WriteRegKey sTarget,"HKLM","SOFTWARE\ComputerAssociates\Unicenter Asset Management","InstallPath","C:\SYSMGT\UAM","String"
WriteRegKey sTarget,"HKLM","SOFTWARE\ComputerAssociates\Unicenter Asset Management","DomainPath","C:\SYSMGT\UAM","String"
'Modify NCC31COM.ini File
nccFile = "\\" & sTarget & InstallDir & "UAM\AGENTS\NCC31COM.INI"
nccFileOld = "\\" & sTarget & InstallDir & "UAM\AGENTS\NCC31COM.INI.OLD2"
If fso.FileExists(nccFileOld) Then
fso.DeleteFile(nccFileOld)
End If
LogWrite("Modifying the file " & nccFile & " - to include the correct UAM Sector Server.")
Set FileToAccess = fso.GetFile(nccFile)
FileToAccess.Attributes = 0
fso.Copyfile "\\" & sTarget & InstallDir & "UAM\AGENTS\NCC31COM.INI", "\\" & sTarget & InstallDir & "UAM\AGENTS\NCC31COM.INI.OLD2", True
Find1 = "RPCServer=DefSecSvr"
Replace1 = ("RPCServer=" & UAMSector & "")
replaceStr Find1, Replace1, nccFile
'Modify UMCSTUB.ini File
umcFile = "\\" & sTarget & InstallDir & "UAM\Agents\UMCSTUB.INI"
umcFileOld = "\\" & sTarget & InstallDir & "UAM\Agents\UMCSTUB.INI.OLD2"
If fso.FileExists(umcFileOld) Then
fso.DeleteFile(umcFileOld)
End If
LogWrite("Modifying the file " & umcFile & " to include the correct UAM Sector Server.")
Set FileToAccess = fso.GetFile(umcFile)
FileToAccess.Attributes = 0
fso.Copyfile "\\" & sTarget & InstallDir & "UAM\Agents\UMCSTUB.INI", "\\" & sTarget & InstallDir & "UAM\Agents\UMCSTUB.INI.OLD2", True
Find1 = "EnsureUserRun=Yes"
Replace1 = "EnsureUserRun=No"
replaceStr Find1, Replace1, umcFile
Find2 = "Period=720"
Replace2 = "Period=1440"
replaceStr Find2, Replace2, umcFile
' Modify URC agent
WriteRegKey sTarget,"HKLM","SOFTWARE\ComputerAssociates\UnicenterRemoteControl\Host\Managed\ManagerIPAddress","Value",URCRoot,"String"
' Modify USD agent
WriteRegKey sTarget,"HKLM","SOFTWARE\Microsoft\Windows\CurrentVersion\Run","SDJobCheck","Triggusr.EXE","String"
ASMFile = "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\ASM.CNF"
ASMFileOld = "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\ASM.CNF.OLD2"
LogWrite("Modifying the file " & ASMFile & " to include the correct USD Staging Server.")
If fso.FileExists(ASMFileOld) Then
fso.DeleteFile (ASMFileOld)
End If
Set FileToAccess = fso.GetFile(ASMFile)
FileToAccess.Attributes = 0
fso.CopyFile "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\ASM.CNF", "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\ASM.CNF.OLD2", True
'Delete old profile and userdata.dat
OldProfFolder =  "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets"
OldUserDataFile = "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets\1\USERDATA.DAT"
If fso.FolderExists(OldProfFolder) Then
fso.DeleteFolder (OldProfFolder)
End If
If fso.FileExists(OldUserDataFile) Then
fso.DeleteFile(OldUserDataFile)
End If
If Not fso.FolderExists("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets") Then
fso.CreateFolder("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets")
End If
If Not fso.FolderExists("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets\1") Then
fso.CreateFolder("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets\1")
End If
'Create Tidy Profile.dct
Set oProf = fso.OpenTextFile("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets\profile.dct", 8, TRUE)
oProf.WriteLine("[Locale]")
oProf.WriteLine(" CodePage = 1252")
oProf.WriteBlankLines 1
oProf.WriteLine("[Target_1]")
oProf.WriteLine(" Registered = 0")
oProf.WriteLine(" AgentName = " & sTarget)
oProf.WriteLine(" Directory = 1")
oProf.WriteLine(" AgentType = 0")
oProf.WriteLine(" RoamingDomainUser = 0")
oProf.WriteBlankLines 2
oProf.Close
'Create Tidy Userdata.dat File
Set oProf = fso.OpenTextFile("\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\Targets\1\USERDATA.DAT", 8, TRUE)
oProf.WriteLine("[Main]")
oProf.WriteLine("Update=1")
oProf.WriteLine("COMMENT=" & Location & ",Workstation,No,No," & USDStaging & "," & URCRoot & "," & UAMSector & "")
oProf.WriteLine("USER=user")
oProf.WriteLine("LOCATION=" & AssetTag)
oProf.WriteLine("[locale]")
oProf.WriteLine("codepage=1252")
oProf.Close
ModifyASMCNF sTarget,"PUBLIC","ComputerName",""
ModifyASMCNF sTarget,"PEERHOSTS","ASMUILSR",USDStaging
ModifyASMCNF sTarget,"PEERHOSTS","ASMUICSR",USDStaging
ModifyASMCNF sTarget,"PEERHOSTS","AGENTSRV",USDStaging
ModifyASMCNF sTarget,"NATF","NATFHost",USDStaging
ModifyASMCNF sTarget,"CONF","OwnSite_siteid",USDStaging
ModifyASMCNF sTarget,"CONF","OwnSite_Address",USDStaging
ModifyASMCNF sTarget,"CONF","AgentServer_address",USDStaging
ModifyASMCNF sTarget,"SETUP","OwnSiteID",USDStaging
ModifyASMCNF sTarget,"SETUP","ServerAddress",USDStaging
ModifyASMCNF sTarget,"SETUP","AgentServerAddress",USDStaging
ConfigureAgent = True
End Function
' -------------------------------------------------------------------------
Function ModifyASMCNF(sTarget,Section,Entry,NewValue)
ucSection = UCase(Section)
ucEntry = UCase(Entry)
bFlag = False
ASMCNFFile = "\\" & sTarget & InstallDir & "USD\SD\ASM\CONF\ASM.CNF"
Set FileToAccess = fso.GetFile(ASMCNFFile)
Set TextFile = FileToAccess.OpenAsTextStream(ForReading)
Do While Not TextFile.AtEndOfStream
T = TextFile.ReadLine
If InStr(UCase(T), ucSection) Then
bFlag = True
LogWrite("Found the " & Section & " section of the ASM.CNF file.")
End If
If bFlag = True Then
If InStr(UCase(T), ucEntry) Then
If NewASMContent = "" Then
NewASMContent = " " & Entry & "=" & NewValue
bFlag = False
Else
NewASMContent = NewASMContent & VbCrLf & " " & Entry & "=" & NewValue
bFlag = False
End If
Else
If NewASMContent = "" Then
NewASMContent = T
Else
NewASMContent = NewASMContent & VbCrLf & T
End If
End If
Else
If NewASMContent = "" Then
NewASMContent = T
Else
NewASMContent = NewASMContent & VbCrLf & T
End If
End If
Loop
Set g = fso.OpenTextFile(ASMCNFFile,2,True)
g.Write(NewASMContent)
g.Close
End Function
' -------------------------------------------------------------------------
Function replaceStr(Find,Repl,FileN)
Set f = fso.OpenTextFile(FileN, 1)
MyText = f.ReadAll
f.Close
patrn = Find
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Pattern = patrn
retval = regEx.test(MyText)
If retval Then
MyText = Replace(MyText, Find, Repl)
Set f = fso.OpenTextFile(FileN, 2, True)
f.Write(MyText)
f.Close
LogWrite(Find & " replaced with " & Repl & " in " & FileN)
End If
End Function
' -------------------------------------------------------------------------
Function PingWorkstation(sTarget)
LogWrite("Pinging computer " & sTarget)
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & sTarget & "'")
For Each objStatus In objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode <> 0 Then
LogWrite("The computer " & sTarget & " is offline.")
PingWorkstation = False
sCode = "Ping Failed"
AddtoCSVFile sTarget, sCode
Else
LogWrite("The computer " & sTarget & " responded to a ping request.")
PingWorkstation = True
End If
Next
Set objPing = Nothing
End Function
' -------------------------------------------------------------------------
Function DisableTivoli(sTarget)
LogWrite("Attempting to disable Tivoli on the computer " & sTarget & ".")
DisableTivoli = False
bDeleteFiles = False
bContinue = False
CommandLineLCFD = ("sc \\" & sTarget & " qc LCFD")
Set oExecLCFD = oShell.Exec(CommandLineLCFD)
CommandOutputLCFD = oExecLCFD.StdOut.ReadAll
If Instr(UCase(CommandOutputLCFD),UCase("The specified service does not exist as an installed service")) Then
LogWrite("The Tivoli LCFD service does not exist.")
bContinue = True
bDeleteFiles = False
Else
LogWrite("The Tivoli LCFD service does exist - attempting to stop and disable it.")
If StopStartService(sTarget,"LCFD","Stop") = True Then
LogWrite("The Tivoli LCFD service is stopped as required.")
bContinue = True
bDeleteFiles = True
If SetServiceStartup(sTarget,"LCFD","Disabled") = True Then
LogWrite("The Tivoli LCFD service has been disabled as required.")
bContinue = True
bDeleteFiles = True
Else
LogWrite("The Tivoli LCFD service has not been disabled as required.")
sCode = "Disable Tivoli LCFD Service Failed"
AddtoCSVFile sTarget, sCode
bContinue = False
bDeleteFiles = False
End If
Else
LogWrite("The Tivoli LCFD service has not been stopped as required.")
sCode = "Stop Tivoli LCFD Service Failed"
AddtoCSVFile sTarget, sCode
bContinue = False
bDeleteFiles = False
End If
End If
If bContinue = True Then
CommandLineTME10RC = ("sc \\" & sTarget & " qc TME10RC")
Set oExecTME10RC = oShell.Exec(CommandLineTME10RC)
CommandOutputTME10RC = oExecTME10RC.StdOut.ReadAll
If Instr(UCase(CommandOutputTME10RC),UCase("The specified service does not exist as an installed service")) Then
LogWrite("The Tivoli TME10RC service does not exist.")
bContinue = True
bDeleteFiles = False
Else
LogWrite("The Tivoli TME10RC service does exist - attempting to stop and disable it.")
If StopStartService(sTarget,"TME10RC","Stop") = True Then
LogWrite("The Tivoli TME10RC service is stopped as required.")
bContinue = True
bDeleteFiles = True
If SetServiceStartup(sTarget,"TME10RC","Disabled") = True Then
LogWrite("The Tivoli TME10RC service has been disabled as required.")
bContinue = True
bDeleteFiles = True
Else
LogWrite("The Tivoli TME10RC service has not been disabled as required.")
sCode = "Disable Tivoli TME10RC Service Failed"
AddtoCSVFile sTarget, sCode
bContinue = False
bDeleteFiles = False
End If
Else
LogWrite("The Tivoli TME10RC service has not been stopped as required.")
sCode = "Stop Tivoli TME10RC Service Failed"
AddtoCSVFile sTarget, sCode
bContinue = False
bDeleteFiles = False
End If
End If
End If
WScript.Sleep 30000
On Error Resume Next
If bDeleteFiles = True Then
TivFile1 = "\\" & sTarget & TivDir & "lcf\dat\1\lcf.id"
TivFile2 = "\\" & sTarget & TivDir & "lcf\dat\1\lcf.dat"
TivFile3 = "\\" & sTarget & TivDir & "lcf\dat\1\last.cfg"
If fso.FileExists(TivFile1) Then
fso.DeleteFile(TivFile1)
End If
If fso.FileExists(TivFile2) Then
fso.DeleteFile(TivFile2)
End If
If fso.FileExists(TivFile3) Then
fso.DeleteFile(TivFile3)
End If

End If
If bContinue = True Then
DisableTivoli = True
LogWrite("Tivoli has been disabled on the Target " & sTarget & ".")
Else
DisableTivoli = False
End If
End Function
' -------------------------------------------------------------------------
Function GetLocalUSDServer(sTarget)
On Error Resume Next
sRODUsername = "Hidden"
sRODPassword = "Hidden"
USDEntServer = "SERVER1"

Set objConnectionP = CreateObject("ADODB.Connection")
Set objRecordSetP = CreateObject("ADODB.Recordset")
Connection_string = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=SDDATA;Data Source=" & USDEntServer
objConnectionP.Open Connection_string, sRODUserName, sRODPassword
objRecordSetP.Open "SELECT CONVERT (VARCHAR(30),cadb.T_ls.c_siteId) FROM cadb.T_ls",objConnectionP,3,3
Do Until objRecordSetP.EOF
For Each x In objRecordSetP.Fields
sLocalUSDServer = x.value
sLocalUSDServer = Trim(sLocalUSDServer)
If Instr(sLocalUSDServer,vbNullChar) Then
posB = InStr(sLocalUSDServer,vbNullChar)
sLocalUSDServer = Left(sLocalUSDServer, posB -1)
End If

Unit = UCase(sTarget)
 
Set objConnection = CreateObject("ADODB.Connection")
Set objRecordSet = CreateObject("ADODB.Recordset")

Connection_string = "Provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog=SDDATA;Data Source=" & sLocalUSDServer
objConnection.Open Connection_string, sRODUsername, sRODPassword
objRecordSet.open "SELECT CONVERT (VARCHAR(30),UPPER(cadb.T_computer.c_lanname)) FROM cadb.T_computer WHERE CONVERT (VARCHAR(30),UPPER(cadb.T_computer.c_lanname)) LIKE '%" & UCase(Unit) & "%'",objConnection,3,3

Computer = objRecordSet.Fields(0)
Computer = Trim(Computer)
If InStr(Computer,vbNullChar) Then
posB = InStr(Computer,vbNullChar)
Computer = Left(Computer, posB -1)
End If
If UCase(Unit) = Computer Then
GetLocalUSDServer = sLocalUSDServer
LogWrite (sTarget & " has been found on " & sLocalUSDServer)
Found = "FOUND"
Exit Do
Exit For
Else
GetLocalUSDServer = "NOT FOUND"
Found = "NOT FOUND"
End If

objConnection.close
Set objConnection = Nothing
Set objRecordSet = Nothing

Next
objRecordSetP.MoveNext
Loop
On Error GoTo 0

If Found = "NOT FOUND" Then
LogWrite (sTarget & " has been not been found on any local USD server")
GetLocalUSDServer = ""
End If

Set objConnectionP = Nothing
Set objRecordSetP = Nothing
  
End Function
' -------------------------------------------------------------------------
Function DeletefromUSD(sTarget,sLocalUSDServer)
LogWrite("Deleting the Existing entry for " & sTarget & " from " & sLocalUSDServer & ".")
DeleteExistingCmd = ("sdcmd local @" & sLocalUSDServer & " Targetcomputer action=delete name=" & sTarget & "")
LogWrite ("sdcmd local @" & sLocalUSDServer & " Targetcomputer action=delete name=" & sTarget & "")
cmdret = "NO"
nLoop = 0
Do Until cmdret = "YES" or nLoop = 5
Set oExec = oShell.Exec(DeleteExistingCmd)
sOutput = oExec.StdOut.ReadAll
If instr(sOutput, "SDCMD<A000000>") Then
LogWrite &qu