Конвертировать скрипт *.vbs в *.au3

[palexa]

Привет, может кто поможет конвертировать скрипт *.vbs в *.au3

On Error Resume Next
Dim adsinfo, ThisComp, oUser, ips, WSHShell
'strComputer = "."
Set adsinfo = CreateObject("adsysteminfo")
Set ThisComp = GetObject("LDAP://" & adsinfo.ComputerName)
Set oUser = GetObject("LDAP://" & adsinfo.UserName)
Set WshNetwork = WScript.CreateObject("WScript.Network") 

strMsg = ""
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
  & "{impersonationLevel=impersonate}!\\" _
  & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery("Select " _
  & "IPAddress from Win32_NetworkAdapterConfiguration " _
  & "WHERE IPEnabled = 'True'")

For Each IPConfig in IPConfigSet
 If Not IsNull(IPConfig.IPAddress) Then
 For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
  If Not Instr(IPConfig.IPAddress(i), ":") > 0 Then
  strMsg = strMsg & IPConfig.IPAddress(i) & vbcrlf
  End  If
 Next
 End If
Next

Thiscomp.put "description", "" + oUser.cn + " : "+ WshNetwork.UserName +" - IN - " + CStr(Now) +" -"+strMsg+""
ThisComp.Setinfo

 

[Andrey_A]

конвертировать

Вот кусок - дальше сами, на форуме есть примеры ObjGet('winmgmts...')

Local $sAdress,$colItems=ObjGet('winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2').ExecQuery("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled='True'",'WQL',48)
If IsObj($colItems)Then
  For $objItem in $colItems
    $sAdress&=$objItem.IPAddress[0]&@CRLF
  Next
  MsgBox(4096,'$sAdress',$sAdress)
EndIf