[Iska]

что бы часть кода выполнялась от имени администратора домена »

Читаем:

Код:

runas /?

пользуем.

[romanss]

с помощью runas запущу cmd от имени администратора , как в это cmd записать команды netsh ?

[~Cache~]

romanss, cmd /?

romanss, runas /noprofile /user:pc-admin\admin "cmd /c netsh interface ip set address "LAN" dhcp"

[Iska]

как в это cmd записать команды netsh ? »

А зачем Вам там вообще cmd?!

[romanss]

есть порядка 200 компьютеров, на 120 IP раздается dhcp, на остальных прописана статика , бегать по всем у кого прописана статика не охота по этому нужен батник . При входе пользователя срабатывает уже батник с подключением сетевых дисков, вот в него и хотел бы добавить 2-3-5 строчек что бы при каждом заходе статику меняло на динамику. Что бы получить динамику нужно запускать "от имени локального администратора" (от имени администратора домена не срабатывает ) . может есть проще способ ( администратор домена + реестр )

х

[Iska]

по этому нужен батник . »

Или не батник. Например, WSH, PoSH.

При входе пользователя срабатывает уже батник с подключением сетевых дисков, вот в него и хотел бы добавить 2-3-5 строчек что бы при каждом заходе статику меняло на динамику. Что бы получить динамику нужно запускать "от имени локального администратора" (от имени администратора домена не срабатывает ) . может есть проще способ ( администратор домена + реестр ) »

Есть. Пересмотреть саму технологию, при которой требуются подобные выкрутасы.

[romanss]

Iska, поможете в решении данной проблемы ?

[Iska]

Помогаю: vbscript enable dhcp - Поиск в Google. И применяйте не к пользователям, а к машинам.

[romanss]

Iska, как применять к машинам а не к пользователям ?

при входе срабатывает батник

net use z: /delete
if not exist z: (net use z: \\10.10.10.55\vesna&& echo Диск z: подключен)

:: Присвоение имени
CScript /B "%~dp0\apr_files\ok_diskname.vbs">nul

в скрипте вот что
On Error Resume Next
Set objShell = CreateObject("Shell.Application")
CreateObject("Shell.Application").NameSpace("z:").Self.Name="Отдел ОК"


Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Popup "Тест скрипта "

все срабатывает до момента появления окна , тоже самое и с изменением DHCP через скрипт vbs не меняет IP
скрипт на изменение IP
On Error Resume Next

strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\" & strComputer & " ootcimv2")
Set colNicConfs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

strStatus = ""

For Each objNicConf In colNicConfs

strStatus = strStatus & "Network Adapter: " & objNicConf.Index & VbCrLf & objNicConf.Description & VbCrLf

If Not objNicConf.DHCPEnabled Then
WScript.Echo " Enabling DHCP ..."
intStatus = objNicConf.EnableDHCP

If intStatus = 0 Then
strStatus = strStatus & " - DHCP enabled successfully"
Else
strStatus = strStatus & " - Cannot enable DHCP"
End If

Else
strStatus = strStatus & "DHCP already enabled with Server: " & objNicConf.DHCPServer
End If
strStatus = strStatus & VbCrLf & VbCrLf
Next

Wscript.Echo strStatus