[Python] Enumerate Win2k domain
Sub-Zero
Sub-Zero a fastwebnet.it
Gio 15 Feb 2007 13:50:48 CET
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
-------------- parte successiva --------------
Un allegato HTML è stato rimosso...
URL: http://lists.python.it/pipermail/python/attachments/20070215/271b7d73/attachment.html
Maggiori informazioni sulla lista
Python