mac-duff

Hi, danke fuer die Antwort. Was ich mich auch noch frage, ob es in Ordnung geht das ich den DC immer dann mit solchen Query Anfragen belaestige?

Hallo, ich frage mich, ob es bereits eine fertige Anwendung gibt, die ich als Telefonbuch Frontend nutzen kann. In der AD sind ja bereits alle User mit der E-Mail Adresse eingetragen. Dem naechst wird noch die Telefonnumer und Faxnummer folgen. Nun suche ich eine kleine Anwendung fuer den User, wo man den Namen eingibt und dann die Telefonnumber ausgegeben bekommt. Ihr koennt mich auch gerne von was anderem ueberzeugen ;). Danke Edit.: Ah ja, setzen Notes ein und nicht jeder User hat einen Notes Account

Public Function read_language() Dim FileReader As StreamReader Dim language_str, strText 'Dim domain, container, signature_save, signature_name, signature_logo FileReader = New StreamReader("language.ini", System.Text.Encoding.Default) language_str = FileReader.ReadToEnd() FileReader.Close() language_str = Replace(language_str, "name=", "") language_str = Replace(language_str, "position=", "") language_str = Replace(language_str, "tel=", "") language_str = Replace(language_str, "fax=", "") language_str = Replace(language_str, "mobil=", "") language_str = Replace(language_str, "mail=", "") language_str = Replace(language_str, "create=", "") language_str = Replace(language_str, "quit=", "") strText = Split(language_str, vbCrLf) Return strText End Function Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim domain, container, signature_save domain = read_parameters(0) container = read_parameters(1) signature_save = read_parameters(2) TextBox_name.Text = GetUsername(SystemInformation.UserName, domain) TextBox_telefon.Text = GetTelefon(GetUsername(SystemInformation.UserName, domain), container) TextBox_mail.Text = GetMail(GetUsername(SystemInformation.UserName, domain), container) Label1.Text = read_language(0) Label2.Text = read_language(1) Label3.Text = read_language(2) Label4.Text = read_language(3) Label5.Text = read_language(4) Label6.Text = read_language(5) Button1.Text = read_language(6) Button2.Text = read_language(7) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim FileReader As StreamReader Dim FileWriter As StreamWriter Dim signature_str, path_str Dim name, position, tel, fax, mobil, mail, logo name = TextBox_name.Text position = TextBox_position.Text tel = TextBox_telefon.Text fax = TextBox_fax.Text mobil = TextBox_mobil.Text mail = TextBox_mail.Text logo = read_parameters(4) path_str = read_parameters(2) Dim signature_name As String signature_name = read_parameters(3) FileReader = New StreamReader(signature_name, System.Text.Encoding.Default) signature_str = FileReader.ReadToEnd() FileReader.Close() If Not position = Nothing Then signature_str = Replace(signature_str, "[VAR1]</font><BR>", "[VAR1]</font><BR>" & position & "<BR>") End If If Not mobil = Nothing Then signature_str = Replace(signature_str, read_language(3) & " : [VAR4]", read_language(3) & " : [VAR4]<BR>" & read_language(4) & ": " & mobil) End If signature_str = Replace(signature_str, "[VAR1]", name) signature_str = Replace(signature_str, "[VAR3]", tel) signature_str = Replace(signature_str, "[VAR4]", fax) signature_str = Replace(signature_str, "[VAR6]", mail) signature_str = Replace(signature_str, "[VAR7]", logo) If Not Directory.Exists(path_str) Then Directory.CreateDirectory(path_str) End If FileWriter = New StreamWriter(path_str & read_parameters(3), False) FileWriter.Write(signature_str) FileWriter.Close() If System.IO.File.Exists(read_parameters(4)) = True Then System.IO.File.Copy(read_parameters(4), path_str & read_parameters(4), True) End If End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub End Class

Hab mir nu was in VB zusammen geschustert: Imports System.IO Imports System.Collections.Generic Imports System.DirectoryServices Public Class Signatur Private Function GetUsername(ByVal UserName As String, ByVal DomainName As String) As String Dim oDirectory As New DirectoryEntry("LDAP://" & DomainName) Dim mySearcher As New DirectorySearcher(oDirectory) Dim oResult As SearchResult Dim sResult As String mySearcher.SearchScope = SearchScope.Subtree mySearcher.ReferralChasing = ReferralChasingOption.All mySearcher.Filter = "(&(objectClass=user)(sAMAccountName=" & UserName & "))" Try oResult = mySearcher.FindOne If Not oResult Is Nothing Then sResult = oResult.GetDirectoryEntry.Properties("DisplayName").Value.ToString() End If Catch ex As Exception Throw ex End Try oResult = Nothing mySearcher.Dispose() oDirectory.Dispose() Return sResult End Function Private Function GetTelefon(ByVal strname As String, ByVal strContainer As String) As String On Error Resume Next Dim objItem Dim objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then objItem = GetObject("LDAP://" & _ objRootDSE.Get("defaultNamingContext")) Else objItem = GetObject("LDAP://cn=" & strname & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If Dim telefon_str As String = String.Empty telefon_str = objItem.Get("telephoneNumber") Return telefon_str End Function Private Function GetMail(ByVal strname As String, ByVal strContainer As String) As String On Error Resume Next Dim objItem Dim objRootDSE = GetObject("LDAP://rootDSE") If strContainer = "" Then objItem = GetObject("LDAP://" & _ objRootDSE.Get("defaultNamingContext")) Else objItem = GetObject("LDAP://cn=" & strname & "," & strContainer & "," & _ objRootDSE.Get("defaultNamingContext")) End If Dim mail_str As String = String.Empty mail_str = objItem.Get("mail") Return mail_str End Function Public Function read_parameters() Dim FileReader As StreamReader Dim parameters_str, strText 'Dim domain, container, signature_save, signature_name, signature_logo FileReader = New StreamReader("Parameters.ini") parameters_str = FileReader.ReadToEnd() FileReader.Close() parameters_str = Replace(parameters_str, "domain=", "") parameters_str = Replace(parameters_str, "container=", "") parameters_str = Replace(parameters_str, "siganture_save=", "") parameters_str = Replace(parameters_str, "signature_name=", "") parameters_str = Replace(parameters_str, "signature_logo=", "") strText = Split(parameters_str, vbCrLf) Return strText End Function

Ich werde jetzt einfach mit einem html template arbeiten welches ich einlese und dem entsprechent bearbeite. Versuche jetzt das ganze in VB zu realisieren so das ich noch eine nette GUI habe, aber is schon ein krasser Umstieg von VBS auf VB, blicke auch noch nicht ganz mit den Klassen dadurch. Wuerde dann naemlich auch noch ganz gerne Atribute aus dem AD auslesen

ja, du hast Recht, hab das aus Office geklaut weil da die Schrift einfach schoener aussieht. Habe jetzt aber den Code noch weiter gekuerzt und das CSS rausgenommen und die standard Schrift verwendet. Trotzdem frage ich mich wie ich diese Seite per VB erstellen kann. Gibt es da vielleicht irgend einen Hardcore Befehl mit dem ich sagen kann das wird bis dato alles als Text verarbeitet?

so, hier der Code. Habe anscheinend Probleme mit dem Internet auf der Arbeit: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META content="text/html; charset=utf-8" http-equiv=Content-Type> <META name=GENERATOR content="MSHTML 8.00.6001.18854"></HEAD> <head> <style type="text/css"> #line { line-height: 0.5; } </style> </head> <BODY><BR><IMG src="test_archivos/image001.jpg"><BR> <P class=MsoNormal><SPAN style="FONT-FAMILY: Arial; FONT-SIZE: 8pt" lang=FR Roman? New <mso-bidi-font-family:?Times><FONT face=Arial> <FONT color=#0000ff>Stephan</FONT> <BR> Siége <BR> <div id="line"> <BR> </div> Tél :<SPAN style="PADDING-LEFT: 7px">+4565464</SPAN><BR> Fax :<SPAN style="PADDING-LEFT: 7px">+346346346</SPAN> <div id="line"> <br> </div> <A href="mailto:User@.com"><SPAN style="mso-bidi-font-size: 12.0pt">User@.com</SPAN></A><BR> <A href="http://www.google.com/"><SPAN style="mso-bidi-font-size: 12.0pt">http://www.google.com/</SPAN></A> <div id="line"> <br> </div> Ce message contient des informations confidentielles et protégées.<BR> Au cas où il ne vous serait pas destiné, nous vous remercions de bien vouloir nous en aviser immédiatement et de le supprimer. <div id="line"> <br> </div> This e-mail may contain information that is privileged or confidential.<BR> If you are not the intented recipient, please delete the e-mail. </SPAN> </P></FONT></BODY></HTML>

Hi, ich konnte doch recht einfach den Code erheblich kuerzen. Hab nun nur noch zwei Probleme. Der erste Absatz zwischen Siege und der Telefonnummer wird "nur" in Lotus Notes 7.01 zu gross angezeigt. Das zweite, ich weiss immer noch nicht wie ich dieses automatisiert erstellen kann ohne jede Zeile einzelnt in ein VBS ein zu plegen. Fuer HTML Tips bin ich auch zu haben da ich kein HTML schreibe ;) Edit: Bekomme leider immer einen Fehler in der Verbindung wenn ich versuche den Code anzuhaengen, versuche es nachher nochmal von Daheim

Ich habe heute im Netz das gefunden: Dim WshNetwork, Uname '//On error resume next '//create WshNetwork object Set WshNetwork = WScript.CreateObject("WScript.Network") Uname = WshNetwork.UserName '//wscript.echo uname If InStr(strGroups, LABELS_GROUP) Then WshNetwork.MapNetworkDrive "l:", "\\testsever\excel\" & Uname & "" End If

Hi, Danke fuer die Antwort also es ist schon Firmenstandard wobei die User entscheiden duerfen ob die ihre "Firmen-"Handynummer mit angeben wollen. Ich kann am Montag oder Dienstag mal die Signatur zeigen

Hallo, fuer die Lotus Notes Signatur nutzen wir htm Dateien die ich gerne einfach per Script erstellen lassen wuerde. Das Problem sind nicht die Daten fuer die Signatur sondern die HTM Datei ist gute zwei Seiten lang und frage mich nun wie ich diese gescheit erstellen. Muss ich dann wirklich zwei Seiten mit chr(34) und vbrtl arbeiten? Ich koennte auch die HTM Datei mit Variablen vorbereiten nur dann kann der User nicht so einfach das Script ausfuehren sondern muss dann immer drauf achten das die HTM Datei dabei liegt. Wuerde auch gerne wissen wie ihr so was in einer Notes Landschaft realisiert. Danke

Danke. Werde es mal ausprobieren

Sehe gerade das ich manchmal auch diesen Fehler bekomme: ç Windows cannot access the file gpt.ini for GPO cn={31B2F340-016D-11D2-945F-00C04FB984F9},cn=policies,cn=system,DC=intra,DC=formacion,DC=es. The file must be present at the location <\\intra.formacion.es\sysvol\intra.formacion.es\Policies\{31B2F340-016D-11D2-945F-00C04FB984F9}\gpt.ini>. (The format of the specified network name is invalid. ). Group Policy processing aborted. Die {31B2F340-016D-11D2-945F-00C04FB984F9} ist die Default Domain Policy auf welche ich aber zugreifen kann. Wie gesagt bei jedem zweiten Boot gehts...

Hi, das Problem welches ich habe ist folgendes, ca. bei jedem zweiten Boot zieht sich der Client keine GPOs. Wenn ich dann ein GPupdate in der CMD mache ist dieses der Error Code: failed to refresh user policy. error the system cannot find the file specified . exiting... Im Eventviewer habe ich nach den 10 Minuten diesen Fehler: Execution of GPO scripts has timed out and have been terminated. Habe folgende GPOs aktiviert: Computer: -Remote Assistance -Local Administrator -Erweiterung der Route.exe User: -Logon-Script wobei keine einzige dann abgerufen wird Beim naechsten Start des PCs geht es wieder und so weiter. Habe schon diesen Weg hier mit dem hoechsten Wert von 600 versucht, leider ohne Erfolg ! Mein nslookup geht stets ohne Probleme. Habe auch schon testweise die Firewalls deaktiviert. Hat noch jemand einen Rat woran es noch liegen kann? Danke

Muss das leidige Thema nochmal aufbringen. Soweit ich es sehe, kann man es nicht mit dcomperm setzen sondern muss den ComAdminCatalog nutzen. Kann mir damit jemand helfen? Dim catalog Dim applications Dim application Set catalog = CreateObject("COMAdmin.COMAdminCatalog") Set applications = catalog.GetCollection("Applications") Call applications.Populate

Also soweit gehts. 1- Musste die NIC Treiber integrieren 2- Musste Computer Client Agent mit einem User Account konfigurieren 3- den anderen Router-DHCP deaktivieren da sich die PXE die richtige IP zieht, aber spaeter WindowsPE die flasche

wobei mir einfaellt, set wann brauch ne VM spezielle Netzwerktreiber etc.? Edit. Hast schon wieder Recht. Wenn ich ein ipconfig in der DOS Box mache bekomme ich keine IP

Das ist ein gutes Stichwort... OnBoard NIC, ich gucke morgen nochmal Danke

soweit so gut, Wenn ich nu einen Rechner ueber PXE starte laedt er das korrekte Imagae nur dann startet er einfach neu, ohne eine Fehlermeldung. Habe das Image geloescht, die DOS Box aktiviert, Image neu erstellt, Rechner gestartet und tortzdem taucht die DOS Box dann nicht auf, was ich ein wenig komisch finde Edit: Was ich in der einen Sekunde lesen konnte ist der letzte Schritt die Vorbereitung der Netzwerkverbindungen, dann bleibt ein paar Momente der SCCM Screen bis der dann einen Neustart hinlegt.

HI, danke fuer die Antwort hast Recht. Der Fehler liegt zwischen SCCM und WDS. Dummerweise habe ich den konfiguriert, sprich Einstellungen vorgenommen wie: DHCP: Do not listen on port 67 Configure DHCP option 60 Reicht es aus wenn ich die Einstellungen wieder rueckgaengig mache oder sind diese nicht relevant/setzt SCCM diese. Habe auch noch mal die PXE Role im SCCM entfernt und wieder hinzugefuegt aber leider ohne Veraenderung, er findet einfach das Boot Image nicht. Es kommen immer Fehler wie Pending Request 2 oder mal ID 3 Edit: Hab was gefunden: wdsutil /uninitialize-server Ich guck dann erst nochmal weiter und meld mich dann wenn es immer noch nicht geht

Hallo, bin zur Zeit einwenig am rumspielen mit der Deploying Funktion von SCCM und stolpere eigentlch bei dem duemmesten Problem - DHCP. Also habe ein Netzwerk und dort wird der DHCP ueber den Router betrieben. Nun habe ich auf dem SCCM auch den DHCP Dienst mit einer Whiteliste installiert und im Windows bekomme ich auch die fest vorgelegte IP vom SCCM-DHCP und nicht vom Router, so weit so gut. Auch lese ich im Event Viewer das andere abgelehnt wurden Frage is nu, wie aktiviere ich die PXE Funktion? SCCM beschwerte sich, das die Windows Deployment Role nicht installiert ist, also installiert, dort PXE aktiviert aber trotzdem irgend wie will es nicht. Bin mir auch nicht sicher ob ich das alles zusammen mit dem SCCM brauche. Es waere nett wenn zu meinen Problemen jemand eine Doku hat. Wenn ich im Internet nach DHCP 2008 suche kommt nix gescheites bei rum :/ Danke

HI, poste mal deine Configs in der Code Box bitte. Btw. haste mal zum Spass die Firewalls ausgeschaltet?

Falles es helfen sollte kann ich auch eine VM zur Verfuegung stellen?

jup, bzw. die ganze VM

Aber wenn ich es richtig sehe kann ich das dcomperm von der myitforum Seite nutzen was, denke ich, das selbe ist wie der Code von: Index of /hoople/source/app_src/dcomperm oder? :/ Ich verstehe bei dieser Sache nur Bahnhof Edit. Habe jetzt mal diesen Befehl ausgefuehrt: DCOMPERM.EXE -al {02D4B3F1-FD88-11D1-960D-00805FC79235} set Usuarios permit level:ll,rl,la,ra Successfully set the Application Launch ACL. Remote and Local launch permitted to NT AUTHORITY\SYSTEM. Remote and Local activation permitted to NT AUTHORITY\SYSTEM. Remote and Local launch permitted to BUILTIN\Administradores. Remote and Local activation permitted to BUILTIN\Administradores. Remote and Local launch permitted to NT AUTHORITY\INTERACTIVE. Remote and Local activation permitted to NT AUTHORITY\INTERACTIVE. Remote and Local launch permitted to BUILTIN\Usuarios. Remote and Local activation permitted to BUILTIN\Usuarios. und trotzdem is der Reiterweiterhin leer?