myspacee Posted February 25, 2009 Share Posted February 25, 2009 Hello to all, I need to share [everyone] my local folder (eg: c:\sharemeplease\ ) Is possibile using native AI function ? Thank you for help, m. Link to comment Share on other sites More sharing options...
myspacee Posted February 25, 2009 Author Share Posted February 25, 2009 only way i found is create vbs and the run it if FileExists(@ScriptDir & "\uti\share_local_folder.vbs") then FileDelete(@ScriptDir & "\uti\share_local_folder.vbs") local $file_vbs_share $file_vbs_share = FileOpen(@ScriptDir & "\uti\share_local_folder.vbs", 2) ; Check if file opened for writing OK If $file_vbs_share = -1 Then MsgBox(0, "Error", "Unable to open file.") Exit EndIf ;///////////////////////////////////// create SHARE for local dir FileWrite($file_vbs_share, "Const FILE_SHARE = 0" & @CRLF) FileWrite($file_vbs_share, "Const MAXIMUM_CONNECTIONS = 25" & @CRLF) FileWrite($file_vbs_share, "strComputer = " & chr(34) & "." & chr(34) & "" & @CRLF) FileWrite($file_vbs_share, "Set objWMIService = GetObject(" & chr(34) & "winmgmts:" & chr(34) & " & " & chr(34) & "{impersonationLevel=impersonate}!\\" & chr(34) & " & strComputer & " & chr(34) & "\root\cimv2" & chr(34) & ")" & @CRLF) FileWrite($file_vbs_share, "Set objNewShare = objWMIService.Get(" & chr(34) & "Win32_Share" & chr(34) & ")" & @CRLF) FileWrite($file_vbs_share, "errReturn = objNewShare.Create _" & @CRLF) FileWrite($file_vbs_share, "(" & chr(34) & @ScriptDir & chr(34) & ", " & chr(34) & "sharefon" & chr(34) & ", FILE_SHARE, _" & @CRLF) FileWrite($file_vbs_share, "MAXIMUM_CONNECTIONS, " & chr(34) & "Repository for Fonera capture" & chr(34) & ")" & @CRLF) FileClose($file_vbs_share) Any other way ? m. Link to comment Share on other sites More sharing options...
ptrex Posted February 28, 2009 Share Posted February 28, 2009 @myspacee maybe this can get you going Const $FILE_SHARE = 0 Const $MAXIMUM_CONNECTIONS = 25 $strComputer = "." $objWMIService = ObjGet ("winmgmts:\\" & $strComputer & "\root\cimv2") $objNewShare = $objWMIService.Get("Win32_Share") $errReturn = $objNewShare.Create ("C:\Test", "PublicShare", $FILE_SHARE, $MAXIMUM_CONNECTIONS, "Public share me.") Regards ptrex Contributions :Firewall Log Analyzer for XP - Creating COM objects without a need of DLL's - UPnP support in AU3Crystal Reports Viewer - PDFCreator in AutoIT - Duplicate File FinderSQLite3 Database functionality - USB Monitoring - Reading Excel using SQLRun Au3 as a Windows Service - File Monitor - Embedded Flash PlayerDynamic Functions - Control Panel Applets - Digital Signing Code - Excel Grid In AutoIT - Constants for Special Folders in WindowsRead data from Any Windows Edit Control - SOAP and Web Services in AutoIT - Barcode Printing Using PS - AU3 on LightTD WebserverMS LogParser SQL Engine in AutoIT - ImageMagick Image Processing - Converter @ Dec - Hex - Bin -Email Address Encoder - MSI Editor - SNMP - MIB ProtocolFinancial Functions UDF - Set ACL Permissions - Syntax HighLighter for AU3ADOR.RecordSet approach - Real OCR - HTTP Disk - PDF Reader Personal Worldclock - MS Indexing Engine - Printing ControlsGuiListView - Navigation (break the 4000 Limit barrier) - Registration Free COM DLL Distribution - Update - WinRM SMART Analysis - COM Object Browser - Excel PivotTable Object - VLC Media Player - Windows LogOnOff Gui -Extract Data from Outlook to Word & Excel - Analyze Event ID 4226 - DotNet Compiler Wrapper - Powershell_COM - New 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