Netzlaufwerk Batch erstellen

  • VB6

    Netzlaufwerk Batch erstellen

    Hallo zusammen,

    ich habe ein einfaches Programm geschrieben mit dem es remote möglich sein soll eine Batch datei zu erstellen die alle aktuell verbundenen Netzlaufwerke enthält mit einer Profil sync vorab. Klappt auch soweit :D aber nur auf meinem Rechner X(

    Nur wenn ich das Tool von einem Rechner im Firmennetz ausführe bekomme ich immer die Fehlermedlung: Laufzeitfehler '75':
    Fehler beim Zugriff auf Pfad/Datei

    woran liegt das? ?(

    anbei der Quelltext:

    Visual Basic-Quellcode

    1. Private Sub Command1_Click()
    4. Dim EnvString As String, Indx As Integer, userLen As Integer ' Declare variables.
    5. Indx = 1 ' Initialize index to 1.
    6. Do
    7. EnvString = Environ(Indx) ' Get environment
    8. ' variable.
    9. If Left(EnvString, 9) = "USERNAME=" Then ' Check USERNAME entry.
    10. userLen = Len("USERNAME=") ' Get length.
    11. Exit Do
    12. Else
    13. Indx = Indx + 1 ' Not PATH entry,
    14. End If ' so increment.
    15. '
    16. Loop Until EnvString = ""
    18. If userLen > 0 Then
    19. benName = Right(EnvString, Len(EnvString) - userLen)
    20. Else
    21. 'GoTo userErr
    22. End If
    24. Indx = 1 ' Initialize index to 1.
    25. Do
    26. EnvString = Environ(Indx) ' Get environment
    27. ' variable.
    28. If Left(EnvString, 11) = "USERDOMAIN=" Then ' Check USERDOMAIN entry.
    29. domainlen% = Len("USERDOMAIN=") ' Get length.
    30. Exit Do
    31. Else
    32. Indx = Indx + 1 ' Not PATH entry,
    33. End If ' so increment.
    34. Loop Until EnvString = ""
    36. If userLen > 0 Then
    37. domainName = Right(EnvString, Len(EnvString) - domainlen%)
    38. Else
    39. 'GoTo userErr
    40. End If
    43. Indx = 1 ' Initialize index to 1.
    44. Do
    45. EnvString = Environ(Indx) ' Get environment
    46. ' variable.
    47. If Left(EnvString, 13) = "COMPUTERNAME=" Then ' Check USERDOMAIN entry.
    48. computerNamelen% = Len("COMPUTERNAME=") ' Get length.
    49. Exit Do
    50. Else
    51. Indx = Indx + 1 ' Not PATH entry,
    52. End If ' so increment.
    53. Loop Until EnvString = ""
    55. If userLen > 0 Then
    56. computerName = Right(EnvString, Len(EnvString) - computerNamelen%)
    57. Else
    58. 'GoTo userErr
    59. End If
    62. Dim userStart As Integer, userStr As String
    63. userStr = "%user%"
    64. userStart = InStr(1, batPath, userStr, 1)
    65. Dim batPath1, batPath2 As String
    70. ' Objekt von FS erzeugen
    71. Set Fs = CreateObject("Scripting.FileSystemObject")
    73. ' Liste der Laufwerke
    74. Set dc = Fs.Drives
    76. ' Sind Netzlaufwerke verbunden?
    77. Dim Anzahl_Netzlaufwerke
    78. Anzahl_Netzlaufwerke = 0
    79. ' Schleife ueber alle Laufwerke
    80. For Each d In dc
    81. ' Typ des Netlaufwerk falls vorhanden, dann netcon.bat sichern in netcon.old
    82. If d.driveType = 3 Then
    83. Anzahl_Netzlaufwerke = Anzahl_Netzlaufwerke + 1
    84. End If
    85. Next
    87. 'Es müssen mindestens zwei LW verbunden sein (H: und Projekt/Abteilung)
    88. If Anzahl_Netzlaufwerke > 1 And domainName <> computerName Then
    91. Open (batPath & "\netuse.bat") For Output As #1 ' Datei fuer die net use ....
    93. ' Schleife ueber alle Laufwerke
    94. Print #1, "@echo off"
    95. Print #1, "echo."
    96. Print #1, "echo."
    97. Print #1, "echo."
    98. Print #1, "echo Ihre Laufwerke werden verbunden !!!"
    99. Print #1, "echo."
    100. Print #1, "echo."
    101. Print #1, "echo."
    102. Print #1, "echo."
    103. Print #1, "echo."
    104. Print #1, "echo."
    105. Print #1, "echo Bitte haben Sie einen Moment Geduld ..."
    106. Print #1, "sleep 10"
    107. Print #1, "echo."
    109. For Each d In dc
    111. ' Typ = Netzlaufwerk
    112. If d.driveType = 3 Then
    114. ' in Batch-Datei schreiben
    116. If d.DriveLetter = "h" Or d.DriveLetter = "H" Then
    117. Print #1, "echo."
    118. End If
    120. Print #1, "net use " & d.DriveLetter & ": " & d.ShareName & " /USER:" + domainName + "\" + benName + " /p:n"
    122. End If
    123. Next
    124. Print #1, "cls"
    125. Print #1, "echo."
    126. Print #1, "echo."
    127. Print #1, "color 0a"
    128. Print #1, "net use"
    129. Print #1, "sleep 5"
    130. Print #1, "exit"
    132. MsgBox "Netzlaufwerke wurden gespeichert!"
    133. Else 'keine Netzlaufwerke verbunden
    135. MsgBox "Es sind keine Netzlaufwerke zum abspeichern verfübar, oder Sie sind nicht an einer Domäne angemeldet!"
    137. End If
    139. Close #1
    140. End Sub



    EDIT by Mad Andy:
    VB-Tag eingefügt.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Mad Andy“ ()

Facebook
Telefonspende