cmdr_paule

Hallo Scripter, ich muss mit VBScript ein Script zum Vereinen von PDFs schreiben. Ich habe ein Verzeichnis, wo die die Quelldateien drin liegen. Diese lasse ich in ein Array schreiben, das dann wie folgt aussieht: -------------------------------------------------------------------- | 123-01.pdf | 123-02.pdf | 123-03.pdf | 567-01.pdf | 567-02.pdf | ... -------------------------------------------------------------------- Jetzt muss es mir gelingen jeweils die Dateien zu separieren, die am Anfang die selbe Nummer haben (also z.B. 123-01.pdf, 123-02.pdf, 123-03.pdf). Meine Einlese-Funktion sieht momentan so aus: Private Function GetFiles (ByVal strPath) Dim objFolder Dim arrFiles, arrTemp, arrForReklNr Dim strFile, strFileName, strRekl Set objFolder = objFSO.GetFolder(strPath) Set arrFiles = objFolder.Files For Each strFile In arrFiles arrTemp = Split(strFile, "\") strFileName = arrTemp(4) Wscript.Echo strFileName Next Set objFolder = Nothing Set arrFiles = Nothing End Function Mir fehlt jetzt irgendwie der Ansatz, wie ich die entsprechenden Dateien aus dem Array bekomme und damit weiter arbeiten kann. Könnt Ihr mir nen Tipp geben?

Hallo Comunity, ich muss eine Anwendung, die auf eine SQL Express Datenbank aufsetzt zum Laufen bringen (ACMP). Dazu verwende ich SQL Express 2005. Ich habe nun das Problem, dass ich den SQL Port 1433 auf der Maschine nicht erreiche, obwohl der SQL Dienst läuft und auch der SQL Server Configuration Manager anzeigt, dass die DB läuft. Ohne diesen Port bekomme ich leider auch die Anwendung nicht zum Laufen. Ich habe bereits eine De- und Neuinstallation von SQL Express vorgenommen, leider ohne Erfolg. Hat jemand noch eine Idee woran es liegen könnte?

Hi Leute, also ich habe nun eine für mich akzeptable Lösung gefunden! Ich lese erst die bestehenden Computernamen des Feldes aus und füge diese und den neuen Computernamen dem Attribut hinzu. Anbei mein Skript: Option Explicit Dim objContainer Const ADS_PROPERTY_APPEND = 3 Set objContainer=GetObject("LDAP://OU=MyUsers,DC=domain,DC=local") ModifyUsers objContainer 'cleanup Set objContainer = Nothing WScript.Echo "Finished" Private Function ModifyUsers(ByVal objContainer) Dim objUser, strWSbefore objContainer.Filter = Array("user") For Each objUser in objContainer strWSbefore = objUser.userWorkstations objUser.Put "userWorkstations", strWSbefore & ",computer2" objUser.SetInfo Next End Function Danke für die Unterstützung.

Ich bin heute noch auf etwas gestoßen! Das Attribut "userWorkstations" scheint KEIN Multivalued Feld zu sein. Auf den MSDN Seiten, wo das Attribut beschrieben ist, wird nämlich folgende Eigenschaft genannt: Is-Single-Valued: True (User-Workstations Attribute (Windows)) Dann ist es wahrscheinlich nicht möglich, einen neuen Wert zu den bereits bestehenden hinzuzufügen. Ich werde nun versuchen als erstes die bestehenden Werte auszulesen und diese dann mit den neuen erneut in das Atrribut zu schreiben.

Ja diese Info habe ich auch gelesen. Leider behebt das nicht mein Problem, denn mein gepostetes Skript ersetzt alle bestehenden Einträge! Ich möchte aber einen neuen hinzufügen!

also, ich habe nun folgendes Skript zusammen gebastelt: Option Explicit Dim objContainer Const ADS_PROPERTY_APPEND = 3 Set objContainer=GetObject("LDAP://OU=Template Users,OU=Users,OU=companyname,DC=domain,DC=local") ModifyUsers objContainer 'cleanup Set objContainer = Nothing WScript.Echo "Finished" Sub ModifyUsers(ByRef objContainer) Dim objUser objContainer.Filter = Array("user") For Each objUser in objContainer objUser.PutEx ADS_PROPERTY_APPEND, "userWorkstations", Array("test") objUser.SetInfo Next End Sub Diese Skript funktioniert auch, aber es ersetzt mir die bereits vorhandenen Werte. Ich möchte aber einen Computernamen hinzufügen zu den bereits bestehenden. Ich habe gelesen, dass die PutEx Methode mit der ADS_PROPERTY_APPEND Variable Werte zu einem Multivalue Feld hinzufügt. Ich weiß aber nicht genau, ob das Attribut "userWorkstations" ein solches Multivalue Feld ist. Hat jemand eine Idee?

Hallo an alle, ich möchte bei allen Usern einer OU im Active Directory das Attribut "userWorkstations" ändern und einen Computer hinzufügen, an dem sich die Anwender anmelden können. Ich habe dazu ein VB-Skript gefunden, wo ich das für einen einzelnen Useraccount machen kann: Set objUser = GetObject _ ("LDAP://cn=Ken Myer,ou=Finance,dc=fabrikam,dc=com") objUser.Put "userWorkstations", "atl-ws-01,atl-ws-02,atl-ws-03" objUser.SetInfo Kann mir jemand helfen, das für eine gesamte OU umzusetzen? (Wird doch wahrscheinlich irgendwie mit einer FOR Schleife geregelt?!)

Hallo, kann jemand spezifizieren, welche Rechte ein Domänen Benutzer bzw., eine globale Sicherheitsgruppe haben muss, damit sie sich das Eventlog (Security) eines Domänencontrollers über das Netzwerk ansehen und exportieren kann? Hintergrund ist der, dass wir dem Kunden nach einem IT Audit Einsicht darin gewähren sollen. Diese Aufgabe soll nun der IT Koordinator übernehmen, der ansonsten in der Domäne normaler Domänen-Benutzer ist. Wir wollen ihm natürlich keine Admin Rechte einräumen.

Ich habe einmal ein Programm-Ablauf-Plan symbolisch für eine Datei erstellt:

Hallo zusammen, ich möchte gern meinen unaufgeräumten MP3 Ordner mit Hilfe eines VB Scriptes aufräumen bzw. die Dateien in eine saubere Struktur kopieren. Ausgangslage: Ich habe einen Ordner, in dem MP3 Dateien verschiedener Interpreten liegen. Die Dateien haben alle sauber gepflegte ID3Tags (also Titel, Artist etc.). Ziel: Ich benötige ein Skript, das ich auf diesen Ordner ansetzen kann, den Artist einer MP3 ausliest und an einem anderen Speicherort kopiert, sofern die Datei dort nicht vorhanden ist. Das soll gemacht werden, bis alle Dateien im Quellordner durch sind. Dabei ist zu sagen, dass ich im Ziel ein bestimmtes Prinzip der Anordnung der verzeichnisse habe. In erster Ebene habe ich die Anfangsbuchstaben des Alphabets und dann kommt ein Verzeichnis mit dem Namen des Interpreten. Darin liegen dann die Songs der Interpreten. (Bsp: ...\Musik\A\Alphaville) Ich habe dazu ein Skript im Netz gefunden, das bereits die ID3Tag-Informationen auslesen kann, aber man muss hier Dateinamen angeben: Dim MyString(127) objMP3 = InputBox("Filename", "Enter the MP3 "&_ "file to read...") Set FSO = CreateObject("Scripting.FileSyste"&_ "mObject") Set Mp3File = FSO.OpenTextFile(objMP3, 1, False, 0) sBuffer = Mp3File.ReadAll For i = 0 To 124 MyString(i) = Chr(Asc(right(sBuffer, i + 1))) Next For x = 0 To 124 c = 124 - x If c > 94 and c <= 127 Then title = title & mystring© If c > 64 and c <= 94 Then artist = artist & mystring© If c > 34 and c <= 64 Then album = album & mystring© If c > 30 and c <= 34 Then albumyear = albumyear & mystring© If c > 0 and c <= 30 Then comment = comment & mystring© If c = 0 then genre = mystring© Next WScript.Echo("Title: " & title) WScript.Echo("Artist: " & artist) WScript.Echo("Album: " & album) WScript.Echo("Year: " & albumyear) WScript.Echo("Comment: " & comment) WScript.Echo("Genre: " & genre) Könnt Ihr mir auf die Sprünge helfen, wie man das Skript erweitern kann?

so ich habe jetzt einmal folgendes probiert: - habe nach dem o. g. Artikel von MS die PassivePortRange angepasst und lediglich einen Port eingestellt: 5500-5500 (hierbei ist zu erwähnen, dass man nicht alle Ports > 1024 benutzen kann, da sonst der FTP Dienst nicht mehr startet! ich musste Ports ab 5500 verwenden, warum auch immer?!) - auf meinem Router habe ich den Port 5500 dann auch weitergeleitet D.h. nochmal zusammenfassend: Ich habe in der IIS Konsole den TCP Port auf 878 geändert. Wenn ich im LAN einen FTP Client unter Angabe dieses Ports mit dem Server im passiven Modus verbinde, funkioniert dies ohne Probleme. Für den Zugriff von außen, habe ich auf meinem Router den Port 878, 5500 weitergeleitet. Leider waren alle meine Bemühungen erfolglos. Von außen erreiche ich den FTP noch nicht

Man kann die Port Range also doch einstellen How To Configure PassivePortRange In IIS

Im FTP Client bekomm ich defintiv die öffentliche meines Routers.

Daraus würde ich schließen, dass ich alle Ports >1024 auf dem Router weiterleiten müsste?! Dann wäre meine Router natürlich offen, wie ein Scheunentor. Bei dem FTP von MS kann man die Port Range scheinbar nicht einstellen, die der Server dem Client beim passiven FTP anbietet. Ich werde das heute abend probieren...

Wie ich bereits erwähnte, funzt es auch mit den Standardwerten nicht. (Port 20 + 21).