Написание сценария входа для разных пользователей в VB, должно быть в состоянии сопоставить диски. Нужна помощь

Question

То, что происходит сейчас, заключается в том, что .bat файлы запускаются при входе в систему, что выполняет сопоставление дисков. Однако теперь мы хотим переключить их в сценарий VB. Однако пара проблем:

Есть 18 дисков для отображения (от f до w)

Пользователи не группируются правильно (если вообще). Я, вероятно, собираюсь поменять их на правильные группы, надеюсь, на три разные, чтобы скрипт мог искать эту группу и знать, что делать.

Он должен запустить систему под названием LUMINX (не уверен, что кто-нибудь здесь когда-либо работал с ним. Однако если у вас есть, я уверен, что вы знаете, что это из самых темных и адских глубин). Который установлен на определенный IP и под LUMINX_LIVE.

Я совершенно новичок в кодировании и никогда раньше не сталкивался с чем-то подобным. Я просмотрел несколько кодов, которые будут работать, но все, кажется, немного не в себе и не имеют то, что мне нужно.

Любая помощь будет высоко ценится.

Answer 1

Код для сопоставления диска с vbscript

Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrive "F:", "\\Server\Folder\Folder"
objNetwork.MapNetworkDrive "G:", "\\Server\Folder2\Folder2"
objNetwork.MapNetworkDrive "H:", "\\Server\Folder3\Folder3"
.......................
objNetwork.MapNetworkDrive "V:", "\\192.x.x.x\luminx_live"

Вам нужно будет изменить расположение папок, но это должно работать для вас.Не уверен насчет проблемы со светом (РЕДАКТИРОВАТЬ: включены вещи со светом).Это сервис или компьютер?Было бы полезно узнать подробности

Answer 2

Вы можете использовать следующий код для сопоставления дисков, однако он модифицирован из кода bugtussle, так как он дает пользователю сообщение об ошибке, если диск не может быть сопоставлен, это может быть полезно.

Set wshNetwork = CreateObject( "WScript.Network" )
On Error Resume Next

With wshNetwork
    .MapNetworkDrive "G:", "\\CompanyServer\Dept"
    If Err Then
        WScript.Echo "Error " & Err & " mapping drive G:"
        WScript.Echo "(" & Err.Description & ")"
    End If

    .MapNetworkDrive "H:", "\\CompanyServer\" & .UserName
    If Err Then
        WScript.Echo "Error " & Err & " mapping drive H:"
        WScript.Echo "(" & Err.Description & ")"
    End If
End With

On Error Goto 0
Set wshNetwork = Nothing