[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