adam33

da treten Fehler auf in den if-Abfragen, ich sehe den Fehlerr nicht. Da sind 3 illegal expressions in den Anweisungen in den if Abfragen.

program rabattsatz; uses crt; const mwstsatz : real = 0.19; var nettobetrag, bruttobetrag, mwst, rabatt, Stueckzahl, Gesamtbetrag : real; begin; clrscr; Writeln('Geben sie den Nettopreis der Ware ein: '); Readln(nettobetrag); Writeln('Geben sie die Stueckzahl ein'); Readln(Stueckzahl); mwst := nettobetrag * mwstsatz; bruttobetrag := nettobetrag + mwst; Gesamtbetrag := bruttobetrag * Stueckzahl; if Gesamtbetrag <= 10 then Writeln('Sie bekommen leider keinen Rabatt') ; if Gesamtbetrag <= 20 then Gesamtbetrag = Gesamtbetrag - (Gesamtbetrag * 0.03); if Gesamtbetrag <= 50 then Gesamtbetrag = Gesamtbetrag - (Gesamtbetrag * 0.05); if Gesamtbetrag > 50 then Gesamtbetrag - (Gesamtbetrag * 0.1); writeln(Stueckzahl); writeln (nettobetrag); writeln(mwst); writeln(Gesamtbetrag); end.

Ich habe deine Vorschläge beherzigt und nun auch die case-Abfrage ÜBERARBEITET: Geht leider immer noch nichzt... program rabattsatz; uses crt; const mwstsatz : real = 0.19; var nettobetrag, bruttobetrag, mwst, rabatt, Stueckzahl, Gesamtbetrag : real; begin; clrscr; Writeln('Geben sie den Nettopreis der Ware ein: '); Readln(nettobetrag); Writeln('Geben sie die Stueckzahl ein'); Readln(Stueckzahl); mwst := nettobetrag * mwstsatz; bruttobetrag := nettobetrag + mwst; Gesamtbetrag := bruttobetrag * Stueckzahl; if Gesamtbetrag <= 10 then Writeln('Sie bekommen leider keinen Rabatt') ; if Gesamtbetrag <= 20 then Gesaamtbetrag = Gesaamtbetrag - (Gesamtbetrag * 0,03); if Gesamtbetrag <= 50 then Gesamtbetrag = Gesaamtbetrag - (Gesamtbetrag * 0,05); if Gesamtbetrag > 50 then Gesaamtbetrag - (Gesamtbetrag * 0,1); writeln(Stueckzahl); writeln (nettobetrag); writeln(mwst); writeln(Gesamtpreis); end.

Hallo, ich versuche gerade Pascal zu erarbeiten. Ich habe folgende Source geschrieben: program rabattsatz; uses crt; const mwstsatz : real = 0.19; var nettobetrag, bruttobetrag, mwst, rabatt, Stueckzahl, Gesamtbetrag : real; begin; clrscr; Writeln('Geben sie den Nettopreis der Ware ein: '); Readln(nettobetrag); Writeln('Geben sie die Stueckzahl ein'); Readln(Stueckzahl); mwst = nettobetrag * 0.19; bruttobetrag = nettobetrag + mwst; Gesamtbetrag = bruttobetrag * Stueckzahl; case Gesamtbetrag <= 10: Writeln('Sie bekommen leider keinen Rabatt') ; case Gesamtbetrag <= 20: Gesaamtbetrag = Gesaamtbetrag - (Gesamtbetrag * 0,03); case Gesamtbetrag <= 50: Gesamtbetrag = Gesaamtbetrag - (Gesamtbetrag * 0,05); case Gesamtbetrag > 50: Gesaamtbetrag - (Gesamtbetrag * 0,1); writeln(Stueckzahl); writeln (nettobetrag); writeln(mwst); writeln(Gesamtpreis); end. Ich möchte ein Programm schreiben, welches letzten Endes eine Rechnung ausgibt. Dazu zählen die unten genannten Variablen + den Rabatt in %. Da möchte ich dann noch eine Schleife maachen aebr die habe ich noch nicht drin, also "neue Rechnung j/n". Das Programm funktioniert nicht. Ich habe glaube ich mehrere grundlegende Denkfehler. Kann jemand helfen? MfG

Doch, ich sehe das als sehr schlagkräftiges Argument an, wenn man den Umstand und die Situation bedenkt, dass einem der Vorgesetzte im Nacken sitzt, der genau dieses, wenn gleich abwegig und umständlich, sehen will. Mein persönlicher Weg sähe anders aus, allerdings ist es wie es ist.

Ok, ich habe immer noch keine akkurate Lösung gefunden. Mittels einer .bat Datei müsste es etwa so funktionieren: @echo off con2prt /f If /i %computername:~0,3%==060011 Goto LB1 If /i %computername:~0,3%==402 Goto UEFA If /i %computername:~0,3%==403 Goto KFL If / i %computername:~0, 3%= = 403 Goto BvBIwuv if /i %computername:-0,3%==403 Goto Daniel End If Goto END :LB1 con2prt / cd \ \ printserver \ HL5250DN - BvB con2prt / cd \ \ printserver \ HL-4040CN Kfl. BVB Goto end :UEFA con2prt / cd \ \ printserver \ BrotherH con2prt /cd \\printserver\HPDJ6940-ÜFA Goto end :KFL con2prt / cd \ \ printserver \ HL2700CN - Kauf con2prt /cd \\printserver\BR2070N-Kauf Goto end :BvBIwuv con2prt /cd \\printserver\druckerraum3 Goto end :Daniel con2prt /cd \\printserver\HP-CLP1515-IT Goto end :end Allerdings wird es seitens anderer Positionen gerne gesehen, wenn ein vbs zustande kommt.

Ja, die Laufwerke verbindet er schon. Auch einen Drucker verbinden kann ich machen, die Betonung liegt dabei auf einen. Mit der ganzen Verschachtelung der Abfragen komme ich nicht wirklich klar. @NilsK: Danke fuer die Mühe aber es soll schon auf ein vbs hinauslaufen. @fluehmann: ich teste gerade deinen Vorschlag, doch ist das Script nicht transparent genug für einen vbs Änfänger. Wie und wo du den Drucker verbindest sehe ich. Aber die user und Gruppenabfrage ist mir nicht klar. Auch wie ich sagen kann, dass angemeldeter user Mitglied einer bestimmten -gruppe sein muss, um einen bestimmten Drucker zu bekommen. Vielleicht magst du mich bitte erleuchten. EDIT: Mir fehlt doch eigentlich nur das statement fuer: Wenn sich der eingeloggte user in der definierten Gruppe befindet dann verbinde die definierten Drucker.

Moin, versuche ein vbs zu schreiben, welchen folgendes bewerkstelligt: Lies den aktuell angemeldeten user aus dem LDAP aus, weise diesem ein Netzlaufwerk zu, wenn sich der user in einer bestimmten gruppe befindet, dann weisen diesem bestimmte Drucker zu. Ich versuche die folgendermaßen zu realisieren: Option Explicit Dim obj, domain, objsh, objenv, obj1 Dim Object Dim gruppe,user,objnet Dim objADSys Dim objPCName Dim objUSR Dim Descriptor Dim WshNetwork Dim actusr 'Ermittle den Benutzernamen Set objsh=CreateObject("wscript.shell") Set objenv=objsh.environment("process") user=objenv("username") 'Weise Laufwerke und Drucker zu Set objnet = CreateObject("wscript.network") actusr = objnet.UserName 'Standardnetzlaufwerke zuweisen objnet.MapNetworkDrive "N:", "\\fs01\daten" 'Zuweisen des Homelaufwerks 'objnet.MapNetworkDrive "H:","\\server\home\" & user 'Testen ob aktueller Benutzer Mitglied der Gruppe "LZ-PCs" ist 'Wenn ja --> Laufwerk N: zuweisen Set obj=GetObject("WinNT:" & domain & "/LZ-PCs") If (obj.ismember("WinNT:" & domain & "/" & user)) Then objnet.MapNetworkDrive "N:", "\\fs01\daten" ' Erstellen einer Printerconnection und setzen des Standarddruckers: Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\PrintServer\Ineo 250" WshNetwork.SetDefaultPrinter "\\printserver\Ineo 250" WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HP CLJ CP1510 PCL - Frau Hirsch D3" WshNetwork.SetDefaultPrinter "\\printserver\HP CLJ CP1510 PCL - Frau Hirsch D3" End If 'Testen ob aktueller Benutzer Mitglied der Gruppe "üfa-PCs" ist 'Wenn ja --> Laufwerk N: zuweisen Set obj=GetObject("WinNT:" & domain & "/üfa-PCs") If (obj.ismember("WinNT:" & domain & "/" & user)) Then objnet.MapNetworkDrive "N:", "\\fs01\daten" ' Erstellen einer Printerconnection und setzen des Standarddruckers: Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\PrintServer\Brother HL-5350DN series" WshNetwork.SetDefaultPrinter "\\printserver\Brother HL-5350DN series" WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HPDJ6940-ÜFA" WshNetwork.SetDefaultPrinter "\\printserver\HPDJ6940-ÜFA" End If 'Testen ob aktueller Benutzer Mitglied der Gruppe "BVBI-wuv-PCs" ist 'Wenn ja --> Laufwerk N: zuweisen Set obj=GetObject("WinNT:" & domain & "/BVB-wuv-PCs") If (obj.ismember("WinNT:" & domain & "/" & user)) Then objnet.MapNetworkDrive "N:", "\\bbw-fs01\daten" ' Erstellen einer Printerconnection und setzen des Standarddruckers: Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HL5250DN-BVB" WshNetwork.SetDefaultPrinter "\\printserver\HL5250DN-BVB" WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HL-4040CN Kfl,BVB" WshNetwork.SetDefaultPrinter "\\printserver\HL-4040CN Kfl,BVB" End If 'Testen ob aktueller Benutzer Mitglied der Gruppe "LZ-D.Hauer-PC" ist 'Wenn ja --> Laufwerk N: zuweisen Set obj=GetObject("WinNT:" & domain & "/LZ-D.Hauer-PC") If (obj.ismember("WinNT:" & domain & "/" & user)) Then objnet.MapNetworkDrive "N:", "\\fs01\daten" ' Erstellen einer Printerconnection und setzen des Standarddruckers: Set WshNetwork = CreateObject("WScript.Network") WshNetwork.AddWindowsPrinterConnection "\\PrintServer\HP CLJCP1510 PCL-IT" WshNetwork.SetDefaultPrinter "\\printserver\HP CLJCP1510 PCL-IT" End If ' Überprüfen des Computers, des Benutzers Set objADSys = CreateObject("ADSystemInfo") Set objPCName = GetObject("LDAP://" & objADSys.ComputerName) Descriptor= objUSR.cn & " ist seit: " & Now & " am Computer: " & objPCName.cn & " angemeldet." On Error Resume Next objPCName.description = Descriptor objPCName.SetInfo objUSR.description = Descriptor objUSR.SetInfo On Error Goto 0 Laufwerk wird gemappt. Es hängt an der benutzdefinierten Druckerzuweisung.

die scheitert doch immer. Bei mir hat sie jedenfalls noch nie funktioniert. Wie gehst du denn vor? Nimmst du das windows interne tool oder was anderes?

ist das eher ein Thema für den Scriptingbereich? Die beiden sind soweit schonmal kompatibel zueinander. Kann mir da niemand helfen?

net localgroup Administratoren Wäre das nicht auch eine Möglichkeit?

ich hatte etwas derartieges auch einmal bei meinem Laptop. Da habe ich dann am Schluss herausgefunden, dass es sich um das cd Laufwerk handelte, auf welches das System zugreifen wollte, obwwohl eine defekte cd im Laufwerk lag.

Hallo Forum, ich möchte den eGuide von Novell auf ein schlichtes LDAP anwenden. Soweit ich weiß, kann man es derweilen lediglich mit eDirectory betreiben. Ich habe versucht eine akurate Testumgebung zu schaffen, dazu habe ich verschiedene Dinge tun: tomcat apache server installiert, JRE installiert, IE auch notwendig. Dann müsste ich eigentlich auf das Admin Interface zugreifen können. Dort, so meine Quellen, müsste ich dann auch die LDAP Data Source fesstlegen können. Ich habe da irgendwo einen Gedankenfehler, nehme ich an. Ich habe noch nicht getestet, ob ich den Novell Client für Windows auch benötige. Der eGuide lässt sich auch nur mit 2000 oder XP fahren. Habt ihr vlt eine Idee dazu? MfG