kalle10000

Hallo zusammen,

ich habe 'mal eine Frage zu servergespeicherten Profilen. Und zwar wie entstehen servergespeicherte Profile bei der ersten Anmeldung?

Bei lokalen Profilen wird der Default User kopiert und mit dem All User kombiniert. Ist das bei servergespeicherten Profilen ähnlich? Wenn ja welcher Default User wird als Vorlage genommen?

Und dann habe ich noch eine 2. Frage. Ich überlege für den Terminalserver eigene verbindliche Profile zu nehmen. Welche Ntuser.dat muss ich in Ntuser.man umbenennen; die Ntuser.dat des All Users oder die des Default Users auf dem TS.

Vielen Dank im Voraus!!!

Falls das Thema schon diskutiert wurde, dann habe ich es übersehen.

Besten Dank!

Das werde ich gleich direkt testen. :D

if "%username%"=="Tester" goto ...

Hi,

ich bin vbs-Anfänger und versuche ein Druckeranmeldeskript zu schreiben.

Wir haben in der Active Directory bei den PCs unter Eigenschaften -> Standort einen Raum eingetragen. Und diesen Raum würde ich gerne auslesen. Aber wenn es geht nicht mit

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("dsquery computer -name %computername% ^| dsget computer -loc")

oder so ähnlich. Dafür gibt es doch bestimmt eine andere Lösung???!!

Vielen dank im voraus!!!

mfg

Kalle

Hi,

vielleicht kann mir jemand weiterhelfen. Ich beschäftige mich zurzeit mit dem Abwesenheitsassistenten.

Ich habe herausgefunden, dass nur eine einzige Antwort an den Absender gesendet wird.

Wenn ich eine Regel verwende, wird immer eine antwort zum Absender geschickt.

Gibt es eine Möglichkeit Outlook so zu konfigurieren, dass ein Absender täglich eine einzige Antwort bekommt????

Besten dank im Voraus!!!

Super cool, es funktioniert.

Besten dank.

THX Cybquest. Das sieht wirklich super aus. Ich werde es sofort ausprobieren.

Hallo,

ich schreibe gerade ein Netzlaufwerkstartscript in vbs.

Ich würde gerne bevor ein Netzlaufwerk verbunden wird, überprüfen, ob das Netzlaufwerk eventuell schon vorhanden ist.

In einer Batch-Datei geht das mit

If Not Exist I: net use I: \\server\freigabe

Gibt es etwas vergleichbares in vbs???

Vielen dank im Voraus.

Hi, ich habe mich damit auch mal befasst. Dieses Skript als .vbs abspeichern. Es funktioniert, wenn alle Firewalls richtig konfiguriert oder ausgeschaltet sind. Und dann auf dem Domänencontroller mit Adminrechten in der Konsole mit

'cscript Pfad >Datei.txt'

starten. Teste es 'mal.

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("net view")
'Zum Abfangen der "net view"Ausgabe stdOut verwenden
Set objStdOut = objWshScriptExec.StdOut
'gesamte "net view"-Ausgabe in strOutput speichern ...
strOutput = objStdOut.ReadAll
'... und in einzelne Zeilen zerlegen (am Zeilenende = vbCrLF splitten), die als Array gespeichert werden.
'aLines = Array("")
aLines = Split(strOutput, vbCrLF)
'Variable für die Zusammenfassung initialisieren
strResult = ""
'Schleife über alle einzelnen Zeilen
For i = 0 To UBound(aLines)
   'Wenn die Zeile mit "\\" beginnt, ...
   If Left(aLines(i), 2) = "\\" Then
       '... enthält sie ab Position 3 einen Rechnernamen.
strCmp = Trim(Mid(aLines(i), 3))
On Error Resume Next
strCompi = Split(strCmp, " ")
strCmp = strCompi(0)
       'Falls beim Abfragen des Computers ein Fehler eintritt, nicht abbrechen ...
       On Error Resume Next
       'Ab dem zweiten gefundenen Rechner (wenn strResult also schon ein Ergebnis enthält) ...
       If strResult <> "" Then
           '... zunächst eine Zeilenschaltung und dann Computernamen und User hinzufügen.
           strResult = strResult & vbCrLF & strCmp & vbTab & UserName(strCmp)
       Else
           'Beim ersten Eintrag ist die Zeilenschaltung nicht nötig.
           strResult = strCmp & vbTab & UserName(strCmp)
       End If
       'Ab hier wieder bei einem Fehler abbrechen ...
       On Error Goto 0
   End If


Next

'Das Ergebnis in einer Form ausgeben, die auch den Aufruf aus einer Batchdatei ermöglicht:
WScript.Echo strResult
WScript.Quit

Function UserName(strComputer)
'Abfrage des beim Funktionsaufruf übergebenen Computernamens per WMI
Set objWMIService = GetObject("WinMgmts:\\" & strComputer & "\root\cimv2") 
Set colItems = objWMIService.ExecQuery( _
   "SELECT * FROM Win32_ComputerSystem",,48) 
'Auch wenn nur ein Computer abgefragt wird, ist das Ergebnis eine Aufzählung,
'deren einzelne Elemente mit "For Each" durchlaufen werden ...
For Each objItem in colItems
   'Den Usernamen als Eigenschaft auslesen und zwischenspeichern ...
   strUser = objItem.UserName
Next
'... und falls kein User angemeldet ist, Infotext erzeugen.
If IsNull(strUser) Then strUser = "No User"
'Function-Ergebnis festlegen
UserName = strUser
End Function

Hat sich erledigt. Die Lösung habe ich hier gefunden.

Im InternetExplorer unter Internetoptionen --> Sicherheit --> lokales Intranet --> den Fileserver mit file://name hinzufügen. Dann geht's

Hallo zusammen,

ich hoffe, dass Ihr mir helfen könnt.

Und zwar habe ich einen neuen Terminalserver installiert. Die Installation war kein Problem. Alles läuft bis auf eine Kleinigkeit. Und zwar können einige Benutzer eine Batchdatei (es handelt sich um einen Tunnel) vom Fileserver aus nicht starten. Angeblich hätten sie keine Berechtigung, aber ich habe alles genauso eingestellt, wie auf dem alten Terminalserver. Der ist noch im Betrieb und ich habe alles verglichen; konnte aber keinen Unterschied feststellen.

Wenn ich mir die effektiven Berechtigungen der Benutzer ansehe, haben sie alle Vollzugriff.

Das ist ziemlich komisch alles. Vom alten Terminalserver aus ist das kein Problem.

Hat jemand eine Idee?

Bitte löschen

Ich fang noch mal ein neues Thema an. Ich habe mich voll undeutlich ausgedrückt.

So jetzt habe ich den gerade erreicht. Die Termine werden doppelt verschickt und wenn man beide zusagt, dann stehen die auch doppelt im Kalender. Logisch.

Woran kann das also liegen, dass Termine doppelt gesendet werden? Das finden meine Kollegen ein wenig nervig.

Thx, für die Antworten. Ich muss erst nochmal nachhaken, was die Person genau meint. Laut seiner Aussage sind die Einträge zur gleichen Zeit doppelt und synchronisiert wird nichts.

Als ich hier gerade ein paar Leute interviewt habe, tauchte das Problem bei denen nicht auf.

Bei einer Person sind sogar Termine verschwunden; anstatt doppelte Einträge.

Ich melde mich später nochmal.

Gruß

Kalle

Thema bitte löschen.

Hi,

hat schon mal jemand oben genanntes Problem gehabt? Wenn eine bestimmte Person einen Termin aktualisiert, stehen diese im Kalender doppelt? An welcher Stelle guckt man am Besten nach? Dieses Problem hat nur eine Person.

Danke im Voraus.

Gruß

Danke!

Hi,

ich bin es nochmal.

Jetzt würde ich gerne die Drucker bzgl. des Raumes zuweisen.

In Batch Dateien geht das mit

dsquery computer -name %computername% ^| dsget computer -loc ^| find "Raum"

In VBS klappt das mit den Pipes nicht oder was mache ich falsch.

Set objShell = CreateObject("WScript.Shell")
Set objWshScriptExec = objShell.Exec("dsquery computer -name %computername% ^| dsget computer -loc ^| find "Raum" ")
'Zum Abfangen der "dsquery-Abfrage"Ausgabe stdOut verwenden
Set objStdOut = objWshScriptExec.StdOut
'gesamte "dsquery-Abfrage"-Ausgabe in strOutput speichern ...
strOutput = objStdOut.ReadAll
WScript.echo strOutput

Wenn ich nur den ersten dsquery Teil abfrage funktioniert es. Wenn ich dsget dazu nehme nicht mehr.

Vielen Dank im Voraus!

gruß Kalle

Set objNetwork = WScript.CreateObject("WScript.Network")

On Error Resume Next

objNetwork.RemovePrinterConnection "\\server\drucker"

So hat sich erledigt.

Hi,

ich bin VBS Anfänger und ich komme schon mal wieder nicht weiter. Eigentlich total einfach. Ich würde gerne die Drucker, bevor ich sie zuteile, entfernen. Was habe ich vergessen oder falsch gemacht. Die Drucker zuweisen, wenn ich die ersten zeilen auskommentiere, funktioniert, das Entfernen leider noch nicht. Besten Dank im Voraus

Set WshNetwork = CreateObject("WScript.Network")


'Drucker1
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker1"

'Drucker2
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker2"

'Drucker3
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker3"
WshNetwork.SetDefaultPrinter "\\server\drucker3"



'Drucker1
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker1"

'Drucker2
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker2"

'Drucker3
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker3"
'WshNetwork.SetDefaultPrinter "\\server\drucker3"

Hi,

ich bin VBS Anfänger und ich komme schon mal wieder nicht weiter. Eigentlich total einfach. Ich würde gerne die Drucker, bevor ich sie zuteile, entfernen. Was habe ich vergessen oder falsch gemacht. Die Drucker zuweisen, wenn ich die ersten zeilen auskommentiere, funktioniert, das Entfernen leider noch nicht. Besten Dank im Voraus

Set WshNetwork = CreateObject("WScript.Network")


'Drucker1
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker1"

'Drucker2
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker2"

'Drucker3
WshNetwork.RemoveWindowsPrinterConnection "\\server\drucker3"
WshNetwork.SetDefaultPrinter "\\server\drucker3"



'Drucker1
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker1"

'Drucker2
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker2"

'Drucker3
'WshNetwork.AddWindowsPrinterConnection "\\server\drucker3"
'WshNetwork.SetDefaultPrinter "\\server\drucker3"

Besten Dank,

ich werde mir das gleich mal in Ruhe ansehen.

Das Skript ist hier auch für das Temp-Laufwerk gedacht.

Gruss Kalle

Hallo,

hat jemand ein vbs-Skript, dass alle Dateien angenommen von Laufwerk C:, die älter als eine Woche alt sind, irgendwohin verschiebt?

Danke im Voraus

Gruss Kalle

Tach zusammen,

ich habe gerade ein VBA Skript gefunden, womit ich E-Mails weiterleiten kann.

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)

Dim objMail_In As Outlook.MailItem

Dim objMail_Out As Outlook.MailItem

Dim aryEntryIDs() As String

Dim lngCount As Long

'jedes neue MailItem durchgehen

aryEntryIDs = Split(EntryIDCollection, ",")

For lngCount = 0 To UBound(aryEntryIDs)

Set objMail_In = Application.Session.GetItemFromID(aryEntryIDs(lngCount))

Set objMail_Out = objMail_In.Forward

With objMail_Out

.To = "AndyGrothe@P-Serv.de"

.Subject = "weitergeleitet: " & objMail_In.Subject

.Send

End With

Next lngCount

End Sub

Ich muss jetzt aber noch irgendwie die Anhänge vor der Weiterleitung löschen. Kann mir bitte jemand helfen?

Thx im Voraus.

OK, die Weiterleitung funktioniert jetzt, aber mir wird gerade gesagt, dass das Weiterleiten ohne Anhang doch irgendwie funktioniert.