Source-Center Forum: Coding & more

Windows 2008 R2 Share Permissions

nightman — Thu, 02 Sep 2010 11:23:45 GMT

Hallo zusammen, ich habe ein kleines Problem.
Unter Windows 2008 gibt es einen Ordner auf dem Laufwerk D:
D:\LogDaten die Freigabe ist LogDatei$
Die Freigabe wird per Script ersrtellt.

Nun m�chte ich aber per Script zus�tzlich noch die Permissions der Freigabe �ndern.
Per default ist hier Everyone auf Read gesetzt.
Dies m�chte ich aber auf Full Control �ndern.
Wie kann ich das �ber ein VBS machen? Was unter Windows 2008 R2 funktioniert.

Danke Roland

Problem Excel Klasse

Xyrano — Thu, 26 Aug 2010 09:03:26 GMT

Hi Community,

habe da gnaz trivial eine Excel klasse und versuche grade per job da was draus zu machen.

job:

Code:

static void WorkSheet(Args _args)

{

    ExcelReporter       brp;

    ;



    brp = new ExcelReporter();



    brp.new();

}

Die Kompilier Ausgabe besagt nun das die Funktion new() nicht in der Klasse existiert! Dabei ist doch da, die sieht naemlich so aus:

Code:

void new()

{

 ;

 excelApplication   = new COM("excel.application");

 excelWorkBooks     = excelApplication.workBooks();

 excelWorkBook      = excelWorkBooks.add();

 excelWorkSheets    = excelWorkBook.worksheets();

 excelWorkSheet     = excelWorkSheets.add();



}

Sehe ich grade den Wald vor lauter Baumen nicht?

try und catch

James Blond — Wed, 25 Aug 2010 12:40:19 GMT

Gibt es in VBS so etwas wie try und catch?

Bisher fange ich das sonst folgenderma�en ab

Code:

On Error Resume Next

Set objADSysInfo = CreateObject("ADSystemIfo")

If err.Number <> 0 Then

 'Fehlermeldung

Else

SiteName = objADSysInfo.SiteName

End If

Try catch w�re sch�n oder eine elegantere L�sung

Gel�st HTML Datei auslesen

Goink — Fri, 13 Aug 2010 13:54:10 GMT

Hallo, klingt trivial, klappt aber nicht:

Ich habe eine *.htm Datei, deren Inhalt ich per VBS in eine Variable auslesen will:

Code:

 

 Set ObjHtmlFile = ObjFso.OpenTextfile(StrHTMLFilename)

   'Do While NOT ObjHtmlFile.AtEndofStream

    'StrHtmlContent = StrHtmlContent & VBCRLF & ObjHtmlFile.Readline

   'loop

   StrHtmlContent = ObjHtmlFile.Readall

Msgbox StrHTMLContent

Komischerweise wird nur das erste Zeichen "<" ausgelesen...
Schreibe ich was anderes in die Datei hinein, wird auch das erste Zeichen zur�ckgegeben.

Erstelle ich die Datei neu, gehts.
Die Datei l�sst sich mit dem editor, mit dem IE, Firefox, NP++ etc v�llig normal anzeigen.
Sie ist auch nicht besonders gro�: 6 kb

Ich steh da grade m�chtig auf dem Schlauch...

Gr��e, Goink

Code Snippet Regex

James Blond — Thu, 12 Aug 2010 11:52:52 GMT

Hier zwei Funktionen. Einmal regex suchen und ein mal regex ersetzen

PHP-Code:


Public Function fncReplace( strSource , strRegExprPattern, strReplace, blnRelaceAllOccurrences, blnIgnoreCase)

    ' Function replaces characters in strSource with strReplace if

    ' strSource:               String which should be analysed

    ' strRegExprPattern:       Regular expression describing what should be replaced

    ' strReplace:              Sting which should be used for replacement

    ' blnRelaceAllOccurrences: true=replace all occurences ; false=replace first occurence only

    ' blnIgnoreCase:           true = case insensitive

    ' For regular expressions check: http://msdn.microsoft.com/en-us/library/ms974570.aspx



    Dim objRegEx

    Set objRegEx = CreateObject("vbscript.regexp")

    With objRegEx

        .IgnoreCase = blnIgnoreCase

        .Global = blnRelaceAllOccurrences

        .MultiLine = True

        .Pattern = strRegExprPattern

        fncReplace = .Replace(strSource, strReplace)

    End With

    Set objRegEx = Nothing

End Function





Public Function fncStringFullfillsPattern( strValue2check, strRegExprPattern,  blnIgnoreCase)

    ' Function checks if Value2check fullfills pattern-description

    ' strValue2check:    String which should be analysed

    ' strRegExprPattern: regular expression describing the structure of how strValue2check should look like

    ' blnIgnoreCase:     true = case insensitive

    ' For regular expressions check: http://msdn.microsoft.com/en-us/library/ms974570.aspx



    fncStringFullfillsPattern = false

    Dim objRegEx

    Dim objMatch

    Set objRegEx = CreateObject("vbscript.regexp")

    With objRegEx

        .Global = True

        .Pattern = strRegExprPattern ' example "^[a-z0-9\-\.]{2,63}@[a-z0-9\-\.]{2,63}\.[a-z]{2,4}$"

        .IgnoreCase =  blnIgnoreCase

        Set objMatch = .Execute(strValue2check) '  example ("abcdef@g-hijkl.mn")

    End With

    If objMatch.Count > 0 Then fncStringFullfillsPattern = true

    Set objRegEx = Nothing

    Set objMatch = Nothing

End Function