BAT FILE :/ Opcje

[GrayHat]

moze ktos z was bawil sie kiedys w plikach *.BAT??
ma moze ktos ciekawe listingi??
(IMG:http://forum.php.pl/style_emoticons/default/aaevil.gif)

[Seth]

Restart komputera:

Kod

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

    & "{impersonationLevel=impersonate,(Shutdown)}!" & _

        strComputer & "rootcimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

    ("SELECT * FROM Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

    objOperatingSystem.Reboot()

Next

Informacje o zalogowanym userze:

Kod

Set objSysInfo = CreateObject("ADSystemInfo")

Wscript.Echo "User name: " & objSysInfo.UserName

Wscript.Echo "Computer name: " & objSysInfo.ComputerName

Wscript.Echo "Site name: " & objSysInfo.SiteName

Wscript.Echo "Domain short name: " & objSysInfo.DomainShortName

Wscript.Echo "Domain DNS name: " & objSysInfo.DomainDNSName

Wscript.Echo "Forest DNS name: " & objSysInfo.ForestDNSName

Wscript.Echo "PDC role owner: " & objSysInfo.PDCRoleOwner

Wscript.Echo "Schema role owner: " & objSysInfo.SchemaRoleOwner

Wscript.Echo "Domain is in native mode: " & objSysInfo.IsNativeMode

Tutaj opisane sa co wazniejsze elementy WSH.
http://msdn.microsoft.com/library/default....sscripthost.asp

Dodam jeszcze, ze za pomoca WSH mozna kontrolowac aplikacje przez COMa czy tez np wysylac klawisze:

Kod

set objWSH = WScript.CreateObject("WScript.Shell")

objWSH.Run "notepad"

WScript.Sleep 100

objWSH.AppActivate "Notepad"



tekst = "Witaj!"



for i = 1 to len(tekst)

  sendKey mid( tekst, i, 1 )

next



sub sendKey( key )

  WScript.Sleep 200

  objWSH.SendKeys key

end sub

Pliki powinny miec koncowke .vbs gdyz jest to jezyk Visual Basic Script.

Ogolnie tego typu skrypty bardzo ulatwiaja procesy konfiguracji systemu czy zarzadzania uzytkownikami i prawami.