Przemek Kuczyński

Skrypt logowania użytkownika pokaże nam :

nazwa komputera, zalogowanego użytkownika, nazwę karty sieciowej, opis karty sieciowej, adres ip, link speed

on error resume next
strComputer = "."
 
 
Set wshShell = Wscript.CreateObject( "Wscript.Shell" )
strServer=wshShell.ExpandEnvironmentStrings("%COMPUTERNAME%")
strUser=wshShell.ExpandEnvironmentStrings("%USERNAME%")
 
 
 
Function LinkSpeed(Desc)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI")
Set colItems = objWMIService.ExecQuery("SELECT * FROM MSNdis_LinkSpeed Where InstanceName = '" & Desc & "'",,48)
        For Each objItem In colItems
		If objItem.NdisLinkSpeed < 10000 Then
		LinkSpeed = objItem.NdisLinkSpeed / 10 & " KBps"
		ElseIf objItem.NdisLinkSpeed > 10000 Then
		LinkSpeed = objItem.NdisLinkSpeed / 10000 & " MBps"
		end if
		Next
End Function
 
 
 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_NetworkAdapterConfiguration " & "Where IPEnabled = True")
        For Each objItem in colItems
 
		        Wscript.Echo strServer & ";"  & strUser & ";"  & objItem.Caption & ";" & objItem.Description  & ";" & Join(objItem.IPAddress, ",") & ";" & LinkSpeed(objItem.Description)
 
 
				Next

Jeśli chcemy mieć zawsze aktualne informacje w logach skrypt wykonujemy nastepujaco:

 cscript //nologo //u \\server\zasob\skrypt.vbs > \\server\logi\%computername%.csv

Następnie za pomocą poniższego skryptu mozna polaczyć wszystkie logi w 1

del /q \\server\logi\all.csv
copy /y "\\server\logi\" C:\tmp\Nspeed\
FOR /R "C:\tmp\Nspeed" %%G IN (*.*) DO more %%G >> "\\server\logi\all.csv"

1. Tworzymy plik excel w postaci jak poniżej

Plik przykladowy do pobrania http://www.przemekkuczynski.pl/Createuser.xlsm

2. Zapisujemy C:\Book1.xls
3.  Tworzymy plik vbs o zawartosci

' UserSpreadsheet .vbs
' Sample VBScript to create User accounts from a spreadsheet
' Author Guy Thomas http://computerperformance.co.uk/
' Version 4.6 - June 2005
' ------------------------------------------------------' 
Option Explicit
Dim objRootLDAP, objContainer, objUser, objShell
Dim objExcel, objSpread, intRow
Dim strUser, strOU, strSheet
Dim strCN, strSam, strFirst, strLast, strPWD, strUPN, strDN, strEA2
 
' -------------------------------------------------------------'
' Important change OU= and strSheet to reflect your domain
' -------------------------------------------------------------'

strOU = "OU=PracownicyBezKomputera,OU=TESTOWE ," ' Note the comma
strSheet = "C:\Book1.xls"
 
' Bind to Active Directory, Users container.
Set objRootLDAP = GetObject("LDAP://rootDSE")
Set objContainer = GetObject("LDAP://" & strOU & _
objRootLDAP.Get("defaultNamingContext")) 
 
' Open the Excel spreadsheet
Set objExcel = CreateObject("Excel.Application")
Set objSpread = objExcel.Workbooks.Open(strSheet)
intRow = 3 'Row 1 often contains headings

' Here is the 'DO...Loop' that cycles through the cells
' Note intRow, x must correspond to the column in strSheet
Do Until objExcel.Cells(intRow,1).Value = ""
   strSam = Trim(objExcel.Cells(intRow, 1).Value)
   strCN = Trim(objExcel.Cells(intRow, 2).Value)
   strUPN = Trim(objExcel.Cells(intRow, 3).Value)
   strFirst = Trim(objExcel.Cells(intRow, 4).Value)
   strLast = Trim(objExcel.Cells(intRow, 5).Value)
   strPWD = Trim(objExcel.Cells(intRow, 6).Value)
   strDN = Trim(objExcel.Cells(intRow, 7).Value)
   strEA2 = Trim(objExcel.Cells(intRow, 8).Value)
on error resume next 
   ' Build the actual User from data in strSheet.
   Set objUser = objContainer.Create("User", "cn=" & strCN)
   objUser.sAMAccountName = strSam
   objUser.userPrincipalName = strUPN
   objUser.givenName = strFirst
   objUser.sn = strLast
   objUser.displayName = strDN
   objUser.extensionAttribute2 = strEA2
   objUser.SetInfo
 
   ' Separate section to enable account with its password
   objUser.userAccountControl = 512
   objUser.pwdLastSet = 0
   objUser.SetPassword strPWD
   objUser.SetInfo
 
intRow = intRow + 1
Loop
objExcel.Quit 
 
WScript.Quit 
 
' End of free example UserSpreadsheet VBScript.

Jesli ktokolwiek to przeczyta radze się zastanowić 2 razy zanim cokolwiek kupicie od tej firmy. Na allegro sprzedają pod nickiem copymax http://allegro.pl/show_user.php?uid=614568

Więcej info na: http://www.niekupuje.pl/?p=312

Egzamin składa się z 8 case’ow po 5-8 pytań. Na kazdy  case jest około 15 minut czasu. Po zdaniu egzaminu chciałbym się podzielić materiałami. Wiekszość jest niestety dla partnerów Microsoft, ale nie koniecznie. Szczególnie polecam szkolenie w Betacom.

• https://partner.microsoft.com/poland/licensing/40103235

• https://partner.microsoft.com/global/40029167

• Microsoft Licensing Specialist – szkolenie podstawowe

• Microsoft Licensing Specialist – szkolenie zaawansowane

• Software Assurance
  http://www.microsoft.com/licensing/software-assurance/#tab=2
  https://partner.microsoft.com/poland/licensing/volumelicensesoftwareassurance/assuranceresources

• KMS & MAK
  http://virtualstudy.pl/spis-publikacji/61-planowanie-oraz-zarzdzanie-licencjami-klientow-i-aktywacjami-70-686
  http://cid-11f428a40abf47ac.skydrive.live.com/self.aspx/Obrazy/Robert%20Stuczynski%20-%20www.VirtualStudy.pl%20-%2071-685%2071-686.pptx
  volume_activation_2.0_mak_kms_key.doc

• Enterprise Agreement
  https://partner.microsoft.com/global/40012014
  http://www.microsoft.com/licensing/licensing-options/enterprise.aspx#tab=2

• http://www.microsoft.com/poland/licencje/menu/zrodla.aspx

• Wiedza jakie Microsoft oferuje produkty oraz do czego służą
  http://en.wikipedia.org/wiki/List_of_Microsoft_software_applications
  http://en.wikipedia.org/wiki/List_of_Microsoft_Office_programs

• http://www.microsoft.com/licensing/about-licensing/product-licensing.aspx

• https://www.explore.ms/publichome.aspx

• Volume Licensing Service Center

• Microsoft License Advisor

• SPLA

Powodzenia na egzaminie !!!

Lista zniżek 10,20 i 50 %. W wiekszości ważne vouchery do 30.06.2010. Niektore moga byc juz wykorzystane. Prawdopodobnie są z opcją second shot. Najlatwiej sprawdzic na stronie prometric.com . A oto obiecane vouchery Czytaj dalej… »

Kolejny beta egzamin zdany Tym razem TS: Windows Server 2008 R2, Desktop Virtualization. Pytania na egzaminie skupiają się na:

• Windows Virtual PC
• MED-V
• APP-V
• Windows XP Mode
• Virtual Desktop Infrastructure (VDI)
• Hyper-v Server

Więcej info na: http://www.microsoft.com/learning/en/us/exam.aspx?ID=70-669

Od pojawienia się Windows Vista z dodatkiem RSAT (Remote Server Administration Tools) administratorzy Active Directory mają ułatwione zadanie przy konfuguracji stacji roboczych oraz ustawień użytkowników. Group policy preferences pomaga w stosowaniu ustawień do konkretnego zbioru podobnych właściwości, i to bez znajomości pisania skryptów vbs czy bat. Dzieje się to dzięki Item Level Targeting.
Item Level Targeting może ograniczać stosowanie preferencji dla:

• Grupy osób
• Zakresów IP
• Wersji systemów operacyjnych
• Wersji pliku exe
• Tylko Laptopy
• Wielkości pamięci Ram lub/i Dysku HDD

Oraz kilku innych właściwości + możliwość definiowania własnych zaawansowanych dzięki Wmi query

Dzięki Group policy preferences (GPP) możemy :

W GPO komputera:

• Definiować zmienne środowiskowe
• Tworzyć lub/i nadpisywać pliki
• Tworzyć lub/i nadpisywać katalogi
• Tworzyc lub/i zmieniac czesci pliku ini
• Tworzyc lub/i nadpisywac wartosci gałęzi lub wartości kluczy w rejestrze
• Tworzyć udziały sieciowe
• Tworzyć lub/i modyfikować skróty
• Tworzyć lub/i modyfikować żródła ODBC
• Włączać lub wyłączać urządzenie w menadżer urzadzen
• Powiązać rozszerzenie pliku z programem
• Tworzyć lub zmieniać konta lokalne i grupy lokalne (np hasło)
• Tworzyc lub/i zmieniać połączenia VPN oraz Dial-Up
• Tworzyc lub/i zmieniać opcję zasilania
• Tworzyc lub/i zmieniać lokalne drukarki oraz drukarki TCP/IP
• Tworzyć lub/i zmieniać zaplanowane zadania
• Modyfikować ustawienia usług windows

W GPO użytkownika możemy:

• Mapowanie lub zmienianie dysków sieciowych
• Definiować zmienne środowiskowe
• Tworzyć lub/i nadpisywać pliki
• Tworzyć lub/i nadpisywać katalogi
• Tworzyc lub/i zmieniac czesci pliku ini
• Tworzyc lub/i nadpisywac wartosci gałęzi lub wartości kluczy w rejestrze
• Tworzyc lub/i zmieniac skróty

Aby wdrożyć  to rozwiązanie ktore pomaga lepiej zarządzać preferencjami wystarczy:

• Posiadać domenę na poziomie funkcjonalności Windows 2000 mixed lub wyższą
• Posiadać w domenie jedną stację roboczą lub member serwer z Windows Vista lub Windows 7 lub Windows 2008. Stacja lub member server powinny być zaaktualizowane do najnowszego service pack oraz posiadać zainstalowany RSAT.
• Ustawienia Group policy preferences możemy aplikować na Windows Vista RTM albo póżniejszy, Windows XP z Service Pack 2 albo póżniejszy, Windows Server 2003 z Service Pack 1 albo póżniejszy, Windows 7, Windows 2008.
• Na stacjach roboczych musi być zainstalowane CSE – Client Side Extension
  Windows Vista (x86): http://go.microsoft.com/fwlink/?LinkId=111859
  Windows Vista (x64): http://go.microsoft.com/fwlink/?LinkID=111857
  Windows XP (x86): http://go.microsoft.com/fwlink/?LinkId=111851
  Windows XP (x64): http://go.microsoft.com/fwlink/?LinkId=111862
  Windows Server 2003 (x86): http://go.microsoft.com/fwlink/?LinkId=111852
  Windows Server 2003 (x64): http://go.microsoft.com/fwlink/?LinkId=111863
  oraz
  XMLLite low-level XML parser: http://go.microsoft.com/fwlink/?LinkId=111843

Z okazji instalowania poprawek powyżej polecam bardzo dobry webcast odnośnie WSUSa

Zainteresowany pytaniem na które nikt nie umiał odpowiedzieć tj http://wss.pl/frmThread.aspx?tid=93286 Jak zmienić uprawnienia do rejestru dla klucza curent_user jeśli sa profile utworzone.
Zacznijmy od tego ze klucze użytkowników znajduja się w HKEY_USERS\SID np S-1-5-21-2000478354-1844237615-1801674531-1003. Więc pytanie jak sprawdzić sid zalogowanego użytkownika ? Z pomoca przychodzi technet plus dodanie zmiennej %username% i %userdomain%. Skrypt wyglada nastepujaco:

Set oShell = CreateObject( "WScript.Shell" )
user=oShell.ExpandEnvironmentStrings("%UserName%")
komp=oShell.ExpandEnvironmentStrings("%userdomain%")
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
 
Set objAccount = objWMIService.Get _
    ("Win32_UserAccount.Name='"& user & "',Domain='"& komp & "'")
 
	sid = objAccount.SID
	Wscript.Echo sid

Majac sid uzytkownika znamy już ściężkę w rejestrze.
Możemy przystapić do zmiany uprawnień, do tego posłuży nam program subinacl.exe oraz poznany SID.

Robimy w ten sposób, że z poziomu użytkownika np za pomoca skryptu startowego uzytkownika wykonujemy polecenie:

cscript /nologo "\\server\share\test.vbs" > "C:\WINDOWS\TEMP\ZMIENNA.TXT"

gdzie test.vbs zawiera powyzszy kod. Plik ZMIENNA.TXT bedzie nam potrzebny ale to za chwile.

Teraz przystapimy do nadania uprawnień.

Utworzmy najpierw plik bat zawierajacy:

REM tworzymy zmienna z sid uzytkownika
set /p zmienna=<"C:\WINDOWS\TEMP\ZMIENNA.TXT"
REM przyklad uzycia subinacl
"C:\Program Files\Windows Resource Kits\Tools\subinacl.exe" /keyreg "HKEY_USERS\%zmienna%\Software\7-Zip" /grant="wszyscy" f
REM czyscimy zmienna
set zmienna=

Taki skrypt podpinamy np pod skrypt wyłaczenia komputera. Lub uzywajac cpau z opcja enc

W artykule opisano metody resetowania hasła gdy mamy fizyczny dostep do stacji roboczej lub serwera.
Metody te to:

1. Uruchomienie systemu z płyty Active@ Password Changer lub Hiren’s Boot.
2. Uruchomienie systemu z płyty Erd Commander.
3. Podpięcie dysku pod drugi komputer.

Metody przetestowane na Windows XP SP3 oraz metoda 3 na Windows 2003 z rolą AD.

Artykul wylacznie w celach edukacyjnych. Nie ponoszę odpowiedzialności za straty.

Po kliknieciu na zdjęcie dostępny pełny rozmiar

Czytaj dalej