Portál AbcLinuxu, 27. října 2025 13:48
1.9.2010 13:24
geon | skóre: 18
| blog: bavaria
net use h: \\server\sdileni /SAVCRED
a některé další věci (moje vlastní aktualizační řešení - hromadné kopírování, registry, tiché instalace, ...)
Poprvé při spuštění batáku si to řekne o jmeno a heslo a pak již nikdy, takže uživatel ani neví, že tam něco takového je.
1.9.2010 15:51
geon | skóre: 18
| blog: bavaria
2.9.2010 13:29
geon | skóre: 18
| blog: bavaria
Ale to se mi stává málokdy, spíše se mi stávalo, že mi to zavíraly v době, když již běžela moje aktualizační utilitka. Je to obyčejný script v Pythonu, který prohledává síťový adresář s různými dávkami a pokud zjistí, že na dané mašině tak které dávka ještě neproběhla, tak ji spustí. Podobně to dělá i pro každého uživatele - také adresář s dávkami a pokud to pod daným uživatelem neproběhlo, tak se spustí. Využívám, jak jsem psal, na kopírování, zálohování, zápisy do registrů, tiché instalace, apod. Nikomu jsem to zatím neukazoval, trochu to vyladím a okomentuji a někam to dám.
2.9.2010 14:11
Ruža Becelin | skóre: 40
| blog: RuzaBecelinBlog
NET USE to připojíte - to lze udělat během ½ hodiny, nebo jak je zde již uvedená hezká utilitka.
Dim objIE
Set objIE = CreateObject( "InternetExplorer.Application" )
objIE.Navigate "about:blank"
objIE.Document.Title = "Password"
objIE.ToolBar = False
objIE.Resizable = False
objIE.StatusBar = False
objIE.Width = 320
objIE.Height = 250
With objIE.Document.ParentWindow.Screen
objIE.Left = (.AvailWidth - objIE.Width ) \ 2
objIE.Top = (.Availheight - objIE.Height) \ 2
End With
Do While objIE.Busy
WScript.Sleep 200
Loop
objIE.Document.Body.InnerHTML = "<DIV align=""center""><P>" & "Prihlas se" _
& "</P>" & vbCrLf _
& "<P><INPUT TYPE=""text"" SIZE=""20"" " _
& "ID=""Username""></P>" & vbCrLf _
& "<P><INPUT TYPE=""password"" SIZE=""20"" " _
& "ID=""Password""></P>" & vbCrLf _
& "<P><INPUT TYPE=""hidden"" ID=""OK"" " _
& "NAME=""OK"" VALUE=""0"">" _
& "<INPUT TYPE=""submit"" VALUE="" OK "" " _
& "OnClick=""VBScript:OK.Value=1""></P></DIV>"
' Make the window visible
objIE.Visible = True
' Wait till the OK button has been clicked
Do While objIE.Document.All.OK.Value = 0
WScript.Sleep 200
Loop
Dim passwd
Dim usrnm
usrnm = objIE.Document.All.Username.Value
passwd = objIE.Document.All.Password.Value
objIE.Quit
Set objIE = Nothing
WScript.Echo "Uziv: " & usrnm & " Heslo: " & passwd
'Misto tohoto se da pripojit disk pomoci
'Dim objNetwork, strDriveLetter, strHomeServer
'strDriveLetter = "S:"
'strHomeServer = "\\server\home\"
'
'Set objNetwork = CreateObject("WScript.Network")
'strUserName =objNetwork.UserName
'objNetwork.MapNetworkDrive strDriveLetter, strHomeServer, usrnm, passwd
PS: vlastní připojení je zakomentované a neodzkoušené - jen to zobrazí jméno a heslo :)C:\Documents and Settings. Dokonce MS dodává nějaký nástroj "Shared Computer tolkit", který umí změny po restartu vrátit zpět.
Ale i ta doména se dá provozovat bez větších problémů, a využít její výhody. A to i ve škole, kde může určitá část uživatelů z nudy "škodit". Jde např. využít v určitých případech pro doménové uživatele lokální profily, které se nekopírují ze serveru, a lze se případně přihlásit i bez dostupnosti doménového serveru. Něco lze řešit pomocí tzv. povinných profilů (mandatory profile), do kterých se neukládají změny, a lze je mít pro více uživatelů společné.
Věci jako tiskárny a společné změny nastavení elegantně řeší logon skripty. Pomocí nich lze udělat hodně věcí, ale je třeba si s tím pohrát. I ve Windows lze všechna nastavení a změny skriptovat, jen je někdy problém se slabší dokumentací těch nástrojů.
Tiskni
Sdílej:
ISSN 1214-1267, (c) 1999-2007 Stickfish s.r.o.