This is my oldest daughter and I...They are inducing her tonight and little Steiner Knox will be here before we know it...I am still not believing I'm a grandfather...especially since my other daughter is 7...still doing the Dad thing full time...

I am nowhere near an expert in this areas but before coming to a SMB, I worked in a huge enterprise with a petabyte+ of SAN storage and we had ESX VM's all over the place...there were some redundancy issues when it came to some SAN errors in the firmware but overall, ESX was pretty solid.

Here at my one man IT shop and thanks to ML's, I am set up on Hyper-V.

Update on yesterday's reboot. Here is what "WebRoot" said:

The particular issue being reported is related to a wireless keyboard being in place. There are a few Microsoft wireless keyboards that the drivers can conflict with ours, at this time the workaround sent would resolve this issue however a more permanent fix is being developed.

So my wireless keyboard was at fault. We changed a setting and now it is working. I'm very impressed with their support and expanding my testing of WebRoot. .

@Pete-S said in Online IT eduction sites?:

I've seen a couple of sites mentioned for training in the IT field.
I probably missed a ton though. What others are worth looking at?

This is the list so far (in alphabetical order):

• linuxacademy.com
• pluralsight.com
• udemy.com

Udemy is pretty good...they run sales often (if they are really "sales") and most of the purchased courses I've taken have been very good.

So it is official now...wonder what they can do in 6 episodes, if it won't be the "alien conspiracy" plot...

http://www.fox.com/the-x-files/thexfiles

It's true...when winter weather is forecasted in Arkansas, we do get our bread and milk...I did so in shorts yesterday...a WINTER STORM WATCH and it was a nice 73 degrees yesterday.

This morning, WINTER STORM WARNING and 23 degrees...gotta love it!

I've been in theatre for 28 years (community level)...I've been in the kids ministry for 5 years (not ordained but as a volunteer and once as Interim Pastor as they searched for a new one.) I'm in front of the kids all the time and have done a few things in front of our congregation (large church)...last night, after this skit me and the kids pastor did (pictured), I was told I'd have to lead the congregation in a prayer...THAT, my friends, was so scary...not sure what it is about public prayer but to choose the words and lead 200-300 that were there last night, man I was scared but it went well...and I got to use my Surface Pro 3...:)

Looks like the topic ran away from me...been swamped with other things this past week...glad to see it made for good conversation.

Can't see the whole tree but my wife and baby girl set ours up...and made them their favorite hot chocolate...

Might be the best yet...

https://www.youtube.com/watch?v=1w8Z0UOXVaY

https://www.youtube.com/watch?v=UkiI2vM2lfA

https://www.youtube.com/watch?v=_Ge4_stUpqs

I coined a phrase...Unreasonable FU's (Follow Up's) from Management...especially those who don't get IT. Tonight is no different.

By tomorrow morning, I've been asked to add some VBA code to an existing code block/module that saves a PDF in a file location...

When we chose a certain Macrom, it will save the Excel file as a PDF via a Macro...it creates the proper directory based upon Job Number and saves a PDF there through an aging (but functional) PDF creator program...(code below)...

Dim BackToSheet As Worksheet
Const sDefaultCOPath As String = "z:\Change_Orders"

Sub email_Selected()
'
' Email_Selected Macro
' Macro recorded 1/14/2015 by Brian 
'
' Keyboard Shortcut: Ctrl+Shift+E
'
'   Application.CommandBars("Stop Recording").Visible = False
'   Application.Goto Reference:="email_Selected"
'-- Do NOT Save Workbook because if they are in the emplate it can cause problems.   ActiveWorkbook.Save
    Dim spdfname As String
    Dim sPDFNameDir As String
    Dim spdfpath As String
    Dim pos As Integer
    Set BackToSheet = ActiveWorkbook.ActiveSheet ' set current sheet so we can come back to it
'-- First lets get the PDF File Name
    Sheets("Form").Select
    spdfname = Trim$(Cells(4, 3).Value)
    If Len(spdfname) = 0 Then Exit Sub ' nothing to print
    pos = InStr(spdfname, ".") 'test for an extension and remove if there
    If pos > 0 Then
        spdfname = Left$(spdfname, pos - 1)
    End If
    pos = InStr(spdfname, "-") 'test for an extension and remove if there
    If pos > 0 Then
        sPDFNameDir = Left$(spdfname, pos - 1)
    Else
        sPDFNameDir = spdfname
    End If
    Dim sMessageSubject As String, sMessageBody As String
    
            sMessageSubject = "Change Order - " & spdfname
            
            sMessageBody = "Change Order - " & spdfname & " has been attached for your review."
            
    spdfpath = sDefaultCOPath & Application.PathSeparator & sPDFNameDir & Application.PathSeparator
   
 'Look for Directory and create it if it does not exist
        MakeDir (spdfpath)
    
    Call PrintToPDFandEMAIL(True, True, BackToSheet.Name, spdfname, spdfpath, , sMessageSubject, sMessageBody)
'   Reactivate original sheet
    BackToSheet.Activate
    
End Sub

I can get around VBA but often struggle in creating new code...how can I make it also save the file as an excel file in same directory? Is there just an easy line of code I can put in to prompt (or silently) save in the directory by this variable? sDefaultCOPath As String = "z:\Change_Orders"

Thanks!

So let's post our stories, opinions and photos of SpiceWorld 2022.

It was a smaller scale this year for sure but not distractingly so. We were on the opposite end of the convention center so some of the meeting rooms were smaller. The Vendor room seemed smaller but it may have just been the hall we were in.

The showroom closed down an hour before the party, so no cocktails and a place to hang out before going to party.

And the "drinks" showed 2 limit but don't think it was being enforced, especially with 4 stations.

The sessions were good but some where not on the subject you thought they would be.

But overall, it felt "normal"...

My work didn't want to pay for SpiceWorld 2022 this year or let me have it vacation free, so I am going on my own...so need it. Anyone else coming?

I'd love to hang out with Scott and Other "MangoLassi" folks there...

@JaredBusch said in Quick VBA Help Needed:

.InitialFilename = "\fileserver\drafting\logos"

You saved my day...if I see you at SpiceWorld (if you go), I'll make sure to thank you in person...

@Dashrender

I ended up putting a wireless card in that PC for now...quickest fix when I have so much else to do...not sure why the onboard card decided to act up.

I honestly need an exceptionally long nap so prepare for a busy few weeks including SPICEWORLD...

My Steelers play Sunday too so I'm "ready for some football"...

I need to set a default file path in VBA that will go to:

\fileserver\drafting\logos\

When this code is ran...

Option Explicit

Public Sub ImagePicker()
Dim sht As Worksheet, shp As Shape
Dim file As String
Dim fd As FileDialog
Dim t As Single, l As Single, w As Single, h As Single
' get some images
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
    .AllowMultiSelect = False
    With .Filters
        .Clear
        .Add "Images", "*.ani;*.bmp;*.gif;*.ico;*.jpe;*.jpeg;*.jpg;*.pcx;*.png;*.psd;*.tga;*.tif;*.tiff;*.webp;*.wmf"
    End With
    If .Show = -1 Then
        file = .SelectedItems(1)
    End If
End With
'change images on each sheets
If Len(file) <> 0 Then
    For Each sht In ThisWorkbook.Sheets
        sht.Activate
        sht.Unprotect
        Set shp = sht.Shapes("logo")
        
        With shp
            t = .Top
            l = .Left
            w = .Width
            h = .Height
            .Delete
        End With
        sht.Pictures.Insert(file).Select
        With Selection
            .Name = "logo"
            .Top = t
            .Left = l
            .Width = w
            .Height = h
        End With
        sht.Protect
    Next
End If
Sheets(1).Activate
End Sub

How do I put that in the code above? Thanks!

Well, on a whim, I went out to this location, plugged in a wireless adapter with the existing IP Info and bam, the camera server could see the TREE, GATE SWITCH and ultimately, the camera. So I guess next is to find out why this was the fix and narrow down on the permanent solution.

@Pete-S said in Camera Server Can't Ping Network Device:

@garak0410 said in Camera Server Can't Ping Network Device:

My unrealistic management said to get this up tonight but I only have access to the camera server which is not pinging the TREE device. So will work with what I've got for now.

You may need to bring out the big guns.

Install wireshark on the camera server and record the network traffic to see what really happens.

If you've never used wireshark before, it will be a good opportunity to learn.

To me the symptoms does sound like a misconfigured subnet mask or something lacking a default gateway somewhere, as @scottalanmiller mentioned. But it could be something else too.

I'll get it installed...it is odd this worked for 2 weeks and then bam, stopped. And yet my laptop connected to the same network (when I am there) can go all the way to the camera.

I am remotely connected to the camera server now so will install Wireshark and will research how to use it in this case...I've used it a few times before.

My unrealistic management said to get this up tonight but I only have access to the camera server which is not pinging the TREE device. So will work with what I've got for now.