Need to edge out the competition for your dream job? Train for certifications today.
Private Sub Command1_Click()
Dim strComputer As String
strComputer = "." ' Dot (.) equals local computer in WMI
Dim oService As Object
Set oService = GetObject("winmgmts:\\" & strComputer)
Dim colStartUp As Object
Set colStartUp = oService.InstancesOf("Win32_StartupCommand")
Dim strOut As String
For Each s In colStartUp
If strOut <> "" Then strOut = strOut & vbCrLf
strOut = strOut & s.Name & " -> " & s.Command
Open in new window
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.