vbs. как сделать выбор пользователя?

9 г. назад

#0 Stim

16.04.2015 17:37:59

Нужно или выбор или какая-то попытка/исключение

примерный код:

UserName = "Admin"
Pass= ""
CodeBlock= "123"

Set v8 = CreateObject("V83.COMConnector")
ConnectString  =  "srvr='" + ServerName + ":1541'; ref='" + BaseName +  "'; Usr='" + UserName +  "'; pwd='" + Pass +  "'; UC='" + CodeBlock +  "';"
Set  Connect = V8.Connect(ConnectString)

в базе, где есть пользователь Admin - такой код прекрасно отработает.
Но как быть с базами, в которых вообще пользователей нет? И добавлять не планируется в общем-то.

аналогичный вопрос к коду

Set WshShell=CreateObject("WScript.Shell")

	'Выгрузка базы

	DumpIBFile = """" & foldername & "\" & Base & "_" & FormatDateTime(Now, 2) & ".dt"""

		ConnectString = """C:\Program Files (x86)\1cv8\8.3.5.1443\bin\1CV8.EXE"" CONFIG /S "& ServerName & ":1541" &"\"& BaseName &" /N Admin /P " &" /DumpIB " & DumpIBFile &"/UC "  & CodeBlock

	RetCode = WshShell.Run(ConnectString,1,true)

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

Ответы: (1)

#1 andrewks
16.04.2015 17:38:49

Stim Но как быть с базами, в которых вообще пользователей нет?
подставлять пользователя, который там есть, не?

Ответы: (2)
#2 Stim
16.04.2015 17:40:20

andrewks подставлять пользователя, который там есть, не?
пля. в базе нет пользователей ИБ. пусто. все заходят без авторизации

Ответы: (4) (5)
#3 Stim
16.04.2015 17:41:55

есть 2 базы - в одной админ и все-все-все, в другой - проходной двор, там нет пользователей ИБ.
скрипт - один на 2 базы, каждую базу он обходит в цикле.
нужно, чтобы он имел возможность подключиться как под админом, так без
#4 andrewks
16.04.2015 17:42:17

(2) ты косноязычен. что у тебя тогда за выбор пользователя в заголовке топика?

Ответы: (5)
#5 Stim
16.04.2015 17:46:25

16.04.2015 17:48:11 отредактировано Stim

andrewks (2) ты косноязычен. что у тебя тогда за выбор пользователя в заголовке топика?
выбор пользователя - значит, реализовать автоматический выбор пользователя в скрипте - либо админ, либо пусто, либо кто-то еще.
например, чтобы написать в скрипте:
UserName1 = "Admin"
UserName2 = "Иванов"
UserName3 = ""
и последовательно под ними попробовать запускать каждую базу в списке, так, чтобы и скрипт не отвалился

Ответы: (6)
#6 andrewks
16.04.2015 17:49:08

(5) тебе try-catch для vbs надо, что-ли?

#7 andrewks

16.04.2015 17:50:02

On Error Resume Next
Err.Clear
Set myObj = CreateObject("SomeKindOfClassThatDoesNotExist")
If Err.Number <> 0 Then
    WScript.Echo "Error: " & Err.Number
    WScript.Echo "Error (Hex): " & Hex(Err.Number)
    WScript.Echo "Source: " &  Err.Source
    WScript.Echo "Description: " &  Err.Description
    Err.Clear
End If
On Error Goto 0
WScript.Echo "This text will always print."

http://stackoverflow.com/questions/4999364/try-catch-end-try-in-vbscript

#8 Stim
16.04.2015 17:53:38

ок, пасиб