Jump to content

itomix

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    44

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von itomix

  2. Excel DNS-Adressen

    in Windows Forum — Scripting

    Geschrieben

    Hallo zusammen,

    ich habe ein kleines Problem und würde das gerne mal posten eventuell kennt jemand dazu ja eine Lösung.

    Ich möchte gerne alle DNS-Adressen eines Systems auslesen und in folgenden Format in eine Excel Zelle

    eintragen.

    192.168.0.1; 192.168.0.2; 192.168.0.3

    Ich würde mich echt freuen wenn jemand dazu ein Lösung hat

     

    Gruß

    Tom

     

    strComputer = "."
DIM intRow
SET objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Add

SET objWMIService = GetObject("winmgmts:" _
   & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
SET IPConfigSet = objWMIService.ExecQuery _
   ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
intRow = 2 

objExcel.Visible = True

objExcel.Range("A:A").ColumnWidth = 10
objExcel.Cells(1, 1).Value = "DNS-Address"
FOR EACH IPConfig IN IPConfigSet
   IF NOT IsNull(IPConfig.DNSServerSearchOrder) THEN
 FOR i = 0 TO UBound(IPConfig.DNSServerSearchOrder)
  objExcel.Cells(intRow, 1).Value = IPConfig.DNSServerSearchOrder(i)
 'wscript.echo IPConfig.DNSServerSearchOrder(i)  
 NEXT
END IF
NEXT

  3. Ein VBS Dateien mit einen Domänen Zertifikat (Codesignierung) signieren

    in Windows Forum — Scripting

    Geschrieben

    Ein VBS Datei mit einen Domänen Zertifikat (Codesignierung) signieren

     

    Hallo zusammen,

     

    ich habe folgendes Problem und finde leider kein ordentliches "HowTo" oder "Step by Step" Anleitung zur signierung von VBS Dateien in einer

    Windows Server 2003 Ent. Domänen.

     

    Was wurde bereits gemacht :

     

    Install Windows Server 2003 = done

    Install Zertifizierungsstelle = done

    Anpassung der Gruppenrichtlinien = done

    Erstellung eines Zertifikate zur

    Clientauthenfizierung = done

    Ausrollen der Zertifikate über die

    Gruppenrichtlinie = done

    Erstellung eines Zertifikat zur

    Codesignierung mit den Namen

    ContosoVBS = done

     

    Jedoch bekomme ich beim signieren der VBS Datei mit den Beispiel Skript

    von Microsoft

     

    'Signed.vbs
set objSigner = WScript.CreateObject("Scripting.Signer")
objSigner.SignFile "C:\Test.vbs", "ContosoVBS"

     

    immer wieder folgenden Fehler:

     

    C:\Signed.vbs(2, 1) (null): Das Zertifikat und der private Schlüssel für die Entschlüsselung wurden nicht gefunden

    Das Zertifikat dafür befinde sich aber unter Eigene Zertifiakte aber ohne ein richtiges HowTo dazu komme ich irgendwie nicht richtig weiter ;o( Mit den Programm "SELFCERT.EXE" funktioniert es aber ich möchte Zertifikate mit einen längeren Zeitraum vergeben als nur ein 1 Jahr

     

    Es währe echt schön wenn jemand von euch eine gute "Step by Step" Anleitung dazu hätte.

     

    Gruß

    Tom Del Greco

  4. EventWatcher - mal ganz easy

    in Windows Forum — Scripting

    Geschrieben

    Hi NilsK,

     

    schön das jemand Antwortet ;o)

     

    Aber ich habe dieses Skript gepostet damit man nicht umbending auf eine EXE zurückgreifen muss da diese a) recht statisch ist und man nie weiß was diese EXEC sonst noch so macht ;o)

     

    Gruß

    Tom

     

     

    Moin,

     

    sehr schön!

     

    Hier eine Alternative für XP und 2003 (in Vista/2008 scheint es nicht drinzusein; dort kann man das aber per GUI machen):

    faq-o-matic.net Auf Windows-Ereignisse reagieren

     

    Zum Mailversand kann man blat.exe einbinden.

     

    Gruß, Nils

  5. EventWatcher - mal ganz easy

    in Windows Forum — Scripting

    Geschrieben

    Hallo zusammen,

     

    da ich schon mehrmals gefragt wurde ob es ein Skript gibt

    was eine bestimmtes Ergeignis finden und diese per Email

    versendet, habe ich hierzu mal ein kleines Skript geschrieben.

    Da es sich ausschliesslich um Funktionen handelt könnt Ihr den

    Quellcode sehr einfach in eure Skripte einbinden

     

    Gruß

    Tom Del Greco

     

     

     

    '________________________________________________'

    ' '

    ' WatchEvents'

    ' Create for Windows XP/2000/2003'

    ' from T. Del Greco 27.10.2008'

    '________________________________________________'

     

     

     

    On Error Resume Next

     

     

    FUNCTION SearchEventLog(strEventCode, strLogFile, strSourceName)

     

    CONST CONVERT_TO_LOCAL_TIME = True

     

    Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")

    Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")

    strDateNow = DateSerial(Year(Now()),Month(Now()),Day(Now()))

     

    DateToCheck = CDate(strDateNow)

    dtmStartDate.SetVarDate DateToCheck, CONVERT_TO_LOCAL_TIME

    dtmEndDate.SetVarDate DateToCheck + 1, CONVERT_TO_LOCAL_TIME

     

    strComputer = "."

     

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colEvents = objWMIService.ExecQuery ( "Select * from Win32_NTLogEvent Where " _

    & "Logfile = '" & strLogFile & "' and EventCode = '"& strEventcode & "'" _

    & "and SourceName = '" & strSourceName & "'" _

    & "and TimeWritten >= '" & dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'")

     

     

     

    IF colEvents.Count >= 1 THEN

    FOR EACH objEvent IN colEvents

    strEventCode = objEvent.EventCode

    strEventMessage = objEvent.Message

    NEXT

    CALL SendMail(strEventCode,strEventMessage)

    ELSE

    WScript.Echo "Alles OK"

    END IF

     

    END FUNCTION

     

     

    FUNCTION HostN()

     

    strComputer ="."

     

    CONST wbemFlagReturnImmediately = &h10

    CONST wbemFlagForwardOnly = &h20

    DIM a

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

    Set colPC = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", _

    wbemFlagReturnImmediately + wbemFlagForwardOnly)

    FOR EACH objItem IN colPC

    a = objItem.Name

    NEXT

    HostN=a

    END FUNCTION

     

     

    FUNCTION SendMail(strEventCode,strEventMessage)

     

    strSMTP = "smtp.contoso.com"

    strDate = formatDateTime(Now(), vbLongDate)

    strTime = formatDateTime(Now(), vbLongTime)

     

    Set objEmail = CreateObject("CDO.Message")

    objEmail.From = "BigBrother@" & HostN() & ".osite.de"

    objEmail.To = "administrator@contoso.com"

    objEmail.CC = "bigbrother@contoso.com"

    objEmail.Subject = "[EVENTLOG : ERROR] - " & HostN

    objEmail.TextBody = objEmail.TextBody & vbCRLF & String(46, "_") & vbCRLF

    objEmail.TextBody = objEmail.TextBody & vbCRLF

    objEmail.TextBody = objEmail.TextBody & " BigBrother / contoso.local"

    objEmail.TextBody = objEmail.TextBody & vbCRLF & String(46, "_") & vbCRLF

    objEmail.TextBody = objEmail.TextBody & vbCRLF & "Host : " & HostN

    objEmail.TextBody = objEmail.TextBody & vbCRLF & "Date : "& strDate & " " & strTime & vbCRLF

    objEmail.TextBody = objEmail.TextBody & vbCRLF & "Event Code : " & strEventCode

    objEmail.TextBody = objEmail.TextBody & vbCRLF & "Event Message : " & strEventMessage

    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP

    objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

    objEmail.Configuration.Fields.Update

    objEmail.Send

    END FUNCTION

     

    CALL SearchEventLog("100","System","TEST")

  6. Error -2147023174 mit XCACLS.vbs

    in Windows Forum — Scripting

    Geschrieben

    Hi doeme,

     

    man über einen UNIC Pfad keine NTFS Berechtigungen setzen!

     

    wenn du Administrator dieses Rechners bist dan mounte dir das Volumen mit einen Laufwerksbuchstaben ein und es funktioniert.

     

    net use x: \\chrana01\rootdata$\%USERNAME%\ShellFolder\Application Data\Microsoft\Signatures\

XCacls.vbs /E /D x:\ra_reg\%USERNAME%:W /DEBUG

net use x: /d

     

    Gruß

    Tom

  8. WSH-Security mal ganz schnell

    in Windows Forum — Scripting

    Geschrieben

    Hallo liebe VBS Programmierer,

     

    für alle die etwas mehr WSH-Sicherheit möchten, habe ich mal ein kleines VB Skript geschrieben!

     

    Gruß

    Tom Del Greco

     

    '___________________________________________
'                                           
'             WSH Signed Scripts            
'       Create for Windows 2000/XP/2003     
'
'         from Tom Del Greco 15.12.07
'         last change:
'
'___________________________________________

'
' Mit dieses kleinen Skripte koennen die Ausführ-
' eigenschaften von VB-Skripten auf einen 
' Windows 2000/2003/XP gesteuert werden.

' ACHTUNG : Wenn das Argument "/cert" ausgeführt
' wird, können keine Skripte ausgeführt werden 
' die kein Zertifikat vom Betriebsystem erhalten
' haben. Sollte es dennoch vorkommen das man diese
' Option, ohne Zertifikat ausgeführt hat, kann man 
' den Registry DWORD Einträge von Hand wieder auf 
' NULL (0) zurück setzen!


On Error Resume Next

Function WSHSec(DWORD_Value)
' dwValue 0 /runall Alle Skripte werden ausgefuehrt.
'
' dwValue 1 /usermode Der Benutzer entscheidet, ob unsignierte
'                                  Skripte ausgefuehrt werden sollen.
'
' dwValue 2 /cert Nur signierte Skripte werden ausgefuehrt.
'	 
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

strComputer = "."
  Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _ 
      strComputer & "\root\default:StdRegProv")
          strKeyPath   = "SOFTWARE\Microsoft\Windows Script Host\Settings"
          strDWORD     = "TrustPolicy"
   strString    = "UseWINSAFER"
   String_Value = "0"

        'HKLM\SOFTWARE\Microsoft\Windows Script Host\Settings
        oReg.SetDWORDValue HKEY_LOCAL_MACHINE,strKeyPath,strDWORD,DWORD_Value
        oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strString,String_Value

	'HKCU\SOFTWARE\Microsoft\Windows Script Host\Settings
               oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strDWORD,DWORD_Value
End Function

Sub strRunAll 
Dim Answer
Set objShell=WScript.CreateObject("WScript.Shell")
   Answer = objShell.Popup("WSH Sicherheit deaktivieren?",1+64,"Warnung",1+64)
     If Answer = vbOk Then
        CALL WSHSec(0)
     End If
End Sub

Sub strCert
Dim Answer
Set objShell=WScript.CreateObject("WScript.Shell")
   Answer = objShell.Popup("Alle VB-Skript koennen nur noch mit einen gueltigen " & vbCrLf & _ 
                           "Zertifikat ausgefuehrt werden, wollen Sie diese" & vbCrLf & _
		    "Einstellung in der Registry wirklich uebernehmen?" ,1+64,"Warnung",1+64)
     If Answer = vbOk Then
        CALL WSHSec(2)
     End If
End Sub

Sub Help
  WScript.Echo ""
  WScript.Echo " Create by Tom Del Greco '2007"
  WScript.Echo ""
  WScript.Echo " vcert.vbs [/?] [/cert] [/usermode] [/runall]"
  WScript.Echo ""
  WScript.Echo " /?        - Help"
  WScript.Echo " /cert    - WSH-Skripte werden nur mit einen gültigen Zertifikat ausgeführt!"
  WScript.Echo " /usermode - Der Benutzer wird aufgefordert ob WSH-Skripte ausgeführt werden!"
  WScript.Echo " /runall   - Alle WSH-Skripte werden ohne Aufforderung ausgeführt!"
  WScript.Echo ""
  WScript.Quit
End Sub

iNumber = Wscript.Arguments.Count

If (WScript.Arguments.Count -1) OR (WScript.Arguments.Count > 1) Then
  CALL Help
End If

If (WScript.Arguments.Named.Exists("?")) AND iNumber = 1 Then 
   CALL Help
End If

If (WScript.Arguments.Named.Exists("cert")) AND iNumber = 1 Then 
  CALL strCert
  WScript.Quit
End If

If (WScript.Arguments.Named.Exists("usermode")) AND iNumber = 1 Then 
  CALL WSHSec(1)
  WScript.Quit
End If

If (WScript.Arguments.Named.Exists("runall")) AND iNumber = 1 Then 
  Call strRunAll
  WScript.Quit
End If

On Error Goto 0

  9. Hostnamen und IP setzen per Script - RIS Dienste

    in Windows Forum — Scripting

    Geschrieben

    Hi flibbi,

     

    für das auslesen der des Hostname und der IP -Addresse habe ich Dir mal ein kleines Beispiel geskriptet ;o) *grins*

     

     

    Viel Spaß damit

    Tom

     

    ReadHostandIP.vbs

    On Error Resume Next
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20

strComputer ="."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")

Function HostN()
Dim a 	
  Set colPC = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem", "WQL", wbemFlagReturnImmediately + wbemFlagForwardOnly)
  For Each objItem In colPC 
      a = objItem.Name
  Next
      HostN=a
End function

Set objfs = CreateObject("Scripting.FileSystemObject")
Set objstream = objfs.CreateTextFile(HostN+".TXT")

  For Each objItem In colPC
      objstream.WriteLine "_____________________________________________"
      objstream.WriteLine " "
      objstream.WriteLine "	   Computer: " & HostN
      objstream.WriteLine "_____________________________________________"
  Next

For Each strComputer In arrComputers

Set colAdapters = objWMIService.ExecQuery _
   ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

n = 1
objstream.WriteLine

For Each objAdapter in colAdapters
  objstream.WriteLine "Network Adapter " & n
  objstream.WriteLine "-----------------"
  objstream.WriteLine
  objstream.WriteLine "Description 	: " & objAdapter.Description
  objstream.WriteLine
  'objstream.WriteLine "Host name : " & objAdapter.DNSHostName

  If Not IsNull(objAdapter.IPAddress) Then
     For i = 0 To UBound(objAdapter.IPAddress)
        objstream.WriteLine "IP address 	: " & objAdapter.IPAddress(i)
     Next
  End If

  If Not IsNull(objAdapter.IPSubnet) Then
     For i = 0 To UBound(objAdapter.IPSubnet)
        objstream.WriteLine "Subnet 		: " & objAdapter.IPSubnet(i)
     Next
  End If

  If Not IsNull(objAdapter.DefaultIPGateway) Then
     For i = 0 To UBound(objAdapter.DefaultIPGateway)
        objstream.WriteLine "Default gateway : " & _
            objAdapter.DefaultIPGateway(i)
     Next
  End If

  'objstream.WriteLine "DNS Servers : "

  If Not IsNull(objAdapter.DNSServerSearchOrder) Then
     For i = 0 To UBound(objAdapter.DNSServerSearchOrder)
     objstream.WriteLine "DNS Servers 	: " & objAdapter.DNSServerSearchOrder(i)
     Next
  End If

  objstream.WriteLine "DNS domain 	: " & objAdapter.DNSDomain

  If Not IsNull(objAdapter.DNSDomainSuffixSearchOrder) Then
     For i = 0 To UBound(objAdapter.DNSDomainSuffixSearchOrder)
        objstream.WriteLine "DNS suffix search list : " & _
            objAdapter.DNSDomainSuffixSearchOrder(i)
     Next
  End If

  objstream.WriteLine "MAC Address 	: " & objAdapter.MACAddress
  objstream.WriteLine

  IF objAdapter.DHCPEnabled = "Falsch" Then
       objstream.WriteLine "DHCP enabled 	      : No" 
  ELSE
       objstream.WriteLine "DHCP enabled 	      : Yes"  
  End If
    'objstream.WriteLine "DHCP enabled 	      : " & objAdapter.DHCPEnabled

  objstream.WriteLine "DHCP server           : " & objAdapter.DHCPServer

  If Not IsNull(objAdapter.DHCPLeaseObtained) Then
     utcLeaseObtained = objAdapter.DHCPLeaseObtained
     strLeaseObtained = WMIDateStringToDate(utcLeaseObtained)
  Else
     strLeaseObtained = ""
  End If
  objstream.WriteLine "DHCP lease obtained   : " & strLeaseObtained

  If Not IsNull(objAdapter.DHCPLeaseExpires) Then
     utcLeaseExpires = objAdapter.DHCPLeaseExpires
     strLeaseExpires = WMIDateStringToDate(utcLeaseExpires)
  Else
     strLeaseExpires = ""
  End If
  objstream.WriteLine "DHCP lease expires    : " & strLeaseExpires
  objstream.WriteLine "Primary WINS server   : " & objAdapter.WINSPrimaryServer
  objstream.WriteLine "Secondary WINS server : " & objAdapter.WINSSecondaryServer
  n = n + 1
  Next
Next
objstream.close

  10. Benutzer automatisch anlegen mit attributen(gruppe,kennwort, läuft nicht ab)

    in Windows Forum — Scripting

    Geschrieben

    Hallo zusammen

     

    vor ein paar Tagen habe ich ein ein Script das Benutzer unter Windows XP/2000/2003 anlegt programmiert hier mal ein Beispiel dazu!

     

    @Info:

    Das Script startet aus einer CMD (DOS) heraus, damit das Script lauffähig müsst Ihr entweder das Script über "cscript MeinScript.vbs" starten oder den Standardskripthostmit folgender Zeile als Standard definieren:

     

    Syntax:

    cscript //H:cscript

     

    Ebenfalls nimmt das Script den Neuen Benutzer in die Gruppe "Meine Gruppe" auf. Wenn

    Ihr das Script testet legt also noch eine Gruppe an oder dokumentiert den Gruppen Teil im Script aus.

     

    Viel Spaß damit

    Tom

     

    CreateUser.vbs

     

    
'_________________________________________
'
' Anlegen eines Benutzer
'
' Erstellt von T. Del Greco am 25.06.2007
'_________________________________________

Const ADS_UF_PASSWD_CANT_CHANGE = &H40

strComputer = "."

WScript.StdOut.Write "Name : "
strName = WScript.StdIn.ReadLine

WScript.StdOut.Write "Passwort : "
strPwd = WScript.StdIn.ReadLine

'Beschreibung
strDesc = "Meine Benutzer"

Set objcomp = GetObject("WinNT://" & strComputer & ",computer")
Set objkonto = objcomp.Create("user", strName)

With objkonto
   .Description = strDesc
   .SetPassword strPwd
   .UserFlags = .UserFlags OR 65536
   .UserFlags = objKonto.UserFlags OR ADS_UF_PASSWD_CANT_CHANGE
   .SetInfo
End With

Set objnet = CreateObject("WScript.Network")

strComputer = objnet.ComputerName
strGruppe = "Meine Gruppe"

Set objcomp = GetObject("WinNT://" & strComputer)
Set objGruppe = objcomp.GetObject("group", strGruppe)
Set objKonto = objcomp.GetObject("user", strName)

With objGruppe
    .Add objKonto.ADsPath
    .SetInfo
End With

'_____________________________________________________________________

  11. Spript User anlegen SharePoint 3.0

    in Windows Forum — Scripting

    Geschrieben

    tach auch zusammen,

     

    hiermal ein kleines Beispiel um mehere Benutzer testweis in einer OU anzulegen!

     

    MfG

    Tom Del Greco

     

    'Anlegen von mehren Test Benutzer in einer Organisationseinheit der Domainestruktur
'Erstellt am 10.04.2007 von T.Del Greco 

'Developer Feedback: Keiner wird gekündigt für Scripte die man versteht ;o) ?

DIM RootDSE

Set RootDSE = GetObject("LDAP://RootDSE")
   Domainname=RootDSE.Get("DefaultNamingContext")

Set Domain  = GetObject("LDAP://" & Domainname)
   Nummber = inputBox("Wie viele Benutzer?")
   FavOU  = inputBox("In welcher OU sollen die User angelegt werden?")

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

  Randomize

     random = Int(100 * rnd + 1)
     i = 00

  Do Until i > Nummber - 1

     strUsername        = "Test-User" & "-" & i
     strFirstName       = "Firstname"
     strLastName        = "Lastname"
     strHomeDir         = "\\" & wshNet.Computername & "\UserHomePath\" & strUsername
     strHomeDrive       = "Z"
     strBasisfile       = "\\" & wshNet.Computername
     strPasswd          = "!!HalloWelt2007"
     strLoginScript     = "\\" & wshNet.Computername & "\UserLoginScripte\login.vbs"       
     strTermProfilePath = "\\" & wshNet.Computername & "\TermUserPath\"
     strTermDir         = "\\" & wshNet.Computername & "\TerminalUser\"

Set objUser = Domain.Create("User", "CN=" & strUsername & ", OU=" & FavOU)

With objUser

     'Registger Map Generally

     .FirstName         	= strFirstName
     .LastName          	= strLastname
     .Displayname        	= strFirstName & " " & strLastname 
     .EmailAddress      	= strFirstname & "." & strLastname & "@itomix.org"
     .Description       	= "Test User" 
     .SetInfo
     '_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

     'Registger Map Account

     .sAMAccountName    	= strUsername	
     .UserPrincipalName 	= strUsername
     .SetPassword strPasswd
     .AccountDisabled   	= True
     .SetInfo
     '_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

     'Registger Map Profile

     .ProfilePath		= strHomeDir
     .HomeDrive		= strHomeDrive
     .HomeDirectory		= strBasisfile
     .ScriptPath		= strLoginScript
     .SetInfo
     '_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

     'Register Map Terminal Service Profiles

     .AllowLogon = 1
     .TerminalServicesHomeDirectory = strTermDir      
     .TerminalServicesProfilePath = strTermProfilePath & strUsername
     .SetInfo   

End With

Set objUser = nothing
   i = i+1
   loop

Set Domain = nothing
   if i > 0 then
     'successfully 
   else
     'failed 
  end if

  12. Terminalsitzungen per Script beenden

    in Windows Forum — Scripting

    Geschrieben

    Hallöchen,

     

    für sowas kannst du einfach eine kleine WMI Zeile nutzen z.B.

     

    Syntax WMI:

    WMIC /NODE:"192.168.0.1" /USER:Administrator /PASSWORD:"AdminPassword" useraccount where(name="Username der gesperrt werden soll") set disabled="false"

     

    @Info: Solltes Du auf den Windows Server 2003 die Firewall ICF aktiviert haben, kann man mit WMIC nartürlich nicht viel anfangen. Um dennoch die WMI Syntax erfolgreich ins Ziel zu bringen, führst du auf den Server ein "netsh" Befehl aus der den RemoteAdmin für das Subnet oder eine bestimmte IP-Addresse freigibt.

     

     

    MfG

     

    Tom Del Greco

     

     

    Syntax NETSH:

     

    Netsh Firewall set Service Remoteadmin enable Subnet

  13. mal ein kleines Script zum erfassen der Hardware

    in Windows Forum — Scripting

    Geschrieben

    tach auch zusammen,

     

    habe mal eben ein kleins Inventur Script gescrieben für Eckdaten wie CPU, Speicher und soweiter eines Rechners zu erfassen. Wer es braucht der hat es jetzt oder zumindestens ein Beispiel dazu ;o) >>> viel Spaß damit

     

    Just for Info: Ich habe auch noch ein ähnliches Script gescrieben was mehre Hostnamen aus einer Textdatei ausliest. wer es braucht kann sich ja melden.

     

    MfG

    Tom Del Greco

    readDevices.txt

  14. Benutzer Shell wechsel ohne Passwort abfrage!

    in Windows Forum — Allgemein

    Geschrieben

    ...solche schönen Tools die Ich unter Linux habe fehlen mir leider immer wieder ;o)

     

    mhm, kann das Programm RUNASPRO den die aktuellen Kennwörter aus der SAM Database auslesen?

     

    Ich denke nicht und wenn "ja" was passiert wenn ich die SAM Datenbank über SYSKEY unter Windows 2003 verschlüsselt habe?

     

    Gruß

    Tom

     

    mit sudo kann man einem user auch befehle/rechte zuweisen welche er ohne kennwort abfrage ausführen kann (unter linux versteht sich). unter windows wäre dies auch mit tools wie runaspro möglich.

  15. per Script oder .bat-Datei dem CD-ROM Buchstabe zuweisen und Laufwerk verstecken?

    in Windows Forum — Allgemein

    Geschrieben

    ...dies sollte dein Problem auch unter 2000 lösen

     

    Kopiere den folgenden Text einfach in eine Datei speichere diese mit name.vbs und, starte diese über die Konsole mit den Befehl "cscript nam.vbs"

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    Set colVolumes = objWMIService.ExecQuery _

    ("Select * from Win32_Volume Where Name = 'D:\\'")

    For Each objVolume in colVolumes

    objVolume.DriveLetter = "Q:"

    objVolume.Put_

    Next

     

    Gruß

    Tom

  18. Benutzer Shell wechsel ohne Passwort abfrage!

    in Windows Forum — Allgemein

    Geschrieben

    Danke

     

    ...und ganz nebenbei, wer sehr viel in einer Domänen arbeitet und viel über die Konsole macht, weiß auch das man sich als Domänen-Admin von jeden beliebigen Client z.B. über

     

    runas /profile /user:server01.local\administrator "cmd.exe"

     

    eine Shell öffnen kann und von dort z.B mit "net use x: \\PC1\c$" ohne ein weiteres PASSWORT einzugeben ein Mountpunkt von eine Vloumen setzen kann und dies von jeden Client in der Domäne

     

    Gruß

    Tom

     

    Hallo!

     

    Kann ich bestätigen.

     

    Etwas vergleichbares unter Windows kenne ich aber auch nicht.

     

    Reiner

  19. Benutzer Shell wechsel ohne Passwort abfrage!

    in Windows Forum — Allgemein

    Geschrieben

    Leute ich setze hier nichts ins Forum rein, wenn ich es selbst nicht schon ausprobiert habe.

     

    Wenn als "root" unter eingeloggt ist, kann man hinherhalb der Konsole mit dem Befehl "su - Benutzer" direkt auf das Benutzerprofil wechseln OHNE ein Passwort einzugeben.

     

    Gebt doch einfach mal als Benutzer "root" den Befehl "id" ein Natürlich ohne Anführungszeichen, damit sieht man mit welchen Benutzeraccount man momentan eingeloggt ist.

     

    root:~ # uid=0(root) gid=0(root) groups=0(root)

     

    ...dann legt Ihr euch einen Test Benutzer mit folgenden Befehl an

     

    useradd -m benutzer1 -p meinpassword

     

    und feuert nach dem Ihr den Benutzer erfolgreich angelegt habt, den Befehl "su - benutzer1" ab

     

    Ergebnis

    root:~ # su - benutzer1

    benutzer1@woodstock:~>

     

    benutzer1@woodstock:~> id

    uid=1002(benutzer1) gid=100(users) Gruppen=16(dialout),33(video),100(users)

     

     

    Gruß

    Tom

  22. 70-290 Bestanden

    in MS Zertifizierungen — Prüfungen

    Geschrieben

    Hallo zusammen,

     

    möchte mich bei allen hier im Board bedanken, die hier fleißig mit schreiben und Ihre Erfahrungen und Tips weiter geben.

     

    Habe am Freitag letzter Woche (07.07.06) ebenfalls die 70-290 bestanden und, will noch wesentlich mehr erreichen als dieses ....

     

    Viele Grüße an alle im Board

    Tom Del Greco

  25. Consolen Login auf W2K Server per RDP

    in Windows Server Forum

    Geschrieben

    Ansonsten geht das auch mit nem älteren rdp client, wenn du:

    Rdp Datei anlegst und dann:

     

    mstsc.exe meineVerbindung.rdp -console.

     

    Dann kommst du auf die Konsole, vorausgesetzt es ist eine XP oder 2003 Maschine...

     

    ...ok da, haben wir uns Missverstanden *grins*

     

    ich meinte sowas ähnliches wie z.B. "SSH" wo ich direkt aus einer Konsole (CMD) herraus einen Server connecten kann ohne GUI.

     

    Gruß

    Tom

×
×
  • Neu erstellen...