W jaki sposób zmienić podpis pod ikoną Mój komputer?

Skrypciarze odpowiadają na Wasze pytania

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