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

http://support.wftx.us/

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

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.

Installing Windows Server Backup

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

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