{"id":989,"date":"2012-02-23T17:31:14","date_gmt":"2012-02-23T17:31:14","guid":{"rendered":"http:\/\/www.edwardsd.co.uk\/work\/?p=989"},"modified":"2012-09-15T17:38:13","modified_gmt":"2012-09-15T16:38:13","slug":"show-host-name-via-vbs-showhost-vbs","status":"publish","type":"post","link":"https:\/\/www.edwardsd.co.uk\/work\/2012\/02\/show-host-name-via-vbs-showhost-vbs\/","title":{"rendered":"Show Host Name via VBS (ShowHost.vbs)"},"content":{"rendered":"<p>Simple script to show host name of the local machine in a popup window add code to &#8220;ShowHost.vbs&#8221;<\/p>\n<pre lang=\"basic\">\r\nDim Shell\r\nDim CompName\r\nSet Shell = WScript.CreateObject(\"WScript.Shell\")\r\nCompName = Shell.ExpandEnvironmentStrings(\"%COMPUTERNAME%\")\r\nMsgbox \"Your Computer name is \" &amp; CompName<\/pre>\nngg_shortcode_0_placeholder\n","protected":false},"excerpt":{"rendered":"<p>Simple script to show host name of the local machine in a popup window add code to &#8220;ShowHost.vbs&#8221; Dim Shell Dim CompName Set Shell = WScript.CreateObject(&#8220;WScript.Shell&#8221;) CompName = Shell.ExpandEnvironmentStrings(&#8220;%COMPUTERNAME%&#8221;) Msgbox &#8220;Your Computer name is &#8221; &amp; CompName<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"ngg_post_thumbnail":0,"jetpack_post_was_ever_published":false,"_jetpack_newsletter_access":"","_jetpack_dont_email_post_to_subs":false,"_jetpack_newsletter_tier_id":0,"_jetpack_memberships_contains_paywalled_content":false,"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[22,8,29,37,18,23,20,16],"tags":[],"class_list":["post-989","post","type-post","status-publish","format-standard","hentry","category-office-2007","category-vbs","category-windows-7","category-windows-sbs2008","category-windows-server-2003","category-windows-server-2008","category-windows-vista","category-windows-xp"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_shortlink":"https:\/\/wp.me\/pOPt8-fX","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/posts\/989","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/comments?post=989"}],"version-history":[{"count":0,"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/posts\/989\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/media?parent=989"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/categories?post=989"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.edwardsd.co.uk\/work\/wp-json\/wp\/v2\/tags?post=989"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}