For Each pd As System.Management.PropertyData In _
              WMIObject.Properties
                If pd.Name = "CommandLine" Then
                        Dim cl As String = WMIObject("CommandLine")
                        WMICommandLine = cl
                End If
            Next

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov