Jump to content

d.stegemann

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    273

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von d.stegemann

  3. Retten der MSX Attribute beim Disablen einer Mailbox

    in Windows Forum — Scripting

    Geschrieben

    hallo lamort,

     

    Ich vermute deshalb, dass der Befehl die Mailbox zu loeschen, in Exchange verzoegert ausgefuehrt wird.

     

    Wenn ich dich richtig verstanden habe, musst du sicherstellen, das die Mailbox disabled ist, bevor du die Attribute zurückschreibst...

     

    Dafür müsstest du schauen, ob das Teil wirklich disabled ist, bevor du die Attribute zurückschreibst...

     

     

    Oder steh' ich da gerade auf dem Schlauch?

     

    Gruß

     

    Dirk

     

    PS: Ich glaub jetzt kommt mir wieder in Erinnerung warum ich mich noch nie mit einer Version von Exchange > 5.5 tiefer auseinandergesetzt habe :)

  4. Retten der MSX Attribute beim Disablen einer Mailbox

    in Windows Forum — Scripting

    Geschrieben

    Hallo lamort,

     

    das Thema Exchange ist zwar überhaupt nicht mein Fall, aber

    hast du da schonmal geschaut?

     

    Disable-Mailbox

     

    -- schnipp--

     

    Unter normalen Bedingungen wird ein Postfach sofort nach Abschluss des Befehls Disable-Mailbox oder Remove-Mailbox als getrennt markiert. Wenn das Postfach jedoch deaktiviert oder entfernt wurde, während der Exchange-Informationsspeicherdienst beendet wurde, oder durch ein anderes externes Mittel als die Exchange-Verwaltungsschnittstellen deaktiviert oder entfernt wurde, ist der Status des Postfachobjekts in der Exchange-Postfachdatenbank nicht als getrennt markiert. In diesem Fall können Sie das Cmdlet Clean-MailboxDatabase verwenden, um den Active Directory-Verzeichnisdienst nach getrennten Postfächern zu durchsuchen, die in der Microsoft Exchange-Postfachdatenbank noch nicht als getrennt markiert sind, und den Status dieser Postfächer im Exchange-Informationsspeicher zu aktualisieren.

     

    --schnapp--

     

    Vielleicht hilfts ein wenig weiter.

     

    Gruß

     

    Dirk

  5. 70-290 bestanden

    in MS Zertifizierungen — Prüfungen

    Geschrieben

    Hallo kiffajoe,

     

    bei einer Hotspot Frage hast du ein Fenster(z.B.Local Computer Policy).

    Die ist dann in Teilen ausgeklappt. Dazu gibt es dann eine Frage alla

    Markieren Sie Stelle, wo das und das geändert werden muß.

     

    Da musst du dann auf den entsprechenden Teilbereich klicken. Der wird dann hinterlegt und weiter gehts...

     

     

    Gruß

     

    Dirk

  7. Mittels ASP countryCode des jew. Users auslesen

    in Windows Forum — Scripting

    Geschrieben

    Hallo Narugami,

     

     

    du könntest z.B. mit Request.Servervaribales("HTTP_USER_AGENT")

    ,Request.Servervaribales("HTTP_ACCEPT_LANGUAGE") die Sprache des Browsers abfragen und das ganze in einem Cookie ablegen..

     

    Aber das ist halt schon ziemlich speziell.

     

    Ich denke da solltest du mal die einschlägigen ASP Seiten abklappern, und/oder ein paar Euronen in die Hand nehmen und dir z.B. das ASP (.NET)Codebook zulegen ;)

     

    Bsp:

    How to perform redirection based on Accept-Language by using ASP

     

    Worüber reden wir denn überhaupt... Classic ASP oder ASP.Net?

     

    Gruß

     

    Dirk

  8. DotNet Version auslesen

    in Windows Forum — Scripting

    Geschrieben

    Hallo carnivore,

     

    ist schon komisch. bei mir hat das nach der Installation von Installer Provider geklappt.

     

    Aber sei's drum...

     

    Die Reg Keys sind folgende...

     

    3.0 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup InstallSuccess (DWORD value = 1)

     

    2.0 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727 Install (DWORD value = 1)

     

    1.1 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322 Install (DWORD value = 1)

     

    1.0 HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\.NETFramework\policy\v1.0 3705 (REG_SZ value = 3321-3705)

     

    Deploying Microsoft .NET Framework Version 3.0

     

    
Set oShell = CreateObject("WScript.Shell")

FW1 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v1.1.4322\Install"
FW2 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Install" 
FW3 = "HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Setup\InstallSuccess"

On Error resume Next
out1 = oShell.RegRead(FW1)
out2 = oShell.RegRead(FW2)
out3 = oShell.RegRead(FW3)
Err.Clear

If out2 <> "" Then
out2 = oShell.RegRead("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v2.0.50727\Version")
End If

If out3 <> "" Then
out3 = oShell.RegRead("HKLM\SOFTWARE\Microsoft\NET Framework Setup\NDP\v3.0\Version")
End If 
output = ""
If out1 <> "" Then
 output = ".NET Framework 1.1 installiert" & VBCRLf
End If
If out2 <> "" Then
output = output & ".Net Framework 2.0 installiert. Version: "& out2 &"" & VBCRLf
End If
If out3 <> "" Then
output = output & ".Net Framework 3.0 installiert. Version: "& out3 &"" & VBCRLf
End If

MsgBox output

     

    Kann man mit Sicherheit schöner machen...

     

     

    Gruß

     

    Dirk

  10. DHCP: Aus Leases Reservierungen machen...

    in Windows Server Forum

  11. Gehaltsvorstellung MCSE ?

    in MS Zertifizierungen — Allgemein

    Geschrieben

    Ehrlich gesagt, finde ich 38T € Brutto + Firmenwagen bei 40h/Woche für einen Berufsanfänger ohne Studium für recht viel.

     

    Das ist wirklich schon ein mächtiges Wort...

     

    Für 38T muss ich schon 70T+ Umsatz machen auf freiberuflicher Basis. Und das ist im Moment gar nicht so einfach.

    Dazu kommt Mobilität(Fahren durch D), Flexibilität(mehr als 8h Arbeit)...

     

    Gruß

     

    Dirk

  15. Mitglieder Verteilergruppe in Text-Datei ausgeben

    in Windows Forum — Scripting

    Geschrieben

    soweit ich weiß geht das nicht direkt. Aber Du könntest die Ausgabe über FINDSTR oder ähnliches umleiten und die Zeilen dann "manuell" ausfiltern.

     

     

    Ich hätte da noch ein vbs für im Angebot ;)

     

    Wenn der dsget in eine Batch(Hier input.bat) ausgelagert wird, dann ließe sich das mit dem folgenden Script lösen..

     

    Dabei wird die Ausgabe vom StdOut erstmal in eine temporäre Datei geschrieben. Dann wird diese Datei(toutput) geparst und nur das gewünschte in eine neue Textdatei(output) geschrieben...

     

     

    
toutput = "C:\output.txt"
output = "C:\output1.txt"
'inputdatei = "C:\input.bat"
Set oShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
If Not oFSO.FileExists(toutput) Then
Set tLogdatei = oFSO.CreateTextFile(toutput, True)
Else
 oFSO.DeleteFile(toutput)
 Set tLogdatei = oFSO.CreateTextFile(toutput, True)
End If
Set oExec = oShell.Exec("C:\input.bat")
input = ""
Do While True
    If Not oExec.StdOut.AtEndOfStream Then
         input = input & oExec.StdOut.ReadAll
         MsgBox input	  
         If InStr(input,"dsget succeeded") <> 0 Then Exit Do
    End If
    WScript.Sleep 100
Loop

tLogdatei.WriteLine ""& input &""
tLogdatei.Close
If Not oFSO.FileExists(output) Then
Set Logdatei = oFSO.CreateTextFile(output, True)
Else
Set Logdatei = oFSO.OpenTextFile(output, 8, 0)
End If
Set tLogdatei = oFSO.OpenTextFile(toutput, 1) 
Do While not tLogdatei.AtEndofStream
 tstring = tLogdatei.ReadLine
 MsgBox tstring
 If InStr (tstring, "dsget") >0 Or InStr(tstring, "samid") >0 Or tstring =  "" Then
 'Mach nix
 Else
 Logdatei.WriteLine(tstring)
 End If
Loop 
Logdatei.Close
Set tLogdatei = Nothing
Set Logdatei = Nothing
Set oFSO = Nothing

     

    Hmm... Da war ich wohl zu langsam...

     

    Gruß

     

    Dirk

  16. Mitglieder Verteilergruppe in Text-Datei ausgeben

    in Windows Forum — Scripting

    Geschrieben

    Ja dann....

     

     

    unter Active Directory -->User Accounts -->Retrieving information...

    
On Error Resume Next

Set objUser = GetObject _
   ("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")


WScript.Echo "First Name: " & objUser.givenName
WScript.Echo "Initials: " & objUser.initials
WScript.Echo "Last Name: " & objUser.sn
WScript.Echo "Display Name: " & objUser.displayName
WScript.Echo "Office: " & _
   objUser.physicalDeliveryOfficeName
WScript.Echo "Telephone Number: " & objUser.telephoneNumber
WScript.Echo "Email: " & objUser.mail
WScript.Echo "Home Page: " & 

For Each strValue in objUser.description
   WScript.Echo "Description: " & strValue
Next

For Each strValue in objUser.otherTelephone
   WScript.Echo "Other Telephone: " & strValue
Next

For Each strValue in objUser.url
   WScript.Echo "URL: " & strValue
Next

     

    objUser.mail

     

    Du musst also den Eingangsstring für eine neue LDAP Abfrage benutzen. Mit dieser bekommst du dann die MAil Adresse..

     

    Gruß

     

     

    Dirk

  18. Mitglieder Verteilergruppe in Text-Datei ausgeben

    in Windows Forum — Scripting

    Geschrieben

    Hallo Daniel84,

     

    Dies könnte als Startpunkt evtl. nützlich sein...

     

    Microsoft Corporation

     

     

    Unter Active Directory -->Searching Active Directory -->Groups

    
On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"
Set objCommand.ActiveConnection = objConnection

objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE 

objCommand.CommandText = _
   "SELECT Name FROM 'LDAP://dc=fabrikam,dc=com' WHERE objectCategory='group'" & _
       "AND groupType = 2" 
Set objRecordSet = objCommand.Execute

objRecordSet.MoveFirst
Do Until objRecordSet.EOF
   Wscript.Echo objRecordSet.Fields("Name").Value
   objRecordSet.MoveNext
Loop

     

    Unter Active Directory -->Groups--> Lists general properties of a group..

     

    
On Error Resume Next

Const ADS_GROUP_TYPE_GLOBAL_GROUP = &h2
Const ADS_GROUP_TYPE_LOCAL_GROUP = &h4
Const ADS_GROUP_TYPE_UNIVERSAL_GROUP = &h8
Const ADS_GROUP_TYPE_SECURITY_ENABLED = &h80000000

Set objGroup = GetObject _
   ("LDAP://cn=Scientists,ou=R&D,dc=NA,dc=fabrikam,dc=com")

WScript.Echo "Name: " & objGroup.Name
WScript.Echo "SAM Account Name: " & objGroup.SAMAccountName
WScript.Echo "Mail: " & objGroup.Mail
WScript.Echo "Info: " & objGroup.Info

intGroupType = objGroup.GroupType

If intGroupType AND ADS_GROUP_TYPE_LOCAL_GROUP Then
   WScript.Echo "Group scope: Domain local"
ElseIf intGroupType AND ADS_GROUP_TYPE_GLOBAL_GROUP Then
   WScript.Echo "Group scope: Global"
ElseIf intGroupType AND ADS_GROUP_TYPE_UNIVERSAL_GROUP Then
   WScript.Echo "Group scope: Universal"
Else
   WScript.Echo "Group scope: Unknown"
End If

If intGroupType AND ADS_GROUP_TYPE_SECURITY_ENABLED Then
   WScript.Echo "Group type: Security group"
Else
   WScript.Echo "Group type: Distribution group"
End If

For Each strValue in objGroup.Description
   WScript.Echo "Description: " & strValue
Next

     

    Gruß

     

    Dirk

  21. DotNet Version auslesen

    in Windows Forum — Scripting

    Geschrieben

    Hallo carnivore,

     

    in Powershell könnte das folgendermassen aussehen...

     

    
$strComputer = "."

$colItems = get-wmiobject -class "Win32_Product" -namespace `
"root\CIMV2" -computername $strComputer -filter `
"Name like 'Microsoft .NET Framework %'"

foreach ($objItem in $colItems) {
     write-host ".NET Framework Version: " $objItem.Version
}

     

    Gruß

     

    Dirk

  22. Drucker erstellen und 2tes Papierfach auswählen

    in Windows Forum — Scripting

    Geschrieben

    Hallo patrick86,

     

    das einzige, was ich zu diesem Thema gefunden habe waren Konstrukte mit z.B. vb6...

     

    Dann gab es noch eine Möglichkeit mit 2 Druckern zu arbeiten die vorher per Gui konfiguriert wurden.

     

    Ich schätze mal diese Sachen sagen dir alle nicht zu.... Ist ja kein Script.

     

    Da man den 2. Papierschacht auch mit GUI auswählen kann wäre evtl. AutoIt eine Option für dich.

     

     

    Gruß

     

    Dirk

×
×
  • Neu erstellen...