Jump to content

thumb

Members
  • Gesamte Inhalte

    376
  • Registriert seit

  • Letzter Besuch

Beiträge erstellt von thumb

  1. Hallo TruckerTom,

     

    habe ungefähr vor gefühlten 700 Jahren mal was mit Kix gemacht, daher kann ich nur oberflächliche Tipps geben.

     

    Datei einlesen, nach Platzhalter-String in RDP Datei suchen (z.B. ###USERNAME###), String ersetzen.

     

    Read File: ReadFile() - Read a file into an array - KiXtart.org - official site

     

    Replace String: http://www.robvanderwoude.com/files/far_kix.txt

     

    Gruß, thumb

  2. Hallo zusammen,

     

    hier ein Schnipsel um das Kontoablaufdatum abzufragen:

    Set strSysInfo = CreateObject("ADSystemInfo")

    Set CrUser = GetObject("LDAP://" & strSysInfo.Username & "")

     

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

    strName = objNet.UserName

     

    strAcctExp = CrUser.AccountExpirationDate

     

    MsgBox strAcctExp

     

    Ist das Konto zeitlich nicht begrenzt, wird als Ablaufdatum der 1.1.1970 dargestellt (siehe Account Expiration), dies muss im Script "abgefangen" werden. Zum Spielen hier noch ein Script welches dies erledigt:

     

     

    'Define the variables used

     

    Option Explicit

     

    Dim strUserName, strCrDate, objAcctExp, CrUser, WSHShell

    Dim strCrDomain, strAcctExp, strSysInfo, inKey, inValue, chk

    Dim UserINfo, strDateDiff, strWrngThresh, objNet, strName, regkeyLog, regStamp

     

    'Set Reg Log Path

    regkeyLog = "HKCU\Software\"

     

    '################# Change warning threshold here! ######################

     

    strWrngThresh = 15

     

    '######################################################################

     

    'Create Shell Object

    Set WSHShell = CreateObject("WScript.Shell")

     

    'Get currently logged on user information

     

    Set strSysInfo = CreateObject("ADSystemInfo")

    Set CrUser = GetObject("LDAP://" & strSysInfo.Username & "")

     

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

    strName = objNet.UserName

     

     

    'Assign the current date to the variable "strCrDate"

     

    strCrDate = Date()

     

    'Get current user's Account Expiration Date

     

    strAcctExp = CrUser.AccountExpirationDate

    regStamp = strAcctExp

     

    If Err.Number = -2147467259 Or strAcctExp = "01.01.1970" Or strAcctExp = "01.01.1601 01:00:00" Then

     

    'Show no message, when no account expiration date is specified!

    'MsgBox "No account expiration date specified", vbExclamation, "User Account Information"

     

    Else

    'Show no message with expiration date!

    'MsgBox "Hello" & " " & strName & "," & vbCrLf & vbCrLf & "Your user account will expire on " & strAcctExp & "!", vbExclamation, "User Account Information"

     

    'Comparing the account expiration date and the current date

     

    strDateDiff = datediff("d", strCrDate, strAcctExp)

     

    'Calculations used to determine if the account will expire soon

     

    If strDateDiff < strWrngThresh Then 'If difference between current date and expiration date is greater than <strgWrngTresh>

     

    If Not ExistsRegVal(regkeyLog & regStamp) Then

     

    Msgbox "ACHTUNG, ID Ablauf in " & strDateDiff & " Tagen!", vbExclamation, "User Account Information"

     

    WriteReg RegkeyLog & regStamp, "Account Expiration Date"

     

    End If

     

    ElseIf strDateDiff > strWrngThresh Then

     

    WScript.quit

     

    End If

     

    End If

     

    'Subs

     

    'Write Registry

    Sub WriteReg (inKey, inValue)

    On Error Resume Next

    WShShell.RegWrite inKey, inValue

    End Sub

     

     

    'Read Registry

    Function ExistsRegVal(inValue_)

    On Error Resume Next

    chk = WShShell.RegRead(inValue_)

    ExistsRegVal = (Err.Number = 0)

    On Error GoTo 0

    End Function

     

     

    'Finally end the script

    WScript.quit

     

     

    Viele Grüße, thumb

  3. Hallo zusammen,

     

    ich habe bei IE 7.0 unter XP, Prof., SP2 folgendes Problem, bei einer Eingabe einer lokalen Adresse in der Adresszeile wird die Meldung

     

    Access to the Resource 'HTTP://<Location>' Has Been Disallowed

     

    ausgegeben. Das Sympthom ist wie in

     

    Error Message: Access to the Resource 'HTTP://<Location>' Has Been Disallowed

     

    geschildert, allerdings nicht wie im Artikel mit dem IE 5.X, sondern eben mit IE 7.0. Die im KB angebotene Loesung, die GPO

     

    Remove Run Menue From Start Menue

     

    zu deaktivieren, kann leider nicht umgesetzt werden.

     

    Habt ihr einen alternativen Loesungsansatz?

     

    Vielen Dank und Gruss, THUMB

  4. Hallo zusammen,

     

    kann mir jemand sagen, wie ich unter XP Prof., SP3 den "Neue Hardware gefunden"-Wizzard Dialog abschalten kann?

     

    Hintergrund: Der Dialog stört automatische Installationsprozesse während der automatisierten SetUp Phase.

     

    Danke und Gruß, THUMB

    Hallo zusammen,

     

    so geht es:

     

    Hotfix adds new functionality to suppress Plug and Play-related UI messages in Windows Server 2003 or in Windows XP

     

    Gruß, THUMB

  5. Danke Zahni!

     

    An die Ressourcen eines AddOns, dass sich wie in meinem Beispiel nur online installieren lässt, kommt man übrigens wie folgt ran.

     

    Im Ordner %WINDIR%\Downloaded Program Files liegen die ActiveX Controls. In den Eigenschaften der Dateien findet Ihr unter dem Abschnitt Code Base den Pfad zur CAB, in der sich dann DLL/OCX und/oder INF, OSD Dateien befinden. Diese herunterladen und alle in ein Verzeichnis entpacken. Die Installation kann dann per INF oder REGSVR32 vorgenommen werden.

     

    Gruß, THUMB

  6. Hallo,

     

    wenn es sich um ein Softmodem handeln sollte, kann es sein, dass dies die Soundkarte mitbenutzt. Auzug aus Wikipedia:

     

    "A Softmodem, or software modem, is a modem with minimal hardware capacities, designed to use a host computer's resources (mostly CPU power and RAM but sometimes even audio hardware) to perform most of the tasks performed by dedicated hardware in a traditional modem."

     

    Gruß, thumb

×
×
  • Neu erstellen...