MikaP

So habe mein Script nun so weit, das ich Netzwerkdrucker hinzufügen kann, weiß jemand noch, wie ich die Gruppen hinzufügen kann, die auf den Drucker Zugriff haben?

Hallo Zusammen, Ich kann jetzt Drucker hinzufügen, leider habe ich nun ein anderes Problem ;( Ich würde dem Drucker auch gerne eine IP zuweisen, wie z.b eine Beschreibung, weiß jemand, welche Eigenschaften diese Objekte haben? Set oPrinter = CreateObject("PrintMaster.PrintMaster.1") Set xPrinter = CreateObject("Printer.Printer.1") – Nvm. hab es ;)

Sry, hatte ich übersehen, habe die Datei nun ;) -> testen

Diese DLL scheint, aber weder unter XP oder Vista zu existieren ;(

Hallo Zusammen, Hätte jemand eine Idee, wie man einen Drucker durch VBS hinzufügen kann? Die WMI Klasse "Win32_Printer" hat zwar die Funktion AddPrinterConnection, aber diese ist leider noch nicht implentiert und deshalb nicht funktionsfähig. Microsoft, bietet diese Möglichkeit an: Set WshNetwork = WScript.CreateObject("WScript.Network") PrinterPath = "\\printserv\DefaultPrinter" WshNetwork.AddWindowsPrinterConnection PrinterPath Doch hierbei erhalte ich immer wieder Fehlermeldungen ;( Danke im Voraus

Hab es nun hinbekommen, mit dem folgenden Code kann man in einer Domäne von jedem Computer die Port Geschwindigkeit auslesen, soweit man Rechte hat. Mh, die Formatierung scheint hier nicht richtig zu funktionieren ;( Option Explicit On Error Resume Next Const strFilePath = "c:\" Const strFileName = "PortSpeed.txt" dim objSearchDomains, strDomain, strDomainList, arrDomainList(), iCount, strDomainInput, strDomainExist, objAnalyzeDomain dim objFs, objFile, objWbemServices dim colNetAdapterList, colNetAdapterSpeed dim strPC dim strAdapterName, strAdapterSpeed iCount = 0 strDomainExist = false set objSearchDomains = GetObject("WinNT:") for each strDomain in objSearchDomains if iCount <= 0 then ReDim arrDomainList(iCount) arrDomainList(iCount) = strDomain.Name else ReDim Preserve arrDomainList(iCount) arrDomainList(iCount) = strDomain.Name end if iCount = iCount + 1 strDomainList = strDomainList & strDomain.Name & vbCr next if strDomainList <> "" then strDomainInput = InputBox("Bitte geben Sie die gewünschte Domain ein." & vbCr _ & "Gefundene Domains:" & vbCr & strDomainList, "Domain Eingeben") if strDomainInput <> "" then for iCount=0 to uBound(arrDomainList) if StrComp(arrDomainList(iCount), uCase(strDomainInput)) = 0 then strDomainExist = true exit for end if next if strDomainExist = true then set objAnalyzeDomain = GetObject("WinNT://" & strDomainInput) objAnalyzeDomain.Filter = array("Computer") set objFs = CreateObject("Scripting.FileSystemObject") set objFile = objFs.CreateTextFile(strFilePath & strFileName, true) for each strPC in objAnalyzeDomain set objWbemServices = GetObject("winmgmts:\\" & strPC.Name & "\root\cimv2") if Err.Number = 462 then objFile.WriteLine "PC: " & strPC.Name & " ||" & " NetController: " & "n/a" & " ||" & " PortSpeed: " & "n/a" & vbCr Err.Clear else set colNetAdapterList = objWbemServices.ExecQuery("Select Name from Win32_NetworkAdapter where AdapterType = 'Ethernet 802.3'") for each strAdapterName in colNetAdapterList set colNetAdapterSpeed = objWbemServices.ExecQuery("Select CurrentBandwidth from Win32_PerfRawData_Tcpip_NetworkInterface where Name = '" & strAdapterName.Name & "'") for each strAdapterSpeed in colNetAdapterSpeed if strAdapterSpeed.CurrentBandwidth <> "" then objFile.WriteLine "PC: " & strPC.Name & " ||" & " NetController: " & strAdapterName.Name & " ||" & " PortSpeed: " & (strAdapterSpeed.CurrentBandwidth / 1000) / 1000 & " MBit/s" & vbCr end if exit for next next end if objFile.WriteLine vbCr next objFile.close MsgBox "Die Daten wurden erfolgreich in die Datei " & strFilePath & strFileName & " geschrieben.", 0, "Schreiben erfolgreich" else MsgBox "Diese Domain existiert nicht.", 0, "Fehler: Domain existiert nicht." end if else MsgBox "Es wurde keine Domain eingegeben.", 0, "Fehler: Keine Domain Eingabe" end if else MsgBox "Es konnte keine Domains gefunden werden.", 0, "Fehler: Kein Domains vorhanden" end if

:( das hört sich, aber gar nicht gut an, den mein Problem ist das ich von einem Domain Controller aus, alle PC's in der Domain durchgehen muss und deren Port Geschwindigkeit messen soll, dann taucht nämlich ein Problem auf ... ich werde später ein backup von meiner notebook festplatte machen(mein Notebook ist kaputt) und den code dann hier posten und weiter auf's Problem eingehen.

Guten Tag Zusammen, Ich habe eine Frage zum Thema WMI Scripting mit VbSkript. Ich habe folgendes Problem, normalweise gibt man die Eigenschaften einer Klasse in WMI so aus: dim strPC, strNetworkAdapter strPC = MeinPC set objWbemServices = GetObject("winmgmts:\\" & strPC & "\root\cimv2") set objNetworkAdapter = objWbemServices.ExecQuery("Select * from Win32_NetworkAdapter where AdapterType = 'Ethernet 802.3'") for each strNetworkAdapter in objNetworkAdapter 'Nur den Namen des Netzwerkadapters ausgeben ... MsgBox strNetworkAdapter.Name next Nun möchte ich, aber nur eine Eigenschaft ausgeben und diese direkt in einer Variable speichern und das ohne den for each. Jemand eine Idee? Danke im Voraus