Systemdirectory eines Remotesystems mit WMI ermitteln

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

Function SysDirRemSys(ByVal _sSystem As String, ByVal _sUser As String, ByVal _sPassword As String) As String
        Dim sW32Segment As String = String.Empty
        Dim options As System.Management.ConnectionOptions

        options = New System.Management.ConnectionOptions()


        options.Username = _sUser
        options.Password = _sPassword

        Dim scope As System.Management.ManagementScope


        Try
            scope = New System.Management.ManagementScope( _
               "\\" & _sSystem & "\root\cimv2", options)
            scope.Connect()
        Catch ex As Exception
            Return (ex.Message & " Error while Connecting!")
            Exit Function
        End Try



        sW32Segment = "Win32_OperatingSystem"
       
        Dim query As System.Management.ObjectQuery
        query = New System.Management.ObjectQuery("SELECT * FROM " & sW32Segment)

        Dim searcher As System.Management.ManagementObjectSearcher
        searcher = New System.Management.ManagementObjectSearcher(scope, query)

        Dim queryCollection As System.Management.ManagementObjectCollection
        queryCollection = searcher.Get()

        Dim mo As System.Management.ManagementObject
        Dim strR As String = String.Empty
        Dim strS As String = String.Empty

        Dim cimobject As System.Management.ManagementClass = New System.Management.ManagementClass(sW32Segment)
        Dim moc As System.Management.ManagementObjectCollection = cimobject.GetInstances()


        For Each mo In queryCollection

            If _stopMode = True Then Exit For

            Try

                strS = Trim(mo("SystemDirectory").ToString)
                Dim sRoot As New DirectoryInfo(Trim(mo("SystemDirectory").ToString))

                strR = sRoot.Root.ToString
                strR = strS.Replace(":\", "$\")

            Catch ex As Exception
                Return ex.Message
            End Try
        Next

        strS = "\\" & _sSystem & "\" & strR


        Return strS


End Function