Что нового
Автор:
Фильтры

Конвертировать VBS в AutoIt

S

Svet89

Новичок
Сообщения
5
Репутация
0
Доброго времени суток! Помогите сконвертировать скрипт VBS в AutoIt:
Код: 
strcomputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

strCount = 1

For Each objitem in colitems
If strCount = 1 Then
strIPAddress = Join(objitem.IPAddress, ",")
IP = stripaddress
strCount = strCount + 1
Else
End If

next

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("10.10.10.10")
strSubnetMask = Array("255.255.254.0")
strGateway = Array("10.10.10.1")
strGatewayMetric = Array(1)
strDNSServers = Array("20.20.20.20","30.30.30.30")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
Next
Спасибо
 
S

sngr

AutoIT Гуру
Сообщения
1,010
Репутация
408
Код: 
$objWMIService = ObjGet("winmgmts:\\.\root\CIMV2")
$get_network = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
Local $IPAddress[1]=["10.10.10.10"]
Local $Gateway[1]=["10.10.10.1"]
Local $SubnetMask[1]=["255.255.254.0"]
Local $GatewayMetric[1]=[1]
Local $DNSServers[2]
$DNSServers[0]="20.20.20.20"
$DNSServers[1]="30.30.30.30"
For $Property In $get_network
	$Property.EnableStatic($IPAddress, $SubnetMask)
	$Property.SetGateways($Gateway, $Gatewaymetric)
	$Property.SetDNSServerSearchOrder($DNSServers)
Next
 
S

SharkyEXE

Новичок
Сообщения
134
Репутация
0
Здравствуйте.

Помогите сконвертировать скрипт VBS в AutoIt:

Код: 
On Error Resume Next

WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_

WScript.Quit 0
 
S

sngr

AutoIT Гуру
Сообщения
1,010
Репутация
408
Код: 
 $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")
$obj = ObjGet("WinMgmts:\\.\root\cimv2")
$obj.Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_
$oMyError = 0
Func MyErrFunc()
EndFunc
как-то так.
 
S

SharkyEXE

Новичок
Сообщения
134
Репутация
0
sngr
Здравствуйте.

1) Приношу извинение, вот полный код
Код: 
Option Explicit

On Error Resume Next

WScript.CreateObject("WbemScripting.SWbemLocator").ConnectServer(".", "root\cimv2").Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_

WScript.Quit 0

Добавлена 1я строка
Остальное - без изменений

2) А никак нельзя, очень хочется, две строки сделать в одну?
Код: 
$obj = ObjGet("WinMgmts:\\.\root\cimv2")
$obj.Get("Win32_Printer.DeviceID='Epson Stylus C20 Series (M)'").Delete_
 
Последнее редактирование:
Вам необходимо войти или зарегистрироваться, чтобы здесь отвечать.
Автор темы Похожие темы Форум Ответы Дата
P Конвертировать скрипт *.vbs в *.au3 Общие вопросы по AutoIt 1
Oki Как конвертировать между форматом графического объекта и массивом цветов пикселей (в обе стороны)? Общие вопросы по AutoIt 26
В Как конвертировать файл windows 1251 в utf-8 Общие вопросы по AutoIt 2
R Как скриптом - сконвертировать закрытый файл doc - в файлы jpg (постранично) Общие вопросы по AutoIt 4
A Конвертировать FILETIME в дату Общие вопросы по AutoIt 3
Похожие темы
Конвертировать скрипт *.vbs в *.au3
Как конвертировать между форматом графического объекта и массивом цветов пикселей (в обе стороны)?
Как конвертировать файл windows 1251 в utf-8
Как скриптом - сконвертировать закрытый файл doc - в файлы jpg (постранично)
Конвертировать FILETIME в дату
Верх