Batya
|
 Posted: Fri Jun 04, 2010 13:27 Post subject: |
 |
|
Лично я против встраивания регистрации в скрипт, но если это кому-то надо, нужно в скрипт дописать процедуру:
| Code: | 'Процедура регистрации TCScript.Helper
Sub TCScriptHelperRegistration
Dim HelperPath, Sudo
'===== Изменяемые параметры ===============================
'Путь к TCWSHelp.exe
HelperPath = "%Commander_Path%\Utils\TCWSHelp\TCWSHelp.exe"
'Путь к утилите Sudo
Sudo = "%Commander_Path%\Utils\Sudo\Sudo.exe"
'==========================================================
With CreateObject("WScript.Shell")
HelperPath = .ExpandEnvironmentStrings(HelperPath)
Sudo = .ExpandEnvironmentStrings(Sudo)
If MsgBox("Вы хотите зарегистрировать ""TCScript.Helper""?", _
vbQuestion+vbYesNo, "Регистрация ""TCScript.Helper""") = vbYes Then
.Run """" & Sudo & """ """ & HelperPath & """ /REGSERVER", 7, True
End If
End With
End Sub |
Здесь укажите свой путь к TCWSHelp.exe и утилите Sudo.
А вместо строки | Code: | Set TCS = CreateObject("TCScript.Helper") |
нужно записать: | Code: | On Error Resume Next
Set TCS = CreateObject("TCScript.Helper")
If Err.Number <> 0 Then
Err.Clear
TCScriptHelperRegistration
If Err.Number = 0 Then Set TCS = CreateObject("TCScript.Helper")
If Err.Number <> 0 Then
MsgBox """TCScript.Helper"" в системе не зарегистрирован!", vbCritical, "Ошибка"
WScript.Quit Err.Number
End If
End If
On Error GoTo 0 |
_________________
Нет, я не сплю. Я просто медленно моргаю.
Last edited by Batya on Mon Jun 07, 2010 11:16; edited 2 times in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
