Vydavatele se nepodařilo ověřit. Opravdu chcete spustit tento software?

Nástroje / Možnosti Internetu / Zabezpečení / Místní intranet / tl. WEBY

 

Mapování a dotaz na členství ve skupině

rem Option explicit

Dim objGroupList, WSHNetwork

Dim strDomain, strUser

wscript.echo „start“

Set WSHNetwork = CreateObject(„WScript.Network“)

call cleanup  ‘ Výmaz starých mapování

strDomain = WSHNetwork.UserDomain

strUser = WSHNetwork.UserName

With GetObject(„WinNT://“ & strDomain & „/“ & strUser & „, user“)

LoadGroups .Groups

End With

Select Case TRUE

Case objGroupList.Exists(„Management“)

‘ WSHNetwork.MapNetworkDrive „L:“, „\\servername\Calidus Mgt“, False

‘ WSHNetwork.MapNetworkDrive „Y:“, „\\servername\ReleasedData$“, False

Case Else

‘ ‘# Map Y: for all other users

‘ WSHNetwork.MapNetworkDrive „Y:“, „\\servername\ReleasedData$\“ & strUser, False

End Select

If objGroupList.Exists(„Administrators“) = True Then

msgbox „administrator“

End If

‘# Map Drives default for all users

‘WSHNetwork.MapNetworkDrive „M:“, „\\servername\commonmech$“, False

‘WSHNetwork.MapNetworkDrive „N:“, „\\servername\database$“, False

‘WSHNetwork.MapNetworkDrive „O:“, „\\servername\cadmin$“, False

‘WSHNetwork.MapNetworkDrive „P:“, „\\servername\public$“, False

wscript.echo „Konec“

Sub LoadGroups (ByVal Groups)

‘———————————————–

‘ Richard L. Mueller

‘ Subroutine to populate dictionary object with group memberships.

‘ objADObject is the user object, with global scope.

‘ objGroupList is a dictionary object, with global scope.

Dim objGroup

Set objGroupList = CreateObject(„Scripting.Dictionary“)

objGroupList.CompareMode = vbTextCompare

For Each objGroup In Groups

objGroupList.Add objGroup.name, True

Next

End Sub

Sub Cleanup ‘–> any persistent mapping from a previous session

Dim pause, colDrives, i

pause = False

On Error Resume Next

colDrives = array _

(„F:“,“L:“,“M:“,“N:“,“O:“,“P:“,“Q:“,“S:“,“Y:“,“Z:“)

For i = 0 to UBound(colDrives)

WSHNetwork.RemoveNetworkDrive colDrives(i), True, True

If err.Number = 0 Then pause = True Else err.Clear

Next

If Cbool(pause) Then wsh.sleep 750

On Error Goto 0

End Sub

 

oprava windows

http://support.microsoft.com/kb/244474/cs

http://support.wftx.us/

 

Oprava certifikátu po chybném exportu z operačního systému.

Návod publikován na postsignum.cz nebo jeho kopie: oprava certifikátu pro 64 bit windows

 

Jak určím verzi a service pack .Net Frameworku

článek KB318785 : http://msdn.microsoft.com/en-us/kb/kbarticle.aspx?id=318785 popisuje, jak lze z registru vyčíst verzi .Net Frameworku

nebo nahlédnutím do složky c:\Windows\Microsoft.NET\Framework

či scriptem uveřejněným na http://social.msdn.microsoft.com


If My.Computer.FileSystem.FileExists("C:\WINDOWS\Microsoft.NET\Framework\v1.0.3705\vbc.exe") = True Then
'write here the code when the program found the frame work v1.0
Else
'write here the code when the program didn't find the frame work v1.0
End If
If My.Computer.FileSystem.FileExists("C:\WINDOWS\Microsoft.NET\Framework\v1.1.4322\vbc.exe") = True Then
'write here the code when the program found the frame work v1.1
Else
'write here the code when the program didn't find the frame work v1.1
End If
If My.Computer.FileSystem.FileExists("C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\vbc.exe") = True Then
'write here the code when the program found the frame work v2.0
Else
'write here the code when the program didn't find the frame work v2.0
End If
If My.Computer.FileSystem.FileExists("C:\WINDOWS\Microsoft.NET\Framework\v3.0\vbc.exe") = True Then
'write here the code when the program found the frame work v3.0
Else
'write here the code when the program didn't find the frame work v3.0
End If
If My.Computer.FileSystem.FileExists("C:\WINDOWS\Microsoft.NET\Framework\v3.5\vbc.exe") = True Then
'write here the code when the program found the frame work v3.5
Else
'write here the code when the program didn't find the frame work v3.5
End If
If My.Computer.FileSystem.FileExists("c:\Windows\Microsoft.NET\Framework\v4.0.30319\vbc.exe") = True Then
'write here the code when the program found the frame work v4.0
Else
'write here the code when the program didn't find the frame work v4.0
End If

 

Knihy zdarma pro MS SQL 2008

http://technet.microsoft.com/cs-cz/library/ms130214(SQL.100).aspx

 

HYPER-V 2008

informace v  kostce http://www.zive.cz/clanky/informace-v-kostce-microsoft-virtualizace/sc-3-a-159364/default.aspx

Jak se připojit na vzdálený HYPER-V server:

odkazy:
http://blogs.technet.com/b/jhoward/archive/2008/11/14/configure-hyper-v-remote-management-in-seconds.aspx
http://archive.msdn.microsoft.com/HVRemote
http://technet.microsoft.com/cs-cz/library/cc843848.aspx

na serveru povolíme přihlášení uživateli cscript hvremote.wsf /add:accountname a restarujeme jej (2008 R2 volba 4).

Na klientovi v příkazovém řádku s administrátorskými oprávněními

• povolíme anonymní přihlášení cscript hvremote.wsf /anondcom:grant
• a uložíme jmeno a heslo přihlášení cmdkey /add:servername /user:servername\account /pass:heslo.
• pro správu přes mmc přidáme vyjímku cscript hvremote.wsf /mmc:enable .

Vzdálená konzole pro Win7 : http://www.microsoft.com/downloads/en/details.aspx?FamilyID=7d2f6ad7-656b-4313-a005-4e344e43997d&displaylang=en a   její zprovoznění

Popis administrace od MS: http://technet.microsoft.com/en-us/library/ee449475(WS.10).aspx

Co se mi osvědčilo

• založit na HYPER-V dalšího administratora(volba 3 v sconfig) a přidat mu sdílený adresář net share <sharename>=<fyz.addr> /Grant …  /User
• povolit vzdálenou plochu pro správu, doporučuji 2 síťovku
• nakonfigurovat REMOTE MANAGEMENT 4)

Vypnutí synchronizace času

Ve správci virtuálního stroje (servery) – integrační nástroje vypnout synchronizaci času, aby nedocházelo k posunu času

Konfigurace stránkovacího souboru:

Výpis informací o stránkovacím souboru: wmic pagefile get /format:list

Zákaz stránkování: wmic computersystem set AutomaticManagedPagefile=False

Nastavení velikosti a určení umístění : wmic pagefileset where name=”c:\\pagefile.sys” set InitialSize=1000,MaximumSize=5000
a restartovat server

Kontrola výsledků v registrech v klíči: HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management.

 

Windows 2008, nastavení VPN a chyba 812

Po nastavení VPN na serveru Windows 2008 s jednou síťovkou se následně na klientovi může objevit chyba 812 připojení se nezdařilo kvůli zásadám.
Nejprve je třeba změnit RRAS (Routing and Remote Access Service).  Otevři RRAS a klikni pravým tlačítkem na serveru a zakaž RRAS.  Následně na něj opět klikni pravým tlačítkem a vyber konfiguraci. Zvol uživatelskou konfiguraci a přes průvodce nakonfiguruj.  
Na serveru je třeba ještě nastavit server NPS (Network Policy Server) a nastavit zásady pro připojení.
Na klientovi nastav připojení VPN se standardními hodnotami.

 

Windows server

http://www.winserverhelp.com/

Installing Windows Server Backup

Recovering Your Server

 

MSDN Downloads

Free: Microsoft Web Platform Installer 3.0

http://msdn.microsoft.com/en-us/aa570309.aspx

kalendář: http://www.maxiorel.cz/windows-live-calendar-nejlepsi-kalendar-online