[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