Skip to content

Commit 137c76e

Browse files
aduguidaduguid
committed
Added settings and updated images for VB.NET version
1 parent d41ae42 commit 137c76e

5 files changed

Lines changed: 163 additions & 53 deletions

File tree

‎VB/My Project/AssemblyInfo.vb‎

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,7 @@ Imports System.Security
2222
<Assembly: ComVisible(False)>
2323

2424
'The following GUID is for the ID of the typelib if this project is exposed to COM
25-
<Assembly: Guid("7c50147f-ef5d-400d-9ae2-4e9b011fc885")>
25+
<Assembly: Guid("7c50147f-ef5d-400d-9ae2-4e9b011fc885")>
2626

2727
' Version information for an assembly consists of the following four values:
2828
'
@@ -35,8 +35,8 @@ Imports System.Security
3535
' by using the '*' as shown below:
3636
' <Assembly: AssemblyVersion("1.0.*")>
3737

38-
<Assembly: AssemblyVersion("1.0.0.0")>
39-
<Assembly: AssemblyFileVersion("1.0.0.0")>
38+
<Assembly: AssemblyVersion("2.0.0.0")>
39+
<Assembly: AssemblyFileVersion("2.0.0.0")>
4040

4141
Friend Module DesignTimeConstants
4242
Public Const RibbonTypeSerializer As String = "Microsoft.VisualStudio.Tools.Office.Ribbon.Serialization.RibbonTypeCodeDomSerializer, Microsoft.VisualStudio.Tools.Office.Designer, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"

‎VB/My Project/Settings.Designer.vb‎

Lines changed: 94 additions & 20 deletions
Some generated files are not rendered by default. Learn more about customizing how changed files appear on GitHub.

‎VB/My Project/Settings.settings‎

Lines changed: 28 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -8,23 +8,41 @@
88
<Setting Name="App_PathReadMe" Type="System.String" Scope="User">
99
<Value Profile="(Default)">https://github.com/aduguid/ServerActions/blob/master/README.md</Value>
1010
</Setting>
11-
<Setting Name="Ping_ServerColumn" Type="System.String" Scope="User">
12-
<Value Profile="(Default)" />
11+
<Setting Name="Ping_ServerName" Type="System.String" Scope="User">
12+
<Value Profile="(Default)">dNSHostname</Value>
1313
</Setting>
14-
<Setting Name="Ping_PingColumn" Type="System.String" Scope="User">
15-
<Value Profile="(Default)" />
14+
<Setting Name="Ping_Results" Type="System.String" Scope="User">
15+
<Value Profile="(Default)">Results</Value>
1616
</Setting>
17-
<Setting Name="Rdg_ServerColumn" Type="System.String" Scope="User">
18-
<Value Profile="(Default)" />
17+
<Setting Name="Rdg_ServerName" Type="System.String" Scope="User">
18+
<Value Profile="(Default)">dNSHostname</Value>
1919
</Setting>
20-
<Setting Name="Rdg_DescriptionColumn" Type="System.String" Scope="User">
21-
<Value Profile="(Default)" />
20+
<Setting Name="Rdg_Description" Type="System.String" Scope="User">
21+
<Value Profile="(Default)">CN</Value>
2222
</Setting>
23-
<Setting Name="Rdg_Filename" Type="System.String" Scope="User">
24-
<Value Profile="(Default)" />
23+
<Setting Name="Rdg_FileName" Type="System.String" Scope="User">
24+
<Value Profile="(Default)">C:\Temp\Test.rdg</Value>
2525
</Setting>
2626
<Setting Name="App_PathNewIssue" Type="System.String" Scope="User">
2727
<Value Profile="(Default)">https://github.com/aduguid/ServerActions/issues/new</Value>
2828
</Setting>
29+
<Setting Name="App_ReleaseDate" Type="System.DateTime" Scope="User">
30+
<Value Profile="(Default)">07/31/2017 12:00:00</Value>
31+
</Setting>
32+
<Setting Name="Rdg_Comment" Type="System.String" Scope="User">
33+
<Value Profile="(Default)">OperatingSystem</Value>
34+
</Setting>
35+
<Setting Name="Rdg_LdapPath" Type="System.String" Scope="User">
36+
<Value Profile="(Default)">LDAP://OU=Servers,</Value>
37+
</Setting>
38+
<Setting Name="Rdg_LdapQry" Type="System.String" Scope="User">
39+
<Value Profile="(Default)">SELECT whenCreated, whenChanged, distinguishedName, OperatingSystem, OperatingSystemVersion, dNSHostname, Name, CN FROM '[Rdg.LdapPath]' WHERE objectClass = 'computer'</Value>
40+
</Setting>
41+
<Setting Name="Rdg_ServerGroup" Type="System.String" Scope="User">
42+
<Value Profile="(Default)">ServerType</Value>
43+
</Setting>
44+
<Setting Name="Rdg_SheetName" Type="System.String" Scope="User">
45+
<Value Profile="(Default)">Servers</Value>
46+
</Setting>
2947
</Settings>
3048
</SettingsFile>

‎VB/Scripts/Ribbon.vb‎

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -195,15 +195,15 @@ Namespace Scripts
195195

196196
Select Case control.Id
197197
Case Is = "cboServerName"
198-
My.Settings.Ping_ServerColumn = text
198+
My.Settings.Ping_ServerName = text
199199
Case Is = "cboPingName"
200-
My.Settings.Ping_PingColumn = text
200+
My.Settings.Ping_Results = text
201201
Case Is = "cboRdgServer"
202-
My.Settings.Rdg_ServerColumn = text
202+
My.Settings.Rdg_ServerName = text
203203
Case Is = "cboRdgDescription"
204-
My.Settings.Rdg_DescriptionColumn = text
204+
My.Settings.Rdg_Description = text
205205
Case Is = "txtFileName"
206-
My.Settings.Rdg_Filename = text
206+
My.Settings.Rdg_FileName = text
207207
End Select
208208

209209

@@ -234,8 +234,8 @@ Namespace Scripts
234234
Dim cellPing As Excel.Range
235235
Try
236236

237-
colServer = My.Settings.Ping_ServerColumn
238-
colPing = My.Settings.Ping_PingColumn
237+
colServer = My.Settings.Ping_ServerName
238+
colPing = My.Settings.Ping_Results
239239

240240
tbl = Globals.ThisAddIn.Application.ActiveCell.ListObject
241241
If (tbl Is Nothing) Then
@@ -302,9 +302,9 @@ Namespace Scripts
302302
Dim Q As String
303303
Try
304304

305-
FileName = My.Settings.Rdg_Filename
306-
colServer = My.Settings.Rdg_ServerColumn
307-
colDesc = My.Settings.Rdg_DescriptionColumn
305+
FileName = My.Settings.Rdg_FileName
306+
colServer = My.Settings.Rdg_ServerName
307+
colDesc = My.Settings.Rdg_Description
308308

309309
Q = Chr(34)
310310
script = "<?xml version=" & Q & "1.0" & Q & " encoding=" & Q & "UTF-8" & Q & "?>"

‎VB/app.config‎

Lines changed: 28 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -35,24 +35,42 @@
3535
<setting name="App_PathReadMe" serializeAs="String">
3636
<value>https://github.com/aduguid/ServerActions/blob/master/README.md</value>
3737
</setting>
38-
<setting name="Ping_ServerColumn" serializeAs="String">
39-
<value />
38+
<setting name="Ping_ServerName" serializeAs="String">
39+
<value>dNSHostname</value>
4040
</setting>
41-
<setting name="Ping_PingColumn" serializeAs="String">
42-
<value />
41+
<setting name="Ping_Results" serializeAs="String">
42+
<value>Results</value>
4343
</setting>
44-
<setting name="Rdg_ServerColumn" serializeAs="String">
45-
<value />
44+
<setting name="Rdg_ServerName" serializeAs="String">
45+
<value>dNSHostname</value>
4646
</setting>
47-
<setting name="Rdg_DescriptionColumn" serializeAs="String">
48-
<value />
47+
<setting name="Rdg_Description" serializeAs="String">
48+
<value>CN</value>
4949
</setting>
50-
<setting name="Rdg_Filename" serializeAs="String">
51-
<value />
50+
<setting name="Rdg_FileName" serializeAs="String">
51+
<value>C:\Temp\Test.rdg</value>
5252
</setting>
5353
<setting name="App_PathNewIssue" serializeAs="String">
5454
<value>https://github.com/aduguid/ServerActions/issues/new</value>
5555
</setting>
56+
<setting name="App_ReleaseDate" serializeAs="String">
57+
<value>07/31/2017 12:00:00</value>
58+
</setting>
59+
<setting name="Rdg_Comment" serializeAs="String">
60+
<value>OperatingSystem</value>
61+
</setting>
62+
<setting name="Rdg_LdapPath" serializeAs="String">
63+
<value>LDAP://OU=Servers,</value>
64+
</setting>
65+
<setting name="Rdg_LdapQry" serializeAs="String">
66+
<value>SELECT whenCreated, whenChanged, distinguishedName, OperatingSystem, OperatingSystemVersion, dNSHostname, Name, CN FROM '[Rdg.LdapPath]' WHERE objectClass = 'computer'</value>
67+
</setting>
68+
<setting name="Rdg_ServerGroup" serializeAs="String">
69+
<value>ServerType</value>
70+
</setting>
71+
<setting name="Rdg_SheetName" serializeAs="String">
72+
<value>Servers</value>
73+
</setting>
5674
</ServerActions.MySettings>
5775
</userSettings>
5876
<applicationSettings>

0 commit comments

Comments
 (0)