vbs скрипт

[}{OTT@БЬ)Ч]

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

'Запуск 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

[ros.pro]

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

на

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

[}{OTT@БЬ)Ч]

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

[ros.pro]

}{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

[ToNY667]

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

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-я платформа нужна?

[}{OTT@БЬ)Ч]

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

[ros.pro]

}{OTT@БЬ)Ч, так ты попробуй, как я посоветовал, должно помочь.

[}{OTT@БЬ)Ч]

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

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

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

[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)

[}{OTT@БЬ)Ч]

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