Jump to content

thumb

Members
  • Gesamte Inhalte

    376
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von thumb

  1. Hallo Norbert,

     

    danke für Deine Antwort!

     

    Gar nicht.

     

    Tja, das wird nicht gehen, wenn es der Kunde wünscht.

     

    Wird etwas unübersichtlich, oder?

     

    Ja, schon, aber das Benutzerkonto direkt in die lokale Gruppe ist es auch nicht, oder?

     

    Wenn überhaupt, dann wäre das der einzig sinnvolle Weg. Über welche Größenordnung sprechen wir denn hier?

     

    2500 Rechner Tendenz steigend.

     

    Das mit den eingeschränkten Gruppen ist doch für Benutzerkonten gedacht, die an allen Rechnern loakale Admins sein sollen, oder?

     

    Dank und Gruß, THUMB

  2. Hallo zusammen,

     

    wie fügt ihr einzelne Benutzer auf einzelnen Rechnern der lokalen Admingruppe hinzu?

     

    Legt Ihr für jeden Rechner eine globale Gruppe an, die den Benutzer enthält und die Mitglied der lokalen Admingruppe wird?

     

    Oder macht ihr dies per GPO?

     

    Ich suche praktikable Lösungen für XP-Rechner, die sich in einem AD befinden UND eine für XP-Rechner die sich in einem NDS befinden.

     

    Besten Dank, Gruß THUMB

  3. Hallo,

     

    Excel Sheet mit VBS (kleines Bsp. anbei) öffnen, hier kannst Du nun jede x-te Reihe wie auch immer verarbeiten. Die Eigenschaft des Objektes sollte Dir auch in VBA zur Verfügung stehen.

     

    excelPath = WScript.Arguments(0)
    
    
    Set objExcel = CreateObject("Excel.Application")
    
    objExcel.DisplayAlerts = 0
    
    REM open (path, confirmconversions, readonly)
    objExcel.Workbooks.open excelPath, false, true
    
    REM How many worksheets are in this Excel documents
    workSheetCount = objExcel.Worksheets.Count
    
    intIndex = 2
    
    REM Loop through each worksheet
    For counter = 1 to workSheetCount
    
    
    Set currentWorkSheet = objExcel.ActiveWorkbook.Worksheets(counter)
    REM how many columns are used in the current worksheet
    usedColumnsCount = currentWorkSheet.UsedRange.Columns.Count
    REM how many rows are used in the current worksheet
    usedRowsCount = currentWorkSheet.UsedRange.Rows.Count
    
    REM What is the topmost row in the spreadsheet that has data in it
    top = currentWorksheet.UsedRange.Row
    REM What is the leftmost column in the spreadsheet that has data in it
    left = currentWorksheet.UsedRange.Column
    
    
    
    Set Cells = currentWorksheet.Cells
    REM Loop through each row in the worksheet 
    For row = 0 to (usedRowsCount-1)
    
    	REM Loop through each column in the worksheet 
    	For column = 0 to usedColumnsCount-1
    		REM only look at rows that are in the "used" range
    		curRow = row+top
    		REM only look at columns that are in the "used" range
    		curCol = column+left
    		REM get the value/word that is in the cell 
    		word = Cells(curRow,curCol).Value
    		REM display the column on the screen
    		'WScript.Echo (word)
    
    
    
    		ListUsers strDomain, word, intIndex
    	Next
    Next
    
    REM We are done with the current worksheet, release the memory
    Set currentWorkSheet = Nothing
    Next
    
    objExcel.Workbooks(1).Close
    objExcel.Quit
    
    Set currentWorkSheet = Nothing
    REM We are done with the Excel object, release it from memory
    Set objExcel = Nothing

     

    Gruß, thumb

  4. Hallo zusammen,

     

    sollte auch mit FTYPE und ASSOC (CommandLine) gehen...

     

    Hier ´ne Batch dazu:

     

    @echo off
    
    IF (%1)==() GOTO USAGE
    
    GOTO RUNSCRIPT
    
    :USAGE
    
    ECHO.
    ECHO.
    ECHO USAGE:
    ECHO ------
    ECHO ASSOCFTYPE EXTENSION DESCRIPTION PROGRAMM
    ECHO.
    ECHO FOR EXAMPLE:
    ECHO ------------
    ECHO ASSOCFTYPE .TST TESTFILE NOTEPAD.EXE
    ECHO.
    ECHO All files with extension .TST now opened with notepad!
    ECHO.
    ECHO.
    
    
    PAUSE
    
    GOTO END
    
    :RUNSCRIPT
    
    ASSOC %1=%2 
    FTYPE %2=%3
    ASSOC %1=%2
    
    IF NOT ERRORLEVEL==0 GOTO ERROR
    
    GOTO :END
    
    :ERROR
    
    COLOR48
    
    ECHO.
    ECHO.
    ECHO An error occurs!
    ECHO.
    ECHO.
    
    
    :END
    

     

    Inhalt in CMD kopieren und Batch wie folgt ausführen:

     

    BATCH .TST TESTFILE NOTEPAD.EXE

     

    Ergebnis: Dateien mit der Endung .TST werden mit dem Notepad geöffnet.

     

    Gruß, Thumb

  5. Hallo zusammen,

     

    danke für die Antworten.

     

    Die Benutzer sollen lokale Drucker installieren können; den Artikel

     

    A description of the user rights that a user must have to install or modify a local printer in Windows XP or Windows 2000

     

    habe ich so verstanden, dass der Benutzer Mitglied der Gruppe Hauptbenutzer sein muss UND das Privileg "Load/Unload Device Drivers" haben muss.

     

    Daher die Nummer mit den Hauptbenutzern.

     

    Gruß, thumb

  6. Hallo Lucky7,

     

    Tipp: Zerlege Dein Gesamtproblem in Teilprobleme, z.B. 1.Auf Ordner zugreifen, 2.Bestimmten Dateityp auslesen etc., hierfür hat Dir NilsK ja schon das FileSystemObject nahegelegt.

     

    Um nach Zeichenketten in der Datei zu suchen gibt es String Funktionen (Suche im WWW nach "VBS Functions").

     

    Um mit VBS anzufangen, kannst Du ausserdem das "Script Center" von Microsoft benutzen: Willkommen im TechNet Script Center

     

    Du wirst sehen, wenn Du erst einmal angefangen hast, macht es richtig Spass und der Erfolg kommt ganz von alleine.

     

    Viele Grüße, thumb

  7. Hallo bLUEaNGEL,

     

    folgendes Script erzeugt Shortcuts und setzt dessen Eigenschaften:

     

    Create shortcut (VBScript) - Windows Server Cookbook

     

    Gruß, thumb

     

    PS: Wenns unbedingt ´ne Batch sein muss, hilft Dir vielleicht dies:

     

    http://www.robvanderwoude.com/amb_shortcuts.html

     

    PPS: Guckmal, der gute NilsK hat in einem anderen Beitrag einen link angegeben, der Dir helfen sollte:

    http://www.optimumx.com/download/#Shortcut

  8. Hallo zusammen,

     

    es existieren zwei Tabellen

     

    TSC_TreeRights

     

    mit den Spalten:

     

    ID, TreeID, DBUser, UserRight

    und

     

    TSC_TreeDefinition

     

    mit den Spalten:

     

    ID, TreeID, Type

     

    Mit folgender Abfrage erhalte ich die TSC_TreeDefinition.TreeID die nicht in TSC_TreeRights.TreeID enthalten sind und deren Type dem Wert 'ComputerGroupTree' entspricht:

     

    USE TSC

     

    SELECT TSC_TreeDefinition.TreeID

    FROM TSC_TreeDefinition

    WHERE TSC_TreeDefinition.TreeID NOT IN (SELECT TSC_TreeRights.TreeID FROM TSC_TreeRights)

    AND TSC_TreeDefinition.Type = 'ComputerGroupTree'

     

    So weit so gut.

     

    Die TreeIDs die mir diese Abfrage ausgibt, mus ich nun in die Tabelle TSC_TreeRights einfügen.

     

    Kann mir jemand einen Tipp geben, ich steh´ grad voll auf dem Schlauch?

     

    Dank und Gruß, thumb

  9. Hallo zusammen,

     

    ich benötige für eine größeres VB-Script eine Routine zum FTP Upload.

     

    Da ich wenn möglich nicht zusätzliche ActiveX Controls auf dem Server (Windows 2003) bereitstellen möchte, wäre mir die Nutzung der FTP.EXE am liebsten. Wenn ich FTP.EXE via WScript.Run extern aufrufe, kann ich leider kein Error Handling einbauen (oder doch?!), sprich, ich kann nicht überprüfen, ob der Datei Upload erfolgreich abgeschlossen werden konnte.

     

    Hat jemand einen Tipp für mich?

     

    Dank und Gruß, thumb

  10. Hallo zusammen,

     

    XP, SP2: Trotz erteilen des Rechtes "Laden und Entfernen von Gerätetreibern" wird beim Anschluss eines USB-Scanners die Authentifizierungsmaske (Adminkennwort angeben...) angezeigt. Auch das Hinzufügen des betroffenen Kontos zur Power User Gruppe hat daran nichts geändert. Was mache ich falsch?

     

    Dank und Gruß, thumb

     

    Dass die Authentifizierungsmaske angezeigt wird, ist normal, siehe folgenden Artikel. Problem somit gelöst.

     

    http://support.microsoft.com/kb/326473/en-us

     

    Gruß, thumb

×
×
  • Neu erstellen...