Krikov Posted March 6, 2006 Share Posted March 6, 2006 Hello There is any utility that convert VBS to AU3 Files ??? This Is The Code Set objShell = WScript.CreateObject("WScript.Shell") Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objDomain 'ADSI Domain object Dim objComputer 'ADSI Computer object Set objDomain = GetObject("WinNT://DomainName") objDomain.Filter = Array("computer") If objFSO.FileExists("C:\ADComputers.csv") = True Then objFSO.DeleteFile("C:\ADComputers.csv") End If Set txtOutput = objFSO.CreateTextFile ("C:\ADComputers.csv") On Error Resume Next For Each objComputer In objDomain strComputer = objComputer.Name txtOutput.Writeline strComputer Next WScript.Echo "Done!" Krikov [topic="63488"][font="Arial"]Krikov Tray Quick Menu[/font][/topic] Link to comment Share on other sites More sharing options...
MHz Posted March 6, 2006 Share Posted March 6, 2006 A VBScript to Au3 Converter is here.http://www.autoitscript.com/forum/index.ph...43&hl=vaconvert Link to comment Share on other sites More sharing options...
cppman Posted March 6, 2006 Share Posted March 6, 2006 nice... Miva OS Project Link to comment Share on other sites More sharing options...
Krikov Posted March 6, 2006 Author Share Posted March 6, 2006 Thanks This is Owsome [topic="63488"][font="Arial"]Krikov Tray Quick Menu[/font][/topic] Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now