VBScript determines the role of a machine

The following script is used to determine the role of a machine in the domain:

'Use" . " For Local computerscomputer =" . "Wscript. Echo domainrole (scomputer) function domainrole (snode) set owmi = GetObject (" Winmgmts: "&" {Impersonationlevel = impersonate }! \\ "& Snode &" \ Root \ cimv2 ") Set colcomputer = owmi. execquery (" Select domainrole from win32_computersystem ") For each ocomputer In Colcomputer IDR = ocomputer. domainrolenextselect case idrcase 0 domainrole ="Standalone Workstation "Case 1 domainrole =" Member Workstation "Case 2 domainrole =" Standalone Server "Case 3 domainrole =" Member Server "Case 4 domainrole =" Backup Domain Controller "Case 5 domainrole =" Primary Domain Controller "Case else domainrole =" Unknown "End selectend Function