-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathEnterAppDetails.vbs
205 lines (183 loc) · 8.77 KB
/
EnterAppDetails.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
Dim CurrID, CurrApp, CurrVer, CurrFree, CurrOS, CurrReason, CurrPC, CurrPlans, CurrUpdate, CurrURL, CurrQTH, CurrVar
Dim adoconn
Dim rs
Dim str
Dim Response
dim WPData 'Web page text
dim xmlhttp : set xmlhttp = createobject("msxml2.serverxmlhttp.3.0")
set filesys=CreateObject("Scripting.FileSystemObject")
Dim strCurDir
strCurDir = filesys.GetParentFolderName(Wscript.ScriptFullName)
'Gather variables from smapp.ini
If filesys.FileExists(strCurDir & "\smapp.ini") then
'Database
DBLocation = ReadIni(strCurDir & "\smapp.ini", "Database", "DBLocation" )
DBUser = ReadIni(strCurDir & "\smapp.ini", "Database", "DBUser" )
DBPass = ReadIni(strCurDir & "\smapp.ini", "Database", "DBPass" )
else
msgbox "INI file not found at: " & strCurDir & "\smapp.ini" & vbCrlf & "Please run IngestCSV.vbs first before running this file."
end if
'Ask for App Reference ID
CurrID = inputbox("Enter the reference ID of the application that you would like to update:", "Software Matrix", "")
if len(CurrID) > 0 and isnumeric(CurrID) then
Set adoconn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
adoconn.Open "Driver={MySQL ODBC 8.4 ANSI Driver};Server=" & DBLocation & ";" & _
"Database=software_matrix; User=" & DBUser & "; Password=" & DBPass & ";"
str = "Select * from discoveredapplications where ID = '" & CurrID & "';"
rs.Open str, adoconn, 3, 3 'OpenType, LockType
if not rs.eof then
rs.movefirst
CurrApp = rs("Name") & ""
CurrVer = rs("Version_Newest") & ""
CurrFree = rs("Free") & ""
CurrOS = rs("OpenSource") & ""
CurrReason = rs("ReasonForSoftware") & ""
CurrPC = rs("NeededOnMachines") & ""
CurrPlans = rs("PlansForRemoval") & ""
CurrUpdate = rs("Update Method") & ""
CurrURL = rs("UpdateURL") & ""
CurrQTH = rs("UpdatePageQTH") & ""
CurrVar = rs("UpdatePageQTHVarience") & ""
'Prompt for data
msgbox "You are updating: " & CurrApp
CurrFree = inputbox("Is " & CurrApp & " free? (Y/N)", "Software Matrix", CurrFree)
if CurrFree = vbFalse then WScript.Quit 'User cancelled
CurrOS = inputbox("Is " & CurrApp & " Open Source? (Y/N)", "Software Matrix", CurrOS)
if CurrOS = vbFalse then WScript.Quit 'User cancelled
CurrReason = inputbox("What is the reason for adding " & CurrApp & " to the network?", "Software Matrix", CurrReason)
if CurrReason = vbFalse then WScript.Quit 'User cancelled
CurrPC = inputbox("Generally speaking, which machines will " & CurrApp & " be used on?", "Software Matrix", CurrPC)
if CurrPC = vbFalse then WScript.Quit 'User cancelled
CurrPlans = inputbox("Generally speaking, what are the plans to remove " & CurrApp & "?", "Software Matrix", CurrPlans)
if CurrPlans = vbFalse then WScript.Quit 'User cancelled
CurrUpdate = inputbox("How is " & CurrApp & " updated? (Manual/Automatic/None)", "Software Matrix", CurrUpdate)
if CurrUpdate = vbFalse then WScript.Quit 'User cancelled
if CurrUpdate = "None" then
CurrURL = ""
CurrQTH = 0
CurrVar = 10 + len(CurrVer)
else
CurrURL = inputbox("Enter the URL where the version number (" & CurrVer & ") can be found:", "Software Matrix", CurrURL)
if CurrURL = vbFalse then WScript.Quit 'User cancelled
if len(CurrURL) = 0 then
CurrQTH = 0
CurrVar = 10 + len(CurrVer)
else
'Pull website
xmlhttp.open "get", CurrURL, false
xmlhttp.send
WPData = xmlhttp.responseText
set xmlhttp = nothing
if instr(1,WPData,CurrVer,0)>0 then
CurrQTH = instr(1,WPData,CurrVer,0)
CurrQTH = inputbox("This is the location where the version (" & CurrVer & ") is found on the URL that was entered. You should leave this AS IS unless alerts are triggered and version is current. In that case, clear this:", "Software Matrix", CurrQTH)
else
CurrQTH = inputbox("The version (" & CurrVer & ") was not found on the URL that was entered. You should leave this blank and verify that the URL is correct:", "Software Matrix", CurrQTH)
end if
if CurrQTH = vbFalse then WScript.Quit 'User cancelled
if not CurrQTH = "" and not CurrQTH = "0" then CurrVar = inputbox("Leave this at the default unless you know what you are doing:", "Software Matrix", CurrVar) else CurrVar = 10 + len(CurrVer)
if CurrVar = vbFalse then WScript.Quit 'User cancelled
end if
end if
msgbox CurrApp & " will now be updated"
rs("Name") = CurrApp
rs("Version_Newest") = CurrVer
rs("Free") = CurrFree
rs("OpenSource") = CurrOS
if CurrFree = "Y" or CurrOS = "Y" then rs("FOSS") = "Y" else rs("FOSS") = "N"
rs("ReasonForSoftware") = CurrReason
rs("NeededOnMachines") = CurrPC
rs("PlansForRemoval") = CurrPlans
rs("Update Method") = CurrUpdate
rs("UpdateURL") = CurrURL
if len(CurrQTH) = 0 then rs("UpdatePageQTH") = 0 else rs("UpdatePageQTH") = CurrQTH
rs("UpdatePageQTHVarience") = CurrVar
rs.update
rs.close
'Check if app remames exist
str = "select count(*) from apprename where '" & CurrApp & "' REGEXP RegEx and Hits >= 5 and Confirmed = 5;" 'Greater than 5 hits to show ones that we've said no to
if cint((adoconn.Execute(str))(0)) > 0 then
str = "Select * from apprename where '" & CurrApp & "' REGEXP RegEx and Hits >= 5 and Confirmed = 5;"
rs.Open str, adoconn, 3, 3 'OpenType, LockType
rs.movefirst
do while not rs.eof
if rs("Hits") = 5 then
Response = msgbox(CurrApp & " is being renamed to '" & rs("RenameTo") & "' based on this pattern: " & rs("RegEx") & vbCrlf & "Would you like to continue renaming it?", vbYesNo)
else
Response = msgbox(CurrApp & " is not allowed to be renamed to '" & rs("RenameTo") & "' based on this pattern: " & rs("RegEx") & vbCrlf & "Would you like to enable renaming it?", vbYesNo)
end if
if Response = vbYes then rs("Hits") = 5 else rs("Hits") = 6
rs.movenext
loop
rs.close
msgbox "No further app rename rules match."
end if
else
msgbox "ID entered was not found in the DB!"
end if
end if
Function ReadIni( myFilePath, mySection, myKey ) 'Thanks to http://www.robvanderwoude.com
' This function returns a value read from an INI file
'
' Arguments:
' myFilePath [string] the (path and) file name of the INI file
' mySection [string] the section in the INI file to be searched
' myKey [string] the key whose value is to be returned
'
' Returns:
' the [string] value for the specified key in the specified section
'
' CAVEAT: Will return a space if key exists but value is blank
'
' Written by Keith Lacelle
' Modified by Denis St-Pierre and Rob van der Woude
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim intEqualPos
Dim objFSO, objIniFile
Dim strFilePath, strKey, strLeftString, strLine, strSection
Set objFSO = CreateObject( "Scripting.FileSystemObject" )
ReadIni = ""
strFilePath = Trim( myFilePath )
strSection = Trim( mySection )
strKey = Trim( myKey )
If objFSO.FileExists( strFilePath ) Then
Set objIniFile = objFSO.OpenTextFile( strFilePath, ForReading, False )
Do While objIniFile.AtEndOfStream = False
strLine = Trim( objIniFile.ReadLine )
' Check if section is found in the current line
If LCase( strLine ) = "[" & LCase( strSection ) & "]" Then
strLine = Trim( objIniFile.ReadLine )
' Parse lines until the next section is reached
Do While Left( strLine, 1 ) <> "["
' Find position of equal sign in the line
intEqualPos = InStr( 1, strLine, "=", 1 )
If intEqualPos > 0 Then
strLeftString = Trim( Left( strLine, intEqualPos - 1 ) )
' Check if item is found in the current line
If LCase( strLeftString ) = LCase( strKey ) Then
ReadIni = Trim( Mid( strLine, intEqualPos + 1 ) )
' In case the item exists but value is blank
If ReadIni = "" Then
ReadIni = " "
End If
' Abort loop when item is found
Exit Do
End If
End If
' Abort if the end of the INI file is reached
If objIniFile.AtEndOfStream Then Exit Do
' Continue with next line
strLine = Trim( objIniFile.ReadLine )
Loop
Exit Do
End If
Loop
objIniFile.Close
Else
WScript.Echo strFilePath & " doesn't exists. Exiting..."
Wscript.Quit 1
End If
End Function