Перейти к содержанию

vbs скрипт


Рекомендуемые сообщения

'********************************************************************

'Запуск 1С Предприятие 8.2

'с окном выбора баз из списка

'

'********************************************************************

const HKEY_CURRENT_USER = &H80000001

const HKEY_LOCAL_MACHINE = &H80000002

Const OverwriteExisting = True

Const ForReading = 1

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WSHNetwork = WScript.CreateObject("WScript.Network")

Set WshShell = CreateObject("WScript.Shell")

Do While WSHNetwork.username = ""

WScript.Sleep 250

Loop

strComputer = WshNetwork.ComputerName

Set objEnv = WshShell.Environment("process")

strUserName = WshNetwork.UserName

strUserProfile = WshShell.ExpandEnvironmentStrings("%userprofile%")

strFolderName = strUserProfile & "\Application Data\1C\1CEStart\"

If objFSO.FolderExists(strFolderName) Then

else

objFSO.CreateFolder(strUserProfile & "\Application Data\1C")

objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart")

end if

objFSO.CopyFile "c:\install\default\ibases.v8i" , strFolderName, OverwriteExisting

if msgbox ( "Уважаемые пользователи!" & vbnewline &_

"Перед запуском 1C проверьте наличие требуемых для работы принтеров." & vbnewline &_

"Нажмите OK для открытия окна установки принтеров", 1, "Установка принтеров")=1 then

wshShell.Run "c:\print\printexplorer.exe /n,/root,c:\print\Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}", 1

end if

Set colGroups = GetObject("WinNT://" & strComputer & "")

colGroups.Filter = Array("group")

For Each objGroup In colGroups

For Each objUser in objGroup.Members

if objUser.Name = strUserName Then

' Wscript.Echo objGroup.Name

' Wscript.Echo objUser.Name

Select Case objGroup.name

case "Administrators"

wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE

Case "1C_Users"

If objFSO.FolderExists(strFolderName) Then

else

objFSO.CreateFolder(strUserProfile & "\Application Data\1C")

objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart")

end if

objFSO.CopyFile "c:\install\default\Extended\ibases.v8i" , strFolderName, OverwriteExisting

wshShell.Run """%systemdrive%\Program Files\1cv82\8.2.14.540\bin\1cv8.exe"" enterprise /DisableStartUpMessages", 1, FALSE

Case Else

End Select

end if

Next

Next

Wscript.Quit(0)

При входе на сервер сразу запускается 1с, нет ни пуска ни рабочего стола, при удалении файла скрипта на сервер вообще не заходит, выкидывает после авторизации, как его можно поменять или изменить чтобы запускался и пуск и рабочий стол??? Heeeelp=D

Ссылка на комментарий

поменял ничего, захожу на сервер удаленно под своей учеткой, запрашивает установку принтеров, нажимаю "ок" пуска нет и открывается 1с, нажимаю отмена все нормально, я бы мог так оставить, но надо убрать эту штуку(((

Ссылка на комментарий

}{OTT@БЬ)Ч, вообще обе строки должны запускать эксплорер. Но не запускают, потому что пользователь не входит в группу админов.

Перед

wshShell.Run """%systemdrive%\Program Files\1cv82\8.2.14.540\bin\1cv8.exe"" enterprise /DisableStartUpMessages", 1, FALSE

добавь

wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE
Ссылка на комментарий

а не лучше ли прописать не

wshShell.Run """%systemdrive%\Program Files\1cv82\8.2.14.540\bin\1cv8.exe"" enterprise /DisableStartUpMessages", 1, FALSE

а

wshShell.Run """%systemdrive%\Program Files\1cv82\common\1cestart.exe"" enterprise /DisableStartUpMessages", 1, FALSE

или обязательно 14-я платформа нужна?

Ссылка на комментарий

я не писал этот скрипт, я просто пользователь 1с, и наш сисадмин сделал такую фигню, и теперь при входе на сервер, вылазит только окно 1с, нет ни пуска ничего, тока 1с, это нам сделали чтобы мы якобы неиграли, а мы работать теперь нормально не можем, мне нужно просто чтобы был пуск итд, чтобы все было по умолчанию, а сисадмин намутил, удаляя этот файл .vbs на сервер под своей учеткой вообще не заходит так как скрипт не выполняется(((

Ссылка на комментарий

вот скрины http://pixs.ru/showimage/Tochechniy_2365419_7797675.jpg когда захожу выводит это, а когда нажимаю "да" то выводит это http://pixs.ru/showimage/Tochechniy_5295626_7797716.jpg если "отмена" то все нормально, но нужно сделать так чтобы ничего этого не вылазило

Добавлено спустя 1 минуту 33 секунды:

ros.pro пробовал, все равно вылазит((

Ссылка на комментарий

чтобы вообще ничего не вылазило? тогда так:

'********************************************************************

'Запуск 1С Предприятие 8.2

'с окном выбора баз из списка

'

'********************************************************************

const HKEY_CURRENT_USER = &H80000001

const HKEY_LOCAL_MACHINE = &H80000002

Const OverwriteExisting = True

Const ForReading = 1

On Error Resume Next

Set objFSO = CreateObject("Scripting.FileSystemObject")

Set WSHNetwork = WScript.CreateObject("WScript.Network")

Set WshShell = CreateObject("WScript.Shell")

Do While WSHNetwork.username = ""

WScript.Sleep 250

Loop

strComputer = WshNetwork.ComputerName

Set objEnv = WshShell.Environment("process")

strUserName = WshNetwork.UserName

strUserProfile = WshShell.ExpandEnvironmentStrings("%userprofile%")

strFolderName = strUserProfile & "\Application Data\1C\1CEStart\"

If objFSO.FolderExists(strFolderName) Then

else

objFSO.CreateFolder(strUserProfile & "\Application Data\1C")

objFSO.CreateFolder(strUserProfile & "\Application Data\1C\1CEStart")

end if

objFSO.CopyFile "c:\install\default\ibases.v8i" , strFolderName, OverwriteExisting

if msgbox ( "Уважаемые пользователи!" & vbnewline &_

"Перед запуском 1C проверьте наличие требуемых для работы принтеров." & vbnewline &_

"Нажмите OK для открытия окна установки принтеров", 1, "Установка принтеров")=1 then

wshShell.Run "c:\print\printexplorer.exe /n,/root,c:\print\Printers.{2227A280-3AEA-1069-A2DE-08002B30309D}", 1

end if

Set colGroups = GetObject("WinNT://" & strComputer & "")

colGroups.Filter = Array("group")

For Each objGroup In colGroups

For Each objUser in objGroup.Members

if objUser.Name = strUserName Then

' Wscript.Echo objGroup.Name

' Wscript.Echo objUser.Name

Select Case objGroup.name

case "Administrators"

wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE

Case "1C_Users"

wshShell.Run "%systemdrive%\windows\explorer.exe", 1, FALSE

Case Else

End Select

end if

Next

Next

Wscript.Quit(0)

Ссылка на комментарий

Проблема решена, ros.pro пробовал твой скрипт, он помог, но скрипт от Гризлика был более идеален, с его скриптом не вылазило окно выбора нажатия "да" либо "отмена", спасибо всем за помощь, сори за копипаст темы http://ulanovka.ru/forum/viewtopic.php?t=389507

Ссылка на комментарий

Пожалуйста, войдите, чтобы комментировать

Вы сможете оставить комментарий после входа в



Войти
  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...