W jaki sposób zmienić podpis pod ikoną Mój komputer?
Skrypciarze odpowiadają na Wasze pytania
Witamy w rubryce TechNet, w której Skrypciarze z firmy Microsoft odpowiadają na częste pytania dotyczące używania skryptów w administracji systemu. Jeśli macie jakieś pytania z tej dziedziny, zachęcamy do wysłania e-maila na adres: scripter@microsoft.com. Nie możemy zagwarantować odpowiedzi na każde otrzymane pytanie, ale staramy się jak możemy. |
W jaki sposób zmienić podpis pod ikoną Mój komputer?
Cześć Skrypciarzu! Chciałbym, zmienić podpis ikony Mojego komputera na pulpicie, z Mój komputer na nazwę komputera. Czy da się to zrobić przy pomocy skryptu?
-- TG
Cześć TG. To pytanie dostajemy dość często; najwyraźniej wielu z Was wygodniej jest mieć nazwę komputera na pulpicie, dzięki czemu użytkownikom łatwiej jest zorientować się, do jakiego komputera się zalogowali. Jeśli chcesz, żeby proces zmieniania podpisu pod ikoną Mój komputer przebiegał automatycznie, po prostu uruchom taki skrypt:
Const MY_COMPUTER = &H11&
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = strComputer
Skrypt zaczyna od zadeklarowania stałej o nazwie MY_COMPUTER i ustawienia wartości na &H11&.. Tej wartości używa obiekt Windows Shell do zlokalizowania Mojego komputera. Następnie używamy tych dwóch linii kodu aby określić nazwę komputera lokalnego i przechować tę nazwę w zmiennej strComputer:
Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Jak dotąd bez problemów. Dalej tworzymy wystąpienie obiektu Shell Application (aplikacja powłoki) i używamy metody Namespace (obszar nazw), aby połączyć się ze specjalnym folderem, który odpowiada Mojemu komputerowi. Następnie łączymy się obiektem Mojego komputera FoldersItem, używając tej linii kodu:
Set objFolderItem = objFolder.Self
Kiedy połączymy się z FolderItem, uzyskujemy dostęp do właściwości folderu, takich jak na przykład nazwa. Aby ustawić podpis dla Mojego komputera na nazwę komputera, po prostu ustawiamy właściwość nazwy na strComputer, czyli zmienną zawierającą nazwę komputera:
objFolderItem.Name = strComputer
Podpis zmieni się od razu, nie tylko dla ikony pulpitu, ale także dla łącza do Mojego komputera w Menu Start. Jeśli później zechcesz zmienić podpis z powrotem na Mój komputer, uruchom ten skrypt:
Const MY_COMPUTER = &H11&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(MY_COMPUTER)
Set objFolderItem = objFolder.Self
objFolderItem.Name = "My Computer"
Pamiętaj, że nie zmieni się nazwa komputera, a tylko podpis specjalnego folderu Mojego komputera. Zmiana nazwy komputera to zupełnie inna historia, którą zresztą będziemy musieli się kiedyś zająć. Być może zauważyłeś również, że mimo zmiany podpisu z Mój komputer na, powiedzmy, atl-ws-01, skrypty Aplikacji Powłoki w dalszym ciągu potrafią odnaleźć specjalny folder Mojego komputera bez specjalnych trudności. Jest to spowodowane tym, że skrypty nie lokalizują Mojego komputera przy pomocy wartości ciągu Mój komputer, tylko przy pomocy wartości stałej &H11&.
Do początku strony