Jump to content

thumb

Members
 Profil anzeigen  Aktivitäten des Benutzers anzeigen

  • Gesamte Inhalte

    376

  • Registriert seit

  • Letzter Besuch

 Inhaltstyp 

Beiträge erstellt von thumb

  1. Wins Server eintragen

    in Windows Forum — Scripting

    Geschrieben

    Hallo tacher,

     

    ich bin so frei und gehe jetzt nicht auf Dein Script ein. Hier ist eines, welches ich einmal eingesetzt hatte, vielleicht hilft Dir dies. Gruß THUMB

     

    On Error Resume Next

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

     

    Set colNetCards = objWMIService.ExecQuery _

    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

     

    For Each objNetCard in colNetCards

    strPrimaryServer = "192.168.1.100"

    strSecondaryServer = "192.168.1.200"

    objNetCard.SetWINSServer strPrimaryServer, strSecondaryServer

    Next

  2. net share

    in Windows Forum — Scripting

    Geschrieben

    Hallo zusammen,

     

    auch NET SHARE TEST /DELETE <C:\Y.txt funktioniert nicht (der Inhalt der Datei Y.txt ist ein "Y" und ein Cr/Lf.

     

    Probier mal das VB-Script, vielleicht hilft Dir das:

     

    strComputer = "."

    strName = "test"

     

    set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

    set objShare = objWMI.Get("Win32_Share.Name='" & strName & "'")

    intRC = objShare.Delete

    if intRC <> 0 then

    WScript.Echo "Error deleted share: " & intRC

    else

    WScript.Echo "Successfully deleted share"

    end if

     

     

    Gruß THUMB

     

    PS: Oh, sorry, war zu langsam. (Und zu kompliziert ;-))

  3. Automation mit NetInstall?

    in Windows Forum — Scripting

    Geschrieben

    Hallo Lupo45,

     

    vielen Dank für Deinen Hinweis Change- und Relaseprozesse zu verwenden;-)

     

    Auch ich bin kein Anfänger und betreue u.a eine SW-Verteilung mit 60000 Clients in 12 Standorten auf 3 Kontinenten.

     

    Und bei uns unterliegen nicht nur die Grosskunden einem CR-Prozess und daher auch mein Statement, dass es egal sei, wie viele Clients man betreut. Warum Du mir dann grossspurig erklärtst, wie ein CMS funktioniert, keine Ahnung....

     

    Übrigens mein NI funktioniert prima, ich kann mich nicht über Bugs beklagen...

     

    Viel Spass noch, THUMB

  6. Automation mit NetInstall?

    in Windows Forum — Scripting

    Geschrieben

    Tach auch,

     

    zu 1. Um VB-Scripte ohne CallScript aufzurufen, verwende einfach EXECUTE und starte WSCRIPT.EXE und als Argument Dein Script. VB-Objekte im NI-Script kannst Du nicht verwenden, Du hast lediglich die Möglichkeit VBS aus dem NI-Script zu starten! Aber Vorsicht, ein RollBack der Befehle die im VBS ausgeführt werden ist dann natürlich nicht möglich, ohne separate RollBack Scripte zu schreiben.

     

    zu 2. Kann ich im Moment nichts zu sagen.

     

    zu3. Wenn Du NetInstall verwendest und ein VBS-Script im administrativen Kontext starten willst, führe die entsprechende Zeil im NI-Script im Kontext des NI-Services aus.

     

    Gruß, THUMB

     

    PS: Ob man nun 1000 oder 10000 Clients mit NI verwaltet ist meiner Meinung nach Einerlei. Wenn Du mit schlechten Scripten die Plattformen versaust und der Kunde deshalb nicht mehr zu arbeiten vermag, gibt es schon bei 100 Maschinen Ärger!

  16. DHCP Optionen per Script konfigurieren?

    in Windows Forum — Scripting

    Geschrieben

    Tach auch,

     

    die WMI Klasse lautet Win32_NetworkAdapterConfiguration.

     

    Detailierte Informationen zum Automatisieren der Netzwerkeinstellungen von MS findest Du hier: Automatisieren von TCP/IP-Netzwerken auf Clients: Teil*4: Skripterstellung für die IP-Adresszuweisung auf Clients

     

    DHCP auf dem Client schaltest Du z.B. so ein:

     

    On Error Resume Next

     

    strComputer = "."

    Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

    Set colNicConfigs = objWMIService.ExecQuery _

    ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

     

    For Each objNicConfig In colNicConfigs

    WScript.Echo VbCrLf & " Network Adapter " & objNicConfig.Index & _

    VbCrLf & " " & objNicConfig.Description & VbCrLf

    If Not objNicConfig.DHCPEnabled Then

    WScript.Echo " Enabling DHCP ..."

    intReturn = objNicConfig.EnableDHCP

    If intReturn = 0 Then

    strSuccess = " DHCP enabled."

    Else

    strSuccess = " Unable to enable DHCP."

    End If

    WScript.Echo VbCrLf & strSuccess

     

    Else

    WScript.Echo " DHCP already enabled" & VbCrLf & _

    " DHCP Server: " & objNicConfig.DHCPServer

    End If

    Next

     

    Gruß THUMB

  17. robocopy - Verzeichnis nicht sichtbar

    in Windows Forum — Allgemein

    Geschrieben

    Tach auch,

     

    guckst Du die Dateien mit dem Explorer an, wenn ja, ist hier die Ansicht so eingestellt, dass diese Dateien auch angezeigt werden? Welche Extension haben die Dateien?

     

    Du schreibst, dass Du in den Eigenschaften der Ordner siehst, dass Dateien enthalten sein müssen und kurz danach fragst Du, wie man dem Dateisystem beibringen kann die Ordner anzuzeigen.

     

    Du hast glaube ich kein Problem mit dem Dateisystem, sondern wie Du schon fast selbst schreibst, mit dem Programm, dass die Dateien anzeigt, also wahrscheinlich dem Explorer.

     

    Gruß, THUMB

  20. Win2k durch Batch herunterfahren

    in Windows Forum — Allgemein

    Geschrieben

    Tach auch,

     

    ich hätte Dir eine Variante über VBS/WMI anzubieten.

     

    Gruß, THUMB

     

     

     

     

    Sub ShutDown

     

    nLogOff=0

    nReboot=2

    nForceLogOff=4

    nForceReboot=6

    nPowerDown=8

    nForcePowerDown=12

     

    Set oOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")

     

    For Each oOperatingSystem in oOS

    oOperatingSystem.Win32Shutdown(nForcePowerDown)

    Next

     

    End sub

     

    ShutDown

×
×
  • Neu erstellen...