Deep2007
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Помогите, пожалуйста, изменить скрипт vbs (я в них=0). Есть сервер (на Linux) и клиентские машины на WIN XP PRO SP2 (и IE6). В автозагрузке на каждой клиентской есть такой скрипт:
Код: On Error Resume Next
Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")
objIE.Navigate "about:blank"
While objIE.Busy
Wscript.Sleep 1000
Wend
objIE.FullScreen = True
objIE.MenuBar = False
objIE.StatusBar = False
objIE.ToolBar = False
objIE.Resizable = False
objIE.Height = 150
objIE.Width = 300
objIE.Top = 50
objIE.Left = 50
objIE.Document.Write "<html><head><title>Login</title></head>"
objIE.Document.Write "<body style=""overflow:hidden;"" background=""C:\WINDOWS\system32\ntimage.gif""><div align=center>"
objIE.Document.Write "<b>User name:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=text size=20 name=uname><br>"
objIE.Document.Write "<b>Password:</b><br><input style=""width:200px;background:silver;color:black;border:0px;"" type=password size=20 name=upass onEnter='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<hr style=""border: 0px; height: 1px;""><input type=hidden name=eOK value=0>"
objIE.Document.Write "<input style=""width:100px;background:blue;color:white;border:0px;"" type=button name=bOK value=OK onClick='JavaScript:eOK.value=""1"";'>"
objIE.document.write "<input type=hidden name=eCancel value=0>"
objIE.Document.Write " <input style=""width:100px;background:blue;color:white;border:0px;"" type=button value=Cancel onClick='JavaScript:eCancel.value=""1"";'>"
objIE.Document.Write "</form></div></body></html>"
objIE.Visible = True
While objIE.Busy
Wscript.Sleep 1000
Wend
While 0=0
WScript.Sleep 1000
if objIE.document.all.eCancel.value = "1" then
objIE.Quit
WScript.Quit
end if
if objIE.document.all.eOK.value = "1" then
UMountAll()
MountAll()
if Err.Number = 0 then
objIE.Quit
WScript.Quit
else
objIE.document.all.eOK.value = "0"
objIE.document.all.upass.value = ""
MsgBox "Ошибка подключения 0x" & CStr(Hex(Err.Number)) & vbNewLine & "Обратитесь в отдел техподдержки.", 48, "WSH Logon Script Error"
Err.Clear
end if
end if
Wend
Sub IE_OnQuit()
WScript.Quit
End Sub
Sub UMountAll()
Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
objNetwork.RemoveNetworkDrive colDrives.Item(i), true, true
Next
End Sub
Sub MountAll()
set net = Wscript.CreateObject("Wscript.Network")
if (net.MapNetworkDrive("L:", "\\itc1\l", ,objIE.document.all.uname.value, objIE.document.all.upass.value) <> 0) Then
MsgBox "Ошибка" & vbNewLine & "Обратитесь в отдел техподдержки", 48, "WSH Logon Script Error"
end if
if (net.MapNetworkDrive("H:", "\\itc1\homes", ,objIE.document.all.uname.value, objIE.document.all.upass.value) <> 0) Then
MsgBox "Ошибка" & vbNewLine & "Обратитесь в отдел техподдержки", 48, "WSH Logon Script Error"
end if
if (net.MapNetworkDrive("O:", "\\itc1\common", ,objIE.document.all.uname.value, objIE.document.all.upass.value) <> 0) Then
MsgBox "Ошибка" & vbNewLine & "Обратитесь в отдел техподдержки", 48, "WSH Logon Script Error"
end if
if (net.MapNetworkDrive("T:", "\\itc1\t", ,objIE.document.all.uname.value, objIE.document.all.upass.value) <> 0) Then
MsgBox "Ошибка" & vbNewLine & "Обратитесь в отдел техподдержки", 48, "WSH Logon Script Error"
end if
Set wshSheLL = WScript.CreateObject("WScript.Shell")
if (wshSheLL.Run("net time \\itc1 /set /yes", 0, TRUE) <> 0) Then
MsgBox "Ошибка синхронизации времени!", 48, "WSH Logon Script Error"
end if
End Sub
|
При запуске системы появляется окно для ввода логина-пароля. После ввода юзер жмет кнопку "ОК", и к его машине подключаются сетевые диски. Все работает.
Пришло время переустановить систему. После установки Win XP SP3 и IE7 скрипт перестал подключать сетевые диски. Никаких сообщений об ошибках, wcript.exe установлен, и во время работы скрипта запускается. Изменилось окно скрипта - оно развернуто на весь экран, стал отображаться заголовок окна (раньше такого не было). Встречающиеся в тексте скрипта: L, H, O, T - имена сетевых дисков.
Просьба - помогите изменить скрипт так, чтобы он работал в Win XP SP3 и IE7. |
Всего записей: 120 | Зарегистр. 22-03-2007 | Отправлено: 10:37 31-03-2011 | Исправлено: Deep2007, 10:41 31-03-2011 |
|
)
