Example of share folder on a remote computer

[Werbes]

Hi,

I have not access to the example scripts site muttley - så i post my example here :-)

Func ShareRemoteFolder($Computer, $FolderToShare, $ShareName, $ShareDesc)
    if FileExists(@TempDir & "\ShRmFl.vbs") Then
        FileDelete(@TempDir & "\ShRmFl.vbs")
    EndIf
    FileWriteLine(@TempDir & "\ShRmFl.vbs", 'Set objWMIService = GetObject ("winmgmts:\\' & $Computer & '\root\cimv2")' & @crlf & 'Set objNewShare = objWMIService.Get("Win32_Share")' & @CRLF & 'errReturn = objNewShare.Create ("' & $FolderToShare & '", "' & $ShareName & '", 0, 1000, "' & $ShareDesc &'.")' & @crlf)
    RunWait(@ComSpec & " /c " & "cscript " & @TempDir & "\ShRmFl.vbs")
EndFunc

/Emil

[d3mon]

Hi,

I have not access to the example scripts site muttley - så i post my example here :-)

Func ShareRemoteFolder($Computer, $FolderToShare, $ShareName, $ShareDesc)
    if FileExists(@TempDir & "\ShRmFl.vbs") Then
        FileDelete(@TempDir & "\ShRmFl.vbs")
    EndIf
    FileWriteLine(@TempDir & "\ShRmFl.vbs", 'Set objWMIService = GetObject ("winmgmts:\\' & $Computer & '\root\cimv2")' & @crlf & 'Set objNewShare = objWMIService.Get("Win32_Share")' & @CRLF & 'errReturn = objNewShare.Create ("' & $FolderToShare & '", "' & $ShareName & '", 0, 1000, "' & $ShareDesc &'.")' & @crlf)
    RunWait(@ComSpec & " /c " & "cscript " & @TempDir & "\ShRmFl.vbs")
EndFunc

/Emil

If you have access here and not exemple script....perhaps you use explorer haha use firefox or go to this link : http://www.autoitscript.com/forum/index.php?showforum=9