{"id":76,"date":"2020-02-09T00:56:26","date_gmt":"2020-02-08T23:56:26","guid":{"rendered":"http:\/\/vmd48343.contaboserver.net\/?p=76"},"modified":"2020-02-09T02:08:35","modified_gmt":"2020-02-09T01:08:35","slug":"windows-script-host","status":"publish","type":"post","link":"https:\/\/www.duoweb.de\/index.php\/2020\/02\/09\/windows-script-host\/","title":{"rendered":"Windows Script Host"},"content":{"rendered":"\n

Basics<\/h2>\n\n\n\n

E-Mail versenden<\/h3>\n\n\n\n
function SendMail (strSub, strText, strFrom, strTo)\n\tDim TobjMail\n\tSet TobjMail = CreateObject(\"cdonts.newmail\")\n\tTobjMail.To = strTo\n\tTobjMail.From = strFrom\n\tTobjMail.Subject = strSub\n\tTobjMail.Body = strText\n\tTobjMail.Send()\nend Function\n<\/pre>\n\n\n\n
Datei kopieren<\/h3>\n\n\n\n
Function CopyFile (strSrc, strDest)\n\tDim FSO, WshShell, TstrTemp\n\tSet WshShell = CreateObject(\"WScript.Shell\")\n\tSet FSO = CreateObject(\"Scripting.FileSystemObject\")\n\tif FSO.FileExists (strSrc) then\n\t\tFSO.CopyFile strSrc, strDest, True\n\tend if\n\tif Err.Number <> 0 Then\n\t\tTstrTemp = \"Error number \" & Err.Number & \" occured: \" _\n\t\t& Err.Description WshShell.LogEvent 1, TstrTemp\n\tEnd If\nEnd Function\n<\/pre>\n\n\n\n
Datei l\u00f6schen<\/h3>\n\n\n\n
Function DeleteFile (strSrc)\nOn Error Resume Next\n\tDim FSO, WshShell, TstrTemp\n\tSet WshShell = CreateObject(\"WScript.Shell\")\n\tSet FSO = CreateObject(\"Scripting.FileSystemObject\")\n\t\n\tif FSO.FileExists (strSrc) then\n\t\tFSO.DeleteFile strSrc, True\n  \tend if\n \tif Err.Number <> 0 Then\n  \t\tTstrTemp = \"Error number \" & Err.Number &_\n\t\t \" occured: \" & Err.Description\n\t\tWshShell.LogEvent 1, TstrTemp\n  \tEnd If\nEnd Function\n<\/pre>\n\n\n\n
COM-ADMIN Stuff<\/h2>\n\n\n\n
Exists the Lib ?<\/h3>\n\n\n\n
Function CheckCOM (LibName)\n\tDim TobjCatalog\n\tDim TobjComponent \n\tDim TobjApps\n\tDim TblnRet\n\t\n\tSet TobjCatalog = CreateObject(\"COMAdmin.COMAdminCatalog\")\n\tSet TobjApps = TobjCatalog.GetCollection(\"Applications\")\n\tTobjApps.Populate\n\t\t\n\tSet TobjComponent = TobjApps.GetCollection(\"Components\", LibName) \n\tIf Err.Number = 0 then\n\t\tTblnRet = true\n\tElse\n\t\tErr.Clear ()\n\t\tTblnRet = false\n\tEnd If\n\n\tCheckCOM = TblnRet\n\n\tSet TobjApps = Nothing\n\tSet TobjCatalog = Nothing\n\tSet TobjComponent = Nothing\nEnd Function\n<\/pre>\n\n\n\n
Adds Application(Lib) to COM<\/h3>\n\n\n\n
Function AddCOMApp (AppName, Info)\n\tDim TobjCatalog \n\tDim TobjApps \n\tDim TobjApp\n\tDim TlngAppID\n\t\n\tSet TobjCatalog = CreateObject(\"COMAdmin.COMAdminCatalog\")\n\tSet TobjApps = TobjCatalog.GetCollection(\"Applications\")\n\tTobjApps.Populate\n\t \n\t' Add Application \n\tSet TobjApp = TobjApps.Add()\n\tTobjApp.Value(\"Name\") = AppName\n\tTobjApp.Value(\"Activation\") = \"Inproc\"\n\tTobjApp.Value(\"ApplicationAccessChecksEnabled\") = False \n\tTobjApp.Value(\"Description\") = Info\n\tTobjApp.Value(\"RunForever\") = True\n\tTobjApps.SaveChanges\n\tTlngAppID = TobjApp.key\n\n\tSet TobjApp = Nothing\n\tSet TobjApps = Nothing\n\tSet TobjCatalog = Nothing\n\t\n\tAddCOMApp = TlngAppID \nEnd Function\n<\/pre>\n\n\n\n
Adds Application (ServerApp) to COM<\/h3>\n\n\n\n
Function AddCOMAppS (AppName, Info, USR, PWD)\n\tDim TobjCatalog \n\tDim TobjApps \n\tDim TobjApp\n\tDim TlngAppID\n\t\n\tSet TobjCatalog = CreateObject(\"COMAdmin.COMAdminCatalog\")\n\tSet TobjApps = TobjCatalog.GetCollection(\"Applications\")\n\tTobjApps.Populate\n\t \n\t' Add Application \n\tSet TobjApp = TobjApps.Add()\n\tTobjApp.Value(\"Name\") = AppName\n\tTobjApp.Value(\"Activation\") = \"Local\" \n\tTobjApp.Value(\"ApplicationAccessChecksEnabled\") = False \n\tTobjApp.Value(\"Description\") = Info\n\tTobjApp.Value(\"RunForever\") = True\n\tTobjApp.Value(\"Identity\") = USR\n\tTobjApp.Value(\"Password\") = PWD\n\t\n\tTobjApps.SaveChanges\n\tTlngAppID = TobjApp.key\n\n\tSet TobjApp = Nothing\n\tSet TobjApps = Nothing\n\tSet TobjCatalog = Nothing\n\n\tAddCOMAppS = TlngAppID \nEnd Function\n<\/pre>\n","protected":false},"excerpt":{"rendered":"
Basics E-Mail versenden function SendMail (strSub, strText, strFrom, strTo) Dim TobjMail Set TobjMail = CreateObject(„cdonts.newmail“) TobjMail.To = strTo TobjMail.From = strFrom TobjMail.Subject = strSub TobjMail.Body = strText TobjMail.Send() end Function Datei kopieren Function CopyFile (strSrc, strDest) Dim FSO, WshShell, TstrTemp Set WshShell = CreateObject(„WScript.Shell“) Set FSO = CreateObject(„Scripting.FileSystemObject“) if FSO.FileExists (strSrc) then FSO.CopyFile strSrc, strDest,<\/p>\n
Read More<\/a><\/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,"footnotes":""},"categories":[10],"tags":[],"class_list":["post-76","post","type-post","status-publish","format-standard","hentry","category-windows"],"_links":{"self":[{"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/posts\/76","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/comments?post=76"}],"version-history":[{"count":1,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/posts\/76\/revisions"}],"predecessor-version":[{"id":77,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/posts\/76\/revisions\/77"}],"wp:attachment":[{"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/media?parent=76"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/categories?post=76"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.duoweb.de\/index.php\/wp-json\/wp\/v2\/tags?post=76"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}