sammy2ooo

Hm, wie schauts mit Window Scaling aus? Ist das auf allen Rechnern aktiv? http://http://www.mcseboard.de/windows-forum-lan-wan-32/problem-tcp-ip-performance-wan-135316.html Hast du mal einen Trace gemacht? Was sagt netio dazu? ARS Computer und Consulting GmbH – NETIO Benchmark

Hallo Leute Was stimmt mit meiner Funktion nicht. Die Drucker werden gemapt und dann gleich wieder entfernt... kann mir das einfach nicht erklären...:confused: Das File printermap.txt hat das Format: Function mapPrinters() Set objFSO = CreateObject("Scripting.FileSystemObject") Set objWshShell = CreateObject("WScript.Shell") Set objNet = CreateObject("WScript.Network") strPrintServer = "printserver.domain.local" boolDebugTest = False strPrinterMap = "\\domain.local\netlogon\printermap.txt" ' dirty hack needed for some thinclients... If objWshShell.ExpandEnvironmentStrings("%clientname%") = "%clientname%" Or objWshShell.ExpandEnvironmentStrings("%clientname%") = "Console" Then strComputerName = objWshShell.ExpandEnvironmentStrings("%computername%") Else strComputerName = objWshShell.ExpandEnvironmentStrings("%clientname%") End If ' check if file exists If objFSO.FileExists(strPrinterMap) Then Set objTemp = objFSO.GetFile(strPrinterMap) ' check for file size if objTemp.Size <> 0 Then Set objFile = objFSO.OpenTextFile(strPrinterMap) ' delete the currently mapped network printers For i = 1 To objPrinters.Count Step 2 ' check if really have a network printer If Left(objPrinters.Item(i), 2) = "\\" Then Call objNet.RemovePrinterConnection(objPrinters.Item(i), True, true) End If Next ' loop till EOF Do Until objFile.AtEndOfStream arrRecord = Split(objFile.ReadLine, ":") ' have we found our machine? If arrRecord(0) = strComputerName Then If boolDebugTest Then WScript.Echo "host found: ", arrRecord(0) strDefaultPrinter = arrRecord(1) If boolDebugTest Then WScript.Echo "default printer: ", arrRecord(1) ' get printer information Set objPrinters = objNet.EnumPrinterConnections On Error Resume Next ' iterate through array an conect printers For i = 1 To UBound(arrRecord) If boolDebugTest Then WScript.Echo "mapping printer: ", arrRecord(i) objNet.AddWindowsPrinterConnection("\\" & strPrintServer & "\" & arrRecord(i)) Next ' set default printer objNet.SetDefaultPrinter("\\" & strPrintServer & "\" & strDefaultPrinter) End If Loop Else WScript.Echo "file is empty" End If Else WScript.Echo "printermap does not exist" End If End Function

sagt mal Leute... C++ und Kix? :suspect: Nicht euer Ernst oder? Wie gross sind die Umgebungen in denen ihr arbeitet?

tritt bei einem anderen Laptop auch eine starke Fragmentierung auf? Was sagt mturoute dazu? Kannst nen Wireshark-Dump upen?

hm, also wenns um die Inventarisierung von über 500 Rechnern geht, würde ich mir ernsthaft überlegen eine Software wie z.B. Track-IT zuzulegen...

Teil 4 ....................... ' search for pics and get size ElseIf typeToCheck = "picture" Then If debugTest Then WScript.Echo "Checking picture size..." For Each objFile In objCurrentFolder.Files If InStr(LCase(objFile.Name), LCase(".bmp")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".gif")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".jpg")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".jpeg")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".png")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".psd")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".eps")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".tif")) Then if debugTest then WScript.Echo "pic file found " & objFile.Name currentSize = currentSize + objFile.Size End If Next For Each objNewFolder In objCurrentFolder.SubFolders If debugTest Then WScript.Echo CurrentSize If debugTest Then WScript.echo objNewFolder.Path CheckFolder objNewFolder, typeToCheck, currentSize Next CheckFolder = currentSize Else WScript.Echo "Tpye not implemented..." WScript.Quit End If

Teil 3 Function CheckFolder(objCurrentFolder, typeToCheck, currentSize) ' search for soundfiles and get size If typeToCheck = "sound" Then if debugTest Then WScript.Echo "Checking sound size..." For Each objFile In objCurrentFolder.Files If InStr(LCase(objFile.Name), LCase(".mp3")) Then if debugTest Then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".wmv")) Then if debugTest then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".wav")) Then if debugTest then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".mp4")) Then if debugTest then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size End If Next For Each objNewFolder In objCurrentFolder.SubFolders If debugTest Then WScript.Echo CurrentSize If debugTest Then WScript.echo objNewFolder.Path CheckFolder objNewFolder, typeToCheck, currentSize Next CheckFolder = currentSize ' search for videos and get size ElseIf typeToCheck = "video" Then if debugTest Then WScript.Echo "Checking video size..." For Each objFile In objCurrentFolder.Files If InStr(LCase(objFile.Name), LCase(".avi")) Then if debugTest Then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".mpg")) Then if debugTest Then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".mpeg")) Then if debugTest then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size ElseIf InStr(LCase(objFile.Name), LCase(".mod")) Then if debugTest then WScript.Echo "vid file found " & objFile.Name currentSize = currentSize + objFile.Size End If Next For Each objNewFolder In objCurrentFolder.SubFolders If debugTest Then WScript.Echo CurrentSize If debugTest Then WScript.echo objNewFolder.Path CheckFolder objNewFolder, typeToCheck, currentSize Next CheckFolder = currentSize .........

Hier die Lösung, nicht schön aber funktioniell... hab jetzt 5 graue Haare mehr... Teil 1 rootFolder = "c:\temp" destFile = "C:\output.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolders = objFSO.GetFolder(rootFolder) debugTest = False For Each objFolder In objFolders.SubFolders If objFSO.FolderExists(objFolder.path & "\documents") Then Set objCurrentFolder = objFSO.GetFolder(objFolder.path & "\documents") ' get folder size (recursive) Foldersize = objCurrentFolder.Size sndFileResultSize = CheckFolder(objCurrentFolder, "sound", 0) vidFileResultSize = CheckFolder(objCurrentFolder, "video", 0) picFileResultSize = CheckFolder(objCurrentFolder, "picture", 0) ' construct data data = objCurrentFolder.Path & vbTab & vbTab & Round(FolderSize/1024/1024) & " MB -> 100 %" & VbCrLf &_ "PicSize: " & vbTab & vbTab & vbTab & Round(picFileResultSize/1024/1024) & " MB -> " & Round(Round(picFileResultSize/1024/1024)/(100/(Foldersize/1024/1024))) & " %" & VbCrLf &_ "SndSize: " & vbTab & vbTab & vbTab & Round(sndFileResultSize/1024/1024) & " MB -> " & Round(Round(sndFileResultSize/1024/1024)/(100/(Foldersize/1024/1024))) & " %" & VbCrLf &_ "VidSize: " & vbTab & vbTab & vbTab & Round(vidFileResultSize/1024/1024) & " MB -> " & Round(Round(vidFileResultSize/1024/1024)/(100/(Foldersize/1024/1024))) & " %" & VbCrLf WScript.Echo data ' write data to file append destFile, data ' reset var FolderSize = 0 End If Next – Teil 2 Sub append(ByVal file, ByVal text) Const forReading = 1 Const forWrting = 2 Const debug = False Set objFSO = CreateObject("Scripting.FileSystemObject") ' wenns datei schon gibt If objFSO.FileExists(file) Then if debug then WScript.Echo "append: appending to: " + file Set objTemp = objFSO.GetFile(file) if objTemp.Size <> 0 Then if debug then WScript.Echo "append: file size is not zero!" ' datei ist nicht leer, also lies inhalt Set objTextFile = objFSO.OpenTextFile(file, forReading) ' read file till end Do Until objTextFile.AtEndOfStream strContents = objTextFile.ReadAll Loop ' close file in reading mode objTextFile.Close ' open file in writing mode Set objTextFile = objFSO.OpenTextFile(file, forWrting) ' und fuege content an strContents = strContents & VbCrLf & text ' schreibe content objTextFile.Write(strContents) ' schliesse file objTextFile.Close Else if debug then WScript.Echo "append: file is empty..." ' file ist leer Set objTextFile = objFSO.OpenTextFile(file, forWrting) strContents = text ' schreibe content objTextFile.Write(strContents) ' schliesse file objTextFile.Close End If Else if debug Then WScript.Echo "append: file does not exist, creating..." ' ansonten file anlegen objFSO.CreateTextFile(file) ' im write mode öffnen Set objTextFile = objFSO.OpenTextFile(file, forWrting) ' string schreiben objTextFile.Write(text) ' file wieder schliessen objTextFile.Close End If End Sub

hm.... der Fileserver ist aber nicht eine 08/15 Windows 2000 Workstation mit ein paar Shares drauf oder? Wenn doch koennte es sein, dass du an das 10-Connection-Limit kommst...

Hallo Günther Sorry, da habe ich mich wohl etwas undeutlich ausgedrückt... gemeint war:

Vielleicht hilft dir das hier weiter... remoteShellCommand.vbs Dim objController, objRemoteScript Set objController = CreateObject("WshController") WScript.Echo "trying on host: " & host Set objRemoteScript = objController.CreateScript("\\host\share$\someScript.vbs", host) objRemoteScript.Execute Do While objRemoteScript.Status <> 1 WScript.Sleep 100 Loop remoteCommand.vbs Call exeute("host.domain.local", "wuauclt /resetauthorization /detectnow") Sub exeute(ByRef host, ByRef parameter) Set objWMIService = GetObject("winmgmts:\\" & host & "\root\cimv2:Win32_Process") Error = objWMIService.Create(parameter, null, null, intProcessID) If Error = 0 Then Wscript.Echo "started with a process ID of " & intProcessID & "." Else Wscript.Echo "could not be started due to error " & Error & "." End If End Sub

Situation: Homefolderstruktur der User: Alle Word, Excel, PDFs, MP3s etc. liegen unter "documents" Aufgabe: Finde heraus wieviel Speicherplatz (Prozent) bei einem allgemeinem Speicherverbrauch von über 500MB für Bilder, Videos und Musik verwendet wird. :confused: Die Ansprüche der Vorgesetzten steigen... Hiermal ein Script mit welchem ich den allgemeinen Speicherplatzverbrauch pro User im Ordner "documents" ermitteln kann: rootFolder = "e:\userdata" destFile = "e:\output.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolders = objFSO.GetFolder(rootFolder) For Each objFolder In objFolders.SubFolders If objFSO.FolderExists(objFolder.path & "\documents") Then Set objCurrentFolder = objFSO.GetFolder(objFolder.path & "\documents") ' get folder size (recursive) Foldersize = objCurrentFolder.Size ' construct data data = objCurrentFolder.Path & vbTab & vbTab & vbTab & vbTab & Round(FolderSize/1024/1024) & " MB" WScript.Echo data ' write data to file Call append(destFile, data) ' reset var FolderSize = 0 End If Next Sub append(ByVal file, ByVal text) Const forReading = 1 Const forWrting = 2 Const debug = False Set objFSO = CreateObject("Scripting.FileSystemObject") ' wenns datei schon gibt If objFSO.FileExists(file) Then if debug then WScript.Echo "append: appending to: " + file Set objTemp = objFSO.GetFile(file) if objTemp.Size <> 0 Then if debug then WScript.Echo "append: file size is not zero!" ' datei ist nicht leer, also lies inhalt Set objTextFile = objFSO.OpenTextFile(file, forReading) ' read file till end Do Until objTextFile.AtEndOfStream strContents = objTextFile.ReadAll Loop ' close file in reading mode objTextFile.Close ' open file in writing mode Set objTextFile = objFSO.OpenTextFile(file, forWrting) ' und fuege content an strContents = strContents & VbCrLf & text ' schreibe content objTextFile.Write(strContents) ' schliesse file objTextFile.Close Else if debug then WScript.Echo "append: file is empty..." ' file ist leer Set objTextFile = objFSO.OpenTextFile(file, forWrting) strContents = text ' schreibe content objTextFile.Write(strContents) ' schliesse file objTextFile.Close End If Else if debug Then WScript.Echo "append: file does not exist, creating..." ' ansonten file anlegen objFSO.CreateTextFile(file) ' im write mode öffnen Set objTextFile = objFSO.OpenTextFile(file, forWrting) ' string schreiben objTextFile.Write(text) ' file wieder schliessen objTextFile.Close End If End Sub Gibts vielleicht schon ein Tool oder Script, mit welchem man diese Aufgabe bewältigen kann? Treesize und Konsorten hab ich bereits durch... Ich kann mich erinnern mal etwas über VBScript Filter gelesen zu haben, hab davon allerdings kein Plan... kann mir jemand einen Schubs in die richtige Richtung geben? Generel scheint das ein Feature zu sein, was noch im Performance Snapin fehlt...

@Dacu, seid ihr schon weitergekommen? Wir haben den Fall an den HP Support weitergegeben...

Hallo Ist es möglich den Export Pfad via PRF File im Outlook 2007 vorzugeben? Das allwissende Orakel Google hat mir dazu keine brauchbaren Treffer geliefert... Hat mir jemand nen Link in dem alle möglichen Parameter aufgelistet werden? Grüsse

Hm, big piece of sh** das Teil... hast du es mal mit einem Firmware-Update versucht?

http://www.ietf.org/rfc/rfc1323.txt Abschnitt 2.1 und weiter unten Window Scaling spielt sich nicht auf dem Application Layer ab sondern auf dem Transport Layer und sollte somit unabhängig von NetBIOS sein.

Kennste die schon? Kompakter-WLAN-NAS-Server von Iomega Gibts auch in grösserer Ausführung

hm hast vielleicht mal youtube abgeklappert? Ansonsten bin ich noch über das hier gestolpert: Hawk Software - HawkVoice codecs wahrscheinlich nicht genau das was du suchst... ansonsten evtl. mal ne email an den Typen...

Also, bei mir hat das wunderbar funktioniert...habe für die WindowSize ein Vielfaches der MSS (1460 Byte) genommen, also: 44 x 1460 = 64240 x 2^2 = 256960 Client: TcpWindowSize Dword dezimal = 256960 Tcp1323Opts Dword dezimal = 3 Server: TcpWindowSize Dword dezimal = 256960 Tcp1323Opts Dword dezimal = 3 GlobalMaxTcpWindowSize="256960" hat bei mir keine Wirkung gezeigt... Versuch mal die gleichen Werte wie ich zu verwenden!

Hm interessant... mit den TCP Options hatte ich mich noch nie beschäftigt. Wenn ich das bei meiner WinXP und W2K3 Kiste setze scheinen die TCP Options gesetzt zu werden. Sprich DWORD Tcp1323Opts 3 = decimal und die Window Size habe ich gelassen wie sie war... Mir ist noch nicht klar, wo ich den eigentlichen Skailierungsfaktor setzen kann... Hab das noch gefunden vielleicht hilfts ja... TCP Receive Window Size and Window Scaling Werd morgen weiterexperimentieren...

das musst du mir erklaeren...vor allem wie du auf die Werte kommst... Die Window Size wird von der eigentlichen Applikation bestimmt und gibt die groesse des Empfangspuffers an... ich weiss nicht genau was du mit scaling meinst. Meinst du vielleicht congestion control?

Hm so schlecht ist die Latenz mit 20ms garnicht.... ohne deinen Trace genau gelesen zu haben würde ich mal mit den Treiber experimentieren, sprich auf den neusten Stand bringen. Kannst du das quantifizieren? Was geht denn wirklich durch die Leitung? Wie misst du das? Weisst ja, wer misst misst Mist...

Dacu, bei mir tritt das Problem mit den modelspezifischen Treibern nicht auf. Die HP UPD PCL5e Treiber für Windows XP scheinen davon auch nicht betroffen zu sein, d.h. entweder eine Konfigurationsgeschichte am W2k3 Server oder am Treiber.... Printerportkonfiguration kann ich mittlerweile auch ausschliessen... P.S: Gibts für den SPOOLSS ein RFC? Finde weder über google noch über rfc-editor was... wenn man dieses besser verstehen würde, wäre man auch schon weiter...

Danke fuer die Antwort. Den HP UPD PCL 5e hab ich bereits durch... genau gleiches Problem... ich denke den Drucker selber kann man ausschliessen (DNS Settings), der Fehler muss an der Treiber und/oder Printserverconfig liegen.

Ich habe eine Ordnerstruktur in etwa so: c:\temp\a\xyz c:\temp\a\documents\ c:\temp\a\... c:\temp\b\bla\ c:\temp\b\documents\ c:\temp\... Jetzt möchte ich von jedem Ordner "documents" die Grösse bestimmen und das Ergebnis in eine Datei schreiben. Aber irgendwie hakt es bei: "Call CheckFolder(objCurrentFolder)" Wie es ausschaut enthält im Macro CheckFolder objCurrentFolder.SubFolders überhaupt keine Elemente... Kann mir jemand erklären wo der Logikfehler liegt? rootFolder = "c:\temp" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolders = objFSO.GetFolder(rootFolder) WScript.Echo objFolders.Path For each objFolder In objFolders.SubFolders If objFSO.FolderExists(objFolder.path & "\documents") Then Set objCurrentFolder = objFSO.GetFolder(objFolder.path & "\documents") Call CheckFolder(objCurrentFolder) Else WScript.Echo "noe ordner existiert nicht " End If Next Sub CheckFolder(objCurrentFolder) Const debug = False Const outputFile = "test.txt" Wscript.Echo objCurrentFolder.Path If debug then WScript.Echo "Now in CheckFolder" WScript.Echo "jo" For Each objFolder In objCurrentFolder.SubFolders FolderSize = objFolder.Size data = objFolder.Path & vbTab & vbTab & vbTab & vbTab & Round(FolderSize/1024/1024) & "MB" FolderSize = 0 if debug then WScript.Echo "CheckFolder: " & data Call append(outputFile, data) Next ' Recurse through all of the folders For Each objNewFolder In objCurrentFolder.subFolders CheckFolder(objNewFolder) Next If debug Then WScript.Echo "Now leaving CheckFolder" End Sub Sub append(...) ... End Sub – Oh Gott, man muss ja nicht gleich das Rad neuerfinden... habe nicht gewusst, dass objFolder.size auch subfolders beinhaltet... :rolleyes: VBScript Folder Object Size Property rootFolder = "c:\temp" destFile = "output.txt" Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolders = objFSO.GetFolder(rootFolder) For Each objFolder In objFolders.SubFolders If objFSO.FolderExists(objFolder.path & "\documents") Then Set objCurrentFolder = objFSO.GetFolder(objFolder.path & "\documents") ' get folder size [b]Foldersize = objCurrentFolder.Size[/b] ' construct data data = objCurrentFolder.Path & vbTab & vbTab & vbTab & vbTab & Round(FolderSize/1024/1024) & "MB" WScript.Echo data ' write data to file Call append(destFile, data) ' reset var FolderSize = 0 End If Next