Salve a tutti, volevo sapere qual'è la vià più breve per ottenere in python un
prg che giri più o meno come questo vbs...
main()
Sub main()
Set fso = CreateObject("Scripting.FileSystemObject")
Set wscr = CreateObject("Wscript.Shell")
Dim GlobalName
Dim MyDomain
Set GlobalName = GetObject("WinNT://WORKGROUP")
Set lg = fso.CreateTextFile("c:\log.txt", True)
For Each MyDomain in GlobalName
wmiQuery = "Select * From Win32_PingStatus Where Address = 'MyDomain.Name'"
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set objPing = objWMIService.ExecQuery(wmiQuery)
For Each objStatus In objPing
If objStatus.StatusCode = 0 Then
lg.Write MyDomain.Name & "---> " & objStatus.ProtocolAddress &vbCrLf
Else
Exit Sub
End If
Next
Next
End Sub
grazie in anticipo a tutti_______________________________________________
Python mailing list
Python@lists.python.it
http://lists.python.it/mailman/listinfo/python
